Excel VBA質問スレ Part10

Excel VBA質問スレ Pa ..

402:デフォルトの名無しさん
09/03/23 23:54:03
すみません初歩的な質問なんですが
オートフィルタで抽出した可視セルの値を配列変数に代入したのですが
うまくいきません。

Sub test()

Dim atai() As Variant
Dim gyo() As intger

Sheets(1).Range("A1").AutoFilter 3, ">0"

ReDim atai(0), gyo(0)
atai(0) = Sheets(1).Range("A2", Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible).Value
gyo(0) = Sheets(1).Range("A2", Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible).Count

Sheets(2).Range("A2", "A" & gyo(0)).Value = atai(0)

End Sub

上記のコードではうまく配列に値を代入できません。
どなたかご教授願います。

次ページ

続きを表示

1を表示