[[20200518143500]]　『シートの枚数分コピペ』（Sante）　ページの最後に飛ぶ

『シートの枚数分コピペ』（Sante）

ExcelのVBAにて質問です。
特定のシート名のカウント数分コピペを行いたいのですが、
貼り付けを行う処理で悩んでいます。

現在のコード

 Dim ws As Worksheet
    Dim ShCount As Long

    For Each ws In Worksheets
        If ws.Name Like "*aaa*" Then
        ShCount = ShCount + 1
        End If
    Next

上記コードのカウント数が2以上であればSHCount回分、
Range("D3:E4")をコピぺしてRange("F3:G4")、Range("H3:I4")のように貼り付けたいです。
どのようにループ処理を書けばいいでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 こんにちは　＾＾
＞＞Range("D3:E4")をコピぺしてRange("F3:G4")、Range("H3:I4")のように貼り付けたいです。 
どのシートのRange("D3:E4")をコピーしてどのシートのRange("F3:G4")、Range("H3:I4")に貼
りつけるのか等、教えていただくと、多数アドバイス等あるかもしれません←多分。。。＾＾；
m(_ _)m
（隠居じーさん） 2020/05/18(月) 14:53

隠居じーさん様

失礼いたしました。
作業シートが別にあり、そのシート内でRange("D3:E4")をコピーし、Range("F3:G4")、Range("H3:I4")のように貼り付けたいです。
（Sante） 2020/05/18(月) 15:03

 参考に
 Sub Test()
    Dim ws As Worksheet
    Dim ShCount As Long

    For Each ws In Worksheets
        If ws.Name Like "*aaa*" Then ShCount = ShCount + 1
    Next
    If ShCount < 2 Then Exit Sub
    With Sheets("作業シート").Range("D3:E4")
        .Copy .Offset(, 2).Resize(, ShCount * 2)
    End With
 End Sub

（ピンク） 2020/05/18(月) 15:08

 こんにちは　＾＾。。。
いえいえ、失礼な事など、ありはいたしません。早速のご案内があったようで。。。
なるほど
そぉいう事でしたか。
m(_ _)m
（隠居じーさん） 2020/05/18(月) 15:17

ピンク様

ありがとうございます。
早速、処理に組み込んでみます！
（Sante） 2020/05/18(月) 15:25

コメント返信：

[ 一覧(最新更新順) ]

[[20200518143500]] 『シートの枚数分コピペ』（Sante） ページの最後に飛ぶ

[[20200518143500]]　『シートの枚数分コピペ』（Sante）　ページの最後に飛ぶ