回答編集履歴

1

コード修正

2022/09/09 16:41

投稿

hatena19
hatena19

スコア33828

test CHANGED
@@ -6,7 +6,7 @@
6
6
  l = 1
7
7
  For i = 1 To 20
8
8
  For j = 1 To 6
9
- Cells(i, j) = l
9
+ Worksheets(1).Cells(i, j) = l
10
10
  ' i = i + 1
11
11
  l = l + 1
12
12
  Next j