[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シートの枚数分コピペ』(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.