VBAは配列に2つの列を挿入します

2つの列のセル値を配列に追加します。私が使用して1つの列の値のためにそれを行うことができます。VBAは配列に2つの列を挿入します

  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、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とは何か、終わりの後に何が起こるかなどです。しかし、私の答えの主なポイントは、バリアントとして "myArray（1 to 3、1 to 3）"を使用してバリアント型多次元配列を定義することです。 –

UBound（myArray、1）は行の上限、UBound （myArray、2）は列の上限を返します。 –

VBAは配列に2つの列を挿入します

答えて

関連する問題