質問編集履歴

2 コード追記 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

Sheets(1).Columns.AutoFit

End Sub

VBA

5691 questions

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

Excel

4575 questions

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

マクロ

1003 questions

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

1 タイトル tesgakr score 6 2020/03/10 14:20 投稿