- Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
368 ：デフォルトの名無しさん[sage]：2016/07/12(火) 08:36:55.89 ID:VFV9DvdR - >>361
Sub Macro1()
r = 1
For c1 = 1 To 6
For c2 = c1 + 1 To 7
For c3 = c2 + 1 To 8
For c4 = c3 + 1 To 9
Cells(r, 1).Resize(1, 4) = Array(c1, c2, c3, c4)
r = r + 1
Next
Next
Next
Next
End Sub
終わり
|
|