VBA는 배열에 두 개의 열을 삽입합니다.

배열에 두 열의 셀 값을 추가하고 싶습니다. I 사용하여 하나의 열 값을 할 수VBA는 배열에 두 개의 열을 삽입합니다.

  ss = Range("B1:R" & lstrow).Value 
      For i = 2 To lstrow 
      If ss(i, 2) = "FLAG" Then 
      If IsEmpty(dd) Then 
      dd(i) = Array(ss(i, 1)) 
      Else 
      ReDim Preserve dd(UBound(dd) + 1) 
      dd(UBound(dd)) = ss(i, 1) 
          End If

어떤 I는 (I, 3) 따라서 배열을 예시 SS에 대한 다른 칼럼의 값 dd는 추가 할 경우 SS (I, 2) = 플래그의 값을 추가하면 SS (I, 1) 및 SS (I, 3) 배열 dd는하기

당신의 도움이

출처

2016-06-16 Evgeni

사용

Redim Preserve dd(1 To UBound(dd) + 1, 1 To 3)

이 모든 배열 행 3 열을 제공 주셔서 감사합니다.

출처

2016-06-16 15:27:05

예상 됨 :리스트 제자 또는) – Evgeni

lstrow가 무엇인지 또는 끝나면 어떻게 될지 등 코드에서 어떤 일이 일어나는지 볼 수없는 것들이 있습니다. 하지만 내 대답의 주요 요점은 "Variant로 Dim myArray (1 to 3, 1 to 3)" –

UBound (myArray, 1)를 사용하여 변형 다차원 배열을 정의 할 수 있다는 것입니다. 행 상한선, UBound (myArray, 2)는 열 상위 경계를 제공합니다. –

VBA는 배열에 두 개의 열을 삽입합니다.

답변

관련 문제