質問編集履歴

2 コード追記

tesgakr

tesgakr score 6

2020/03/10 14:22  投稿

[Excel][VBA] 指定の文字列を含むシートのみコピーして1シートにまとめる方法
複数シートが存在するブックにて、
シート名に”食”が含まれるシートのみ抽出し、
シート内容をすべてコピーしたうえで
一つのシートにまとめたいです。(縦追加)
マクロとしては、
・シート名の指定にワイルドカードを使用
・シートをループして条件式を適用
がポイントかと思っておりますが
条件指定が正しくなく全てのシートをコピーしてしまう状態です。
アドバイス等ありましたら教示いただけると幸いです。
アドバイス等ありましたら教示いただけると幸いです。
使用のマクロです______________
Sub Test()
Dim i As Long, ad As Integer, r As Long
Dim ws As Worksheet
Dim wsname As String
wsname = "食"
Sheets(1).Cells.Clear
For Each ws In Worksheets
If ws.Name Like "*" & wsname Then
For i = 2 To ActiveWorkbook.Sheets.Count
Sheets(i).UsedRange.Copy
r = Sheets(1).UsedRange.Rows.Count
If i = 2 Then ad = 0 Else ad = 2 '※
Cells(r, 1).Offset(ad).Select '※
ActiveSheet.Paste
End If
Next
Next
Sheets(1).Columns.AutoFit
End Sub
  • VBA

    5691 questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    4575 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • マクロ

    1003 questions

    定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

1 タイトル

tesgakr

tesgakr score 6

2020/03/10 14:20  投稿

複数シートが存在するブックにて、
シート名に”食”が含まれるシートのみ抽出し、
シート内容をすべてコピーしたうえで
一つのシートにまとめたいです。(縦追加)
マクロとしては、
・シート名の指定にワイルドカードを使用
・シートをループして条件式を適用
がポイントかと思っておりますが
条件指定が正しくなく全てのシートをコピーしてしまう状態です。
アドバイス等ありましたら教示いただけると幸いです。
  • VBA

    5691 questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    4575 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • マクロ

    1003 questions

    定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

思考するエンジニアのためのQ&Aサイト「teratail」について詳しく知る