- 402 名前：デフォルトの名無しさん [2009/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
上記のコードではうまく配列に値を代入できません。
どなたかご教授願います。
|
 |
