teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

修正

2021/11/19 02:46

投稿

jinoji
jinoji

スコア4592

answer CHANGED
@@ -4,8 +4,14 @@
4
4
 
5
5
  とりあえず、
6
6
  ```VBA
7
+ Dim arr As Variant
8
+ For i = 0 To 2
9
+ lastRow = Cells(Rows.Count, "A").End(xlUp).Row 'ラストの行を取得
10
+ arr = CoppyData(i)
7
- Range("A" & lastRow + 1).Resize(UBound(CoppyData(i), 1)) = Aline(i) 'そのiをA列に貼り付ける
11
+ Range("A" & lastRow + 1).Resize(UBound(arr, 1)) = Aline(i) 'そのiをA列に貼り付ける
8
- Range("B" & lastRow + 1).Resize(UBound(CoppyData(i), 1)) = Bline(i) 'そのiをB列貼り付ける
12
+ Range("B" & lastRow + 1).Resize(UBound(arr, 1)) = Bline(i) 'そのiをB列貼り付ける
9
- Range("C" & lastRow + 1).Resize(UBound(CoppyData(i), 1), UBound(CoppyData(i), 2)) = CoppyData(i) 'ここでエラーが発生
13
+ Range("C" & lastRow + 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
14
+ Next i
15
+
10
16
  ```
11
17
  でどうでしょう。

1

追記

2021/11/19 02:46

投稿

jinoji
jinoji

スコア4592

answer CHANGED
@@ -1,1 +1,11 @@
1
- `wb.Sheets(j)` `CoppyData(j)`の`j`が間違い?
1
+ `wb.Sheets(j)` `CoppyData(j)`の`j`が間違い?
2
+
3
+ ---
4
+
5
+ とりあえず、
6
+ ```VBA
7
+ Range("A" & lastRow + 1).Resize(UBound(CoppyData(i), 1)) = Aline(i) 'そのiをA列に貼り付ける
8
+ Range("B" & lastRow + 1).Resize(UBound(CoppyData(i), 1)) = Bline(i) 'そのiをB列貼り付ける
9
+ Range("C" & lastRow + 1).Resize(UBound(CoppyData(i), 1), UBound(CoppyData(i), 2)) = CoppyData(i) 'ここでエラーが発生
10
+ ```
11
+ でどうでしょう。