特定の文字を含むシートを選択するには

質問

いつもお世話になっております。
特定の文字を含むシートのデータをコピーするにはどのようにしたらよろしいでしょうか。
具体的には
(1)シート名の末尾に"D"を含むシートを選択
(2)選択したシートのデータをコピー
(3)コピーしたデータを順次"Sheet1"に貼付
というマクロを組みたいのですが、(1)のところがうまくいきません。
以下のように作成してみました。

Dim sh As Worksheet
Dim lr As Long, tlr As Long

For Each sh In Worksheets
If sh.Name = "*D" Then
lr = sh.Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
sh.Rows("3:" & lr).Copy
tlr = Sheets("Sheet1").Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
Sheets("Sheet1").Range("A" & tlr + 1).PasteSpecial
End If
Next

4行目の sh.Name = "*D" のところがうまくないようです。
よろしくお願いします。

回答No.1

himajin100000 · ベストアンサー

■ IF文でのワイルドカードの使用方法
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200401_04010005.html

LIKE演算子・・・

お礼

himajin100000さんありがとうございました。無事解決いたしました。
紹介していただいたページも今後参考にさせていただきます。