Excel VBA質問スレ Part10at TECHExcel VBA質問スレ Part10 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト400:デフォルトの名無しさん 09/03/23 23:18:54 >>399 有難うございます！！！ 今やったら出来ました。 大感激です！！！！！ 本当に有難うございました！ 401:デフォルトの名無しさん 09/03/23 23:44:09 ＞シートにプリントスクリーンで貼り付けた写真や図やらがあるのですが、 ＞定期的に全て削除したいのですが、 興味本位だけどどういう使い方してんの？ 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 上記のコードではうまく配列に値を代入できません。 どなたかご教授願います。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch