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

質問編集履歴

2

誤記修正

2021/11/19 02:36

投稿

tanuki_poyo
tanuki_poyo

スコア5

title CHANGED
File without changes
body CHANGED
@@ -24,11 +24,11 @@
24
24
  Dim i As Integer
25
25
 
26
26
  For i = 0 To 2
27
- Set sh = wb.Sheets(j) 'i番目のシート
27
+ Set sh = wb.Sheets(i) 'i番目のシート
28
28
  Aline(i) = "その" & i
29
29
  Bline(i) = "その" & i
30
30
  lastRow = Cells(30, "C").End(xlUp).Row 'ラストの行を取得
31
- CoppyData(j) = sh.Range("A1:G" & lastRow).Value 'シートの値を取得
31
+ CoppyData(i) = sh.Range("A1:G" & lastRow).Value 'シートの値を取得
32
32
  Next i
33
33
 
34
34
  '一回Forから抜け出したい

1

誤記修正

2021/11/19 02:36

投稿

tanuki_poyo
tanuki_poyo

スコア5

title CHANGED
File without changes
body CHANGED
@@ -36,7 +36,7 @@
36
36
    For i = 0 To 2
37
37
  lastRow = Cells(Rows.Count, "A").End(xlUp).Row 'ラストの行を取得
38
38
  Range("A" & lastRow + 1).Resize(UBound(CoppyData, 1)) = Aline(i) 'そのiをA列に貼り付ける
39
- Range("B" & lastRow + 1).Resize(UBound(CoppyData, 1)) = Bline(i) 'そのiをA列貼り付ける
39
+ Range("B" & lastRow + 1).Resize(UBound(CoppyData, 1)) = Bline(i) 'そのiをB列貼り付ける
40
40
  Range("C" & lastRow + 1).Resize(UBound(CoppyData, 1), UBound(CoppyData, 2)) = CoppyData(i) 'ここでエラーが発生
41
41
  Next i
42
42