ワイルドカードを用いたセルの値加算&貼り付け
こんにちは!
下記動きを実現したく、他の質問で方々からご教示いただいた内容をヒントに
下記マクロを組んでみたのですが、実現したい動きになりませんでした。。
知識のある方がいらっしゃれば、間違いを指摘いただけると嬉しいです!
<実現したい動き>
このファイルの貼り付け先シートのRange(Cells(6, 5), Cells(32, 30))に、
下記条件を満たす全ての値を加算のうえ、ペーストする。
「指定フォルダ」に格納されている、ファイル名に「あいう」を含むファイル(※)の、「指定シート」のRange(Cells(6, 5), Cells(32, 30))に存在する値
※「あいう」の前後は不一致OK。複数存在し、ファイル数は可変。
<下記マクロを動かした結果>
該当ファイルは複数格納されているが、そのうちの1ファイルのみの値がコピペされている。
Sub マクロ()
'
Dim folder As String
Dim dws As Worksheet
Dim sfile1 As String
Dim swb1 As Workbook
Dim adr As String
Dim c As Integer
folder = "C:\Users\指定フォルダ\"
Set dws = ThisWorkbook.Worksheets("貼り付け先シート#1")
Range(Cells(6, 5), Cells(32, 30))=0
sfile1 = Dir(folder & "*あいう*.xlsm")
If sfile1 = "" Then Exit Sub
Set swb1 = Workbooks.Open(folder & sfile1)
adr = Range(Cells(6, 5), Cells(32, 30)).Address(0, 0, 1)
swb1.Sheets("あいう").Range(adr).Copy
dws.Range(adr).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Application.CutCopyMode = False
swb1.Close False
End Sub
お礼
できました! あれ? なんでできなかったんだろう?