質問編集履歴
2
誤記修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -50,7 +50,7 @@
|
|
|
50
50
|
|
|
51
51
|
For i = 0 To 2
|
|
52
52
|
|
|
53
|
-
Set sh = wb.Sheets(
|
|
53
|
+
Set sh = wb.Sheets(i) 'i番目のシート
|
|
54
54
|
|
|
55
55
|
Aline(i) = "その" & i
|
|
56
56
|
|
|
@@ -58,7 +58,7 @@
|
|
|
58
58
|
|
|
59
59
|
lastRow = Cells(30, "C").End(xlUp).Row 'ラストの行を取得
|
|
60
60
|
|
|
61
|
-
CoppyData(
|
|
61
|
+
CoppyData(i) = sh.Range("A1:G" & lastRow).Value 'シートの値を取得
|
|
62
62
|
|
|
63
63
|
Next i
|
|
64
64
|
|
1
誤記修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -74,7 +74,7 @@
|
|
|
74
74
|
|
|
75
75
|
Range("A" & lastRow + 1).Resize(UBound(CoppyData, 1)) = Aline(i) 'そのiをA列に貼り付ける
|
|
76
76
|
|
|
77
|
-
Range("B" & lastRow + 1).Resize(UBound(CoppyData, 1)) = Bline(i) 'そのiを
|
|
77
|
+
Range("B" & lastRow + 1).Resize(UBound(CoppyData, 1)) = Bline(i) 'そのiをB列貼り付ける
|
|
78
78
|
|
|
79
79
|
Range("C" & lastRow + 1).Resize(UBound(CoppyData, 1), UBound(CoppyData, 2)) = CoppyData(i) 'ここでエラーが発生
|
|
80
80
|
|