転記ツール

Sub aaa()

A = Range("C3").Value
B = Range("C3").Value

Dim wb As Workbook
Set wb = ThisWorkbook

'開く
Workbooks.Open ("C:\Users\SURFACE\Desktop\深夜残業\転記ツール\もと.xlsx")
Workbooks.Open ("C:\Users\SURFACE\Desktop\深夜残業\転記ツール\さき.xlsx")

'転記

For i = 9 To 10

さきセル = ThisWorkbook.Sheets("Sheet1").Cells(i, 6).Value
もとセル = ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value

Workbooks("さき").Sheets(B).Range(さきセル).Value = Workbooks("もと").Sheets(A).Range(もとセル).Value

Next i


'閉じる
Workbooks("もと").Close
Workbooks("さき").SaveAs Filename:="C:\Users\SURFACE\Desktop\深夜残業\転記ツール\aaa.xlsx"

Workbooks("aaa.xlsx").Close


End Sub