Excel VBA 質問スレ Part47 [無断転載禁止]©5ch.io
■ このスレッドは過去ログ倉庫に格納されています
0413デフォルトの名無しさん (ｱｳｱｳｶｰ Sa1b-nnGb)
2017/03/28(火) 22:49:29.50ID:y6dX2FWHaSub test()
For Each x In Workbooks("今日の上がり").Worksheets
If Instr(x.Name, "今日の上がり")>0 Then
x.Copy after:=Workbooks("集計マクロ").Sheets("集計マクロ")
End If
Next
End Sub
でどうだ?
■ このスレッドは過去ログ倉庫に格納されています