すみません、調べてもわからないため初歩的な質問を失礼します。
見出しのみしたコピーされないので、おそらくCriteria1の部分がおかしいのだと思いますが。。。
VBA コード Sub 抽出作業() '=========================================== 抽出処理作業 Dim sh1 As Worksheet, SH2 As Worksheet Set sh1 = Worksheets("集計画面") Set SH2 = Worksheets("集計結果") SH2.Range("A5").CurrentRegion.Offset(1, 0).ClearContents msBox = "SH2.Range(A2)" With sh1.Range("A1") .AutoFilter Field:=5, _ Criteria1:="SH2.Range(A2)", _ Operator:=xlFilterValues .CurrentRegion.Copy SH2.Range("A5") .AutoFilter End With End Sub
初歩的で大変申し訳ないのですが、msgBoxで確認しても欲しいデータが得られない状態です。よろしくお願いします。。。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/02/11 08:59
2019/02/13 00:02
2019/02/13 00:19
2019/02/13 00:36
2019/02/13 01:26
2019/02/13 01:32
2019/02/13 02:28
2019/02/13 03:28
2019/02/13 03:34
2019/02/13 05:21
2019/02/13 06:45