[[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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.