回答編集履歴
1
修正
test
CHANGED
@@ -6,33 +6,33 @@
|
|
6
6
|
|
7
7
|
With Workbooks("B.xlsx").Worksheets("Input")
|
8
8
|
|
9
|
-
Workbooks("
|
9
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("A" & g) = .Range("A" & i)
|
10
10
|
|
11
|
-
Workbooks("
|
11
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("b" & g) = .Range("B" & i)
|
12
12
|
|
13
|
-
Workbooks("
|
13
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("c" & g) = .Range("C" & i)
|
14
14
|
|
15
|
-
Workbooks("
|
15
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("d" & g) = .Range("D" & i)
|
16
16
|
|
17
|
-
Workbooks("
|
17
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("e" & g) = .Range("E" & i)
|
18
18
|
|
19
|
-
Workbooks("
|
19
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("f" & g) = .Range("F" & i)
|
20
20
|
|
21
|
-
Workbooks("
|
21
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("g" & g) = .Range("G" & i)
|
22
22
|
|
23
|
-
Workbooks("
|
23
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("h" & g) = .Range("H" & i)
|
24
24
|
|
25
|
-
Workbooks("
|
25
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("i" & g) = .Range("I" & i)
|
26
26
|
|
27
|
-
Workbooks("
|
27
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("j" & g) = .Range("J" & i)
|
28
28
|
|
29
|
-
Workbooks("
|
29
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("k" & g) = .Range("K" & i)
|
30
30
|
|
31
|
-
Workbooks("
|
31
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("l" & g) = .Range("L" & i)
|
32
32
|
|
33
|
-
Workbooks("
|
33
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("m" & g) = .Range("M" & i)
|
34
34
|
|
35
|
-
Workbooks("
|
35
|
+
Workbooks("A.xlsm").Worksheets("Sheet1").Range("n" & g) = .Range("N" & i)
|
36
36
|
|
37
37
|
End With
|
38
38
|
|