- 627 名前：デフォルトの名無しさん mailto:sage [2012/01/03(火) 22:54:22.81 ]
- >>622
詳しいアドバイスありがとうございます。
ところで、さらに質問が出てきました。まったくべつのものですが、、、
Sub test1()
Dim x(100, 100) As Integer
a = 0
For i = 1 To 20
For n = 1 To 20
a = a + 2
Cells(i + 4, n + 4).Value = a
Next n
Next i
a = UBound(x, 1)
Cells(2, 2).Value = a
End Sub
ためしに、UBound(x,1)が100なのか、それとも数字が入っている20行までなのか
試してみたのですが、結局上記の場合、UBound(x,1)＝100でした。。。
数字が入っているところまで20とすることは可能なのでしょうか？
