エクセルマクロのピボット内検索について質問です。
Sheet1 に以下の通りピボットテーブルを作成しております。
A列 = 項目
B列~F列 = 数値
A列が項目aaa にマッチした場合、同じ行のB列~F列をコピーしたいのですが、マクロでピボットテーブル内の文字は検索できないのでしょうか。
他の方の質問を参考に、以下のマクロを書いておりますが、何度やってもaaa の行を指定できません。
Dim myrng As Range
Set myrng = worksheets("Sheet1").Cells.Find(What:="aaa", After:=ActiveCell)
ActiveCell.Resize(1, 6).Select
Selection.Copy
アドバイスいただければ幸いです。よろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
worksheets("Sheet1").Cells と指定すると Sheet1のすべてのセルが検索対象になります
worksheets("Sheet1").Range("A:A") と指定して A列に限定しましょう
また 引数 Afterは検索を開始する次のセルを指定するためのパラメータですので 本当に ActiveCellでいいのかも検討しましょう
単純に
Set myrng = worksheets("Sheet1").Range("A:A").Find(What:="aaa")
if not myrng is nothing then
myrng.Resize(1,6).Select
Selection.Copy
end if
といった具合で試してみましょう
redfox63さん、
早速のお返事どうもありがとうございます!
Range を使用してA列を指定したところ、検索ができ、
意図した範囲をコピーすることが出来ました。
マクロ初心者なので、ひとつひとつ、あぁでもないこうでもないと格闘している状態です。
次はaaa を変数にしてみます!
本当にありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) Sheet1をフィルターで「りんご」を抽出し、Sheet2へ地域を貼り付ける下記マクロを変更して S 2 2022/12/11 03:01
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
Excelで、あるセルの値に応じて...
-
Cellsのかっこの中はどっちが行...
-
VBAのFind関数で結合セルを検索...
-
VBAの構文 3列置きにコピーし...
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
VBAを使って検索したセルをコピ...
-
マクロ 最終列をコピーして最終...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
URLのリンク切れをマクロを使っ...
-
VBA 列が空白なら別のマクロへ...
-
特定のキーワードを含む行を別...
-
重複データの合算(VBA)
-
VBマクロ 色の付いたセルを...
-
VBAでのリスト不一致抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
マクロ 最終列をコピーして最終...
-
URLのリンク切れをマクロを使っ...
-
Changeイベントでの複数セルの...
-
VBAのFind関数で結合セルを検索...
-
ExcelVBA修正のお願い
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
VBマクロ 色の付いたセルを...
-
空白セルをとばして転記
-
rowsとcolsの意味
おすすめ情報