EXCEL VBA オートフィルで別シートへコピー

質問

EXCEL VBA　オートフィルで別シートへコピー
しようとしたら、うまくいきません
別々に書くとうまくいくのですが
コードを一緒にするとうまくいきません？

コード
***********************************************
Sub 抽出別シート()
Worksheets("時間合計VB").Select ' 時間合計VBのシートを選択
Range("A1").AutoFilter field:=8, Criteria1:="<=1" '１時間以下の８列目のをフィルター
end sub

sub カレントで別シートへコピー()
Range("A1").CurrentRegion.Copy Sheets("1hdown").Range("A1")
　　'それをカレントして別シートのＡ１へコピー
Range("A1").AutoFilter
End Sub
***********************************************

このように書くとうまくいくのですが
これを一緒に書くと別シートへコピーがうまくいきません。
全てコピーされてしまいます
+++++++++++++++++++++++++++++++++++++++++++++++
一緒にしたコードです
+++++++++++++++++++++++++++++++++++++++++++++++
***********************************************
Sub 抽出別シート() '1h以下をを抽出別シートへコピー
Worksheets("時間合計VB").Select ' 時間合計VBのシートを選択
Range("A1").AutoFilter field:=8, Criteria1:="<=1"
　　 '１時間以下の８列目のをフィルター
Range("A1").CurrentRegion.Copy Sheets("1hdown").Range("A1")
　　 'それをカレントして別シートのＡ１へコピー
Range("A1").AutoFilter
End Sub
***********************************************
意味が分かりませんどなたかおしえていただけませんでしょうか？
よろしくお願いいたします

回答No.2

heisukewada · ベストアンサー

適当に数字を入れて検証してみました。
どちらも、問題なく動作しました。
ただ、　一緒になったモジュールと別々のモジュールがあるとき
全体が貼り付けられる不具合が起こりました。

別々に書かれたモジュールと
一緒になったモジュール2つがあるのではないでしょうか？
別々になったモジュールを開放して
一緒になったモジュールだけにして実行してみてはどうでしょう？

理由はわかりませんが、同じ処理をするモジュールが同時に存在していると不具合が起こるのかもしれません。

お礼

自分がやってみて分かった結論をかかせていただきます。

”１から作り直したら動くようになりました。”

モジュールを消したり確認しましたがやはり
結果はうまくコピーできませんでした。（ここは謎のままです）

なので
シートに余計な事を書いてある
表、関数、式、ＶＢＡを全てを省き
シンプルに作り直した所
うまく動くようになりました

モジュールを消すから、今回ヒントをもらい
作り直したのが正解だったみたいです

結論は、一つの表にごちゃごちゃ書かないで
基本の一つのデータは一つのシートで！
を、やるべきだったのかもしれません。

ご助言ありがとうございました。

補足

モジュールの関係があやしそうですね！
ちょっと今ＥＸＣＥＬ構うことができないので
夕方帰ってきたら試してみたいと思います。
今一番正解に近いような気がします
後ほど、又連絡させていただきます
ありがとうございました。

回答No.3

imogasi

既に回答が出ていて、正しいと思うが、
・マクロの記録と
・Google照会「vba フィルター 結果 コピー」で照会して、
http://officetanaka.net/excel/vba/tips/tips155c.htm
絞り込んだ結果をコピーする
などを見て、真似すれば済むことで、わざわざ、ここに質問するまでもない、有名課題でしょう。
ーー
Sub Macro1()
'
ActiveSheet.Range("a1").AutoFilter
'----'
Range("A1:A9").Select
ActiveSheet.Range("$A$1:$A$9").AutoFilter Field:=1, Criteria1:="=*りんご*", _
Operator:=xlAnd
'---
Range("A1").CurrentRegion.Copy Sheets("Sheet1").Range("G1")
'---
ActiveSheet.Range("a1").AutoFilter
End Sub
-----
肝は　CurrentRegion.　の理解にあると思う。
ーーー
データ例　A列
品物
りんご
みかん
ブドウ
りんごジュース
りんごつめあわせ
紅玉りんご
夏みかん
キウウィ
ーー
結果　G列
品物
りんご
りんごジュース
りんごつめあわせ
紅玉りんご
最後の行
ActiveSheet.Range("a1").AutoFilter
を入れておかないと、「あれ」と思うかも。

補足

最後の行アクティブにしておかないと
他の人がみたらそうかもしれないですね！
返答ありがとうございました！

回答No.1

kkkkkm

どちらも問題なく動作しました。

F8でステップ実行するか
最後の
Range("A1").AutoFilter
をコメントにして、実際にフィルターが機能しているか確認してみてはいかがでしょう。

また
Worksheets("時間合計VB").Select
をやめて以下のようにしてみてはいかがでしょう。

Sub 抽出別シート() '1h以下をを抽出別シートへコピー
With Worksheets("時間合計VB")
.Range("A1").AutoFilter field:=8, Criteria1:="<=1"
'１時間以下の８列目のをフィルター
.Range("A1").CurrentRegion.Copy Sheets("1hdown").Range("A1")
'それをカレントして別シートのＡ１へコピー
.Range("A1").AutoFilter
End With
End Sub

補足

そうでしたか。
自分の家のやつではうまく貼りつかなくて困ってしまっています
返答ありがとうございました！