VBA 配列について
配列の使い方について教えてください
1つの配列をどんどん追加したりしたいので1つの
mybox で追加していきたいと思っています。
(下記コードが実現できればと思います。)
(1)配列を広げ追加したい
(2)繰返しを使わず一気に書き込みたい
(3)一部をクリアしたりしたい
のですがよろしくお願いします。
Sub Macro1()
Range("A1").Value = "A"
Range("A2").Value = "B"
Range("A3").Value = "A"
o = Range("A1").End(xlDown).Row
mybox = Range(Cells(1, 1), Cells(o, 1)).Value
'myBox(1,1)=A
'myBox(2,1)=B
'myBox(3,1)=A ←このような表示になります。
'-------------------------------------------------
'(1)配列を広げ追加したい
ReDim Preserve mybox(o, 2)
For i = 1 To UBound(mybox)
If mybox(i, 1) = A Then
mybox(i, 2) = 0
Else
mybox(i, 2) = 1
End If
Next i
'-------------------------------------------------
'(2)(1)をC列に「myBox(?,2)を「繰返しを使わず一気に」書き込みたい
'Transposeは限界(65536個)を超えるので使えません。
Range(Cells(1, 3), Cells(UBound(mybox), 3)) = mybox
'(3)配列myBox(?,1)は残したままmyBox(?,2)はクリアにしたい
End Sub
お礼
rowを変数の宣言してるのかもしれないのですね。 確認してみます!ありがとうございました。