![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
Excel フィルターで条件を絞った後
見出しの1行目を覗いたA~F列目までを
コピーして別のシートに値貼り付けをしたいです。
例えば画像の写真の場合は
B9:F13をコピーとなります。
Worksheets("DATA").Activate
Dim Lastcol As Long, Startrow As Long
Lastcol=Cells(1,Columns.Count).End(xlToLeft).Column
With Range("A1")
.AutoFilter field:=Lastcol, Criteria1:="#N/A"
.AutoFilter field:=4, Criteria1:="*東海*", Operator:=xlOr, Criteria2:="*北陸*"
End with
この後にどうしたらいいか教えて欲しいです。
宜しくお願い致します。
![「Excel フィルターで条件を絞った後 」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/c/542924676_5daad917cf867/M.jpg)
No.2ベストアンサー
- 回答日時:
このような物はいかがでしょうか?
Sub Sample()
Worksheets("DATA").Activate
Dim Lastcol As Long, Lastrow As Long
Lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
Cells.AutoFilter Field:=Lastcol, Criteria1:="#N/A"
Cells.AutoFilter Field:=5, Criteria1:="=東海*", Operator:=xlOr, Criteria2:="=北陸*"
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
If Lastrow = 1 Then
MsgBox ("該当データが有りませんでした")
Exit Sub
End If
Range(Cells(2, 1), Cells(Lastrow, 6)).Copy
Sheets("Sheet1").Range("B2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
※ 得意先コードの列は「4」ではなく「5」だと思うので修正してあります。
※ 得意先コードのフィルターは先頭一致の方が良いと思いましたので修正してあります。
※ 張付け先は「Sheet1」シートの「B2」セルを左上の角としてあります。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
Count Ifのセルの範囲指定に変...
-
VBA 空白行に転記する
-
VBA Userformで一部別シートに...
-
Changeイベントで複数セルへの...
-
VBA 実行時エラー1004 rangeメ...
-
グラフマクロで系列を変数にす...
-
VBA シート間の転記で、条件の...
-
FindNextがうまくいかない
-
ExcelのVBマクロを、バックグラ...
-
複数シートの複数列に入力され...
-
VBA 別ブックからの転記の高速...
-
ExcelのVBAでグループ分けしたい
-
エクセル 複数シートの同一セ...
-
Excel2013で切り取り禁止
-
祝日を除いた月曜から土曜まで...
-
【VBA】特定の条件でセルをコピー
-
VBAでのピボットテーブルの範囲...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
VBA 空白行に転記する
-
マクロ実行後に別シートの残像...
-
VBAで変数の数/変数名を動的に...
-
VBA別シートの最終行の次行へ転...
-
Changeイベントで複数セルへの...
-
アクセスからエクセルへ出力時...
-
VBA 別ブックからの転記の高速...
-
【VBA】特定の条件でセルをコピー
-
Count Ifのセルの範囲指定に変...
-
VBA 実行時エラー1004 rangeメ...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
複数シートの複数列に入力され...
-
楽天RSSからエクセルVBAを使用...
-
Excel2013で切り取り禁止
-
Excel VBA オートフィルターで...
-
Unionでの他のシートの参照につ...
-
VBAを使って複数のシートから抽...
おすすめ情報
No.1さんの応用です。
どう応用したらいいかわかりません。