回答編集履歴

1

修正

2021/06/26 07:45

投稿

jinoji
jinoji

スコア4592

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