Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68412 / 76738

←次へ　｜　前へ→


	【12864】フィルタ抽出のエラーについて

haseyan - 04/4/17(土) 14:42 -


	引用なし

	パスワード

Excel９７で、下記コードでエラーになります。何回か動作（マクロの実行）したのですが、動作しなくなりました。 Excel2002ですと、動作しました。やりたいことは、　・入力シートでフィルタ抽出して　・表示されたデータだけを”データ”シートに追加していくということです。何が原因なのでしょうか？どうすれば、良いのでしょうか？ Sub 入力追加1() 　　Dim data_ws As Worksheet 　　Dim ws As Worksheet 　　Set data_ws = Worksheets("入力") 　　Set ws = Worksheets("データ") 　　data_ws.Range("B13:N188").AutoFilter Field:=10, Criteria1:="<>" 　　data_ws.AutoFilter.Range.Offset(1).Copy _ 　　　　ws.Range("B65536").End(xlUp).Offset(1, 0) 　　 Worksheets("入力").Application.CutCopyMode = False 　　　　 End Sub ---------------------------------------------- data_ws.Range("B13:N188").AutoFilter Field:=10, Criteria1:="<>" の部分でデバッグとなります。　　実行時エラー　1004 　　 RangeクラスのAutoFilterメッソドが失敗しました ---------------------------------------------- 参考に、自動マクロですと、　Range("B13:N188").Select 　　ActiveWindow.LargeScroll Down:=-6 　　Selection.AutoFilter 　　Selection.AutoFilter Field:=10, Criteria1:="<>" 　　Selection.Copy 　　Sheets("データ").Select 　　Range("B5").Select 　　ActiveSheet.Paste 　　ActiveWindow.ScrollRow = 1 　　Range("A1").Select 　　Application.CutCopyMode = False 　　Sheets("入力").Select 　　Range("A1").Select となりますが、これでは随時”データ”シートに追加することができません。よろしくお願いします。