Excel VBA 質問スレ Part75

[420 デフォルトの名無しさん (ﾜｯﾁｮｲ 5168-noGs) 2022/03/21(月) 09:00:07.15 ID:8sRo6eoq0]

>>416
Sub foo()

'開いてset
Set 転記先ブック = ThisWorkbook
Set 営業所ブック = Workbooks.Open( _
"C:\Users\81909\Desktop\eigyosyo.xlsx")

'転記
転記先ブック.Sheets("sheet1").Range("b2:d3").Value = _
営業所ブック.Sheets("sheet1").Range("b2:d3").Value

End Sub

保存ファイルのパスと転記セルの範囲変えたら使えると思う