2009-09-28から1日間の記事一覧
Private Const maxNum As Integer = 6 Private n(maxNum) As String Sub test() Dim i As Integer Dim j As Integer n(0) = "a" n(1) = "b" n(2) = "c" n(3) = "d" n(4) = "e" n(5) = "f" For i = 1 To maxNum - 1 For j = 1 To maxNum / 2 Cells(j, i).Valu…