以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。
今回すでに集めてある「まとめ」シートのA列と一致する「集計」シートへ書き出したいのですが
何処を変更すればよいかわかりません。ご教授いただけませんでしょうか。よろしくお願いいたします。
Sub sample()
Dim keyCell As Range
Dim i As Integer
Set keyCell = Worksheets("集計").Range("A6")'集計表のコードセル
Do While keyCell.Text <> ""
For i = 2 To Sheets.Count
With Worksheets(i)
If LCase(StrConv(.Name, vbNarrow)) = LCase(StrConv(keyCell.Text, vbNarrow)) Then
.Range("A6").Resize(400, .Range("A6").CurrentRegion.Columns.Count).Copy keyCell
Exit For
End If
End With
Next
Set keyCell = keyCell.End(xlDown)
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 検索して一致したセル...
-
別のシートから値を取得するとき
-
ExcelVBA シート名を複数セルか...
-
Excelマクロのエラーを解決した...
-
コマンドボタンをクリックでシ...
-
XL:BeforeDoubleClickが動かない
-
実行時エラー'1004': WorkSheet...
-
VBA 最終行まで数式をコピーする
-
ユーザーフォームに入力したデ...
-
Access エクセルシート名変更
-
excelのマクロで該当処理できな...
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
【EXCEL】ワークシートの名前を...
-
Excel マクロについての相談
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
vbaでworksheetfunctionでの複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
ExcelVBA シート名を複数セルか...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報
実行後のイメージです