エクセルのマクロのことで質問です。

Writer: admin Type: 観葉植物 Date: 2019-03-06 00:00
エクセルのマクロのことで質問です。フォルダAの中のファイルB内のCN2:HZ26をコピーしてフォルダAの中のファイルB以外のすべてのファイルの全てのシートの同じ個所(CN2:HZ26)に「数式」としてペーストできるようにしたいです。マクロの記述を教えてください。詳しい方、よろしくお願いします。補足漏れがありましたので追記します。フォルダAの中のファイルB以外のすべてのファイルの全てのシートの同じ個所(CN2:HZ26)に「数式」としてペーストその後、ファイル名はそのままで上書き保存を行えるようにしたいです。共感した0###>ファイルB内のCN2:HZ26をコピーしてコピー元のシートは、ファイルBの左端のシートとします。Sub sample()Const xAdr As String = "CN2:HZ26"Const xFld As String = "C:\A\"Const xFileB As String = "B.xlsx"Const xExt As String = "*.xlsx"Dim rng As Range, xFile As StringApplication.ScreenUpdating = FalseWith Workbooks.Open(xFld & xFileB)Set rng = .Worksheets(1).Range(xAdr)xFile = Dir(xFld & xExt)Do While xFile <> ""If xFile <> xFileB Then With Workbooks.Open(xFld & xFile) rng.Copy For Each sh In .Worksheets sh.Range(xAdr).PasteSpecial Paste:=xlPasteFormulas Next sh Application.CutCopyMode = False .Close savechanges:=True End WithEnd IfxFile = DirLoop.Close savechanges:=FalseEnd WithApplication.ScreenUpdating = TrueEnd Subナイス0
###回答ありがとうございます。ファイルBがマクロを含むファイルフォルダA内の全ファイルがマクロを含むファイルの場合Const xFileB As String = "B.xlsx"Const xExt As String = "*.xlsx"の.xlsxを.xlsmに変更すれば大丈夫でしょうか?
###無事に作業完了を確認できました。非常に効率よくデータの書き換えができるようになり感謝しています。

 

TAG