- 176 名前：デフォルトの名無しさん mailto:sage [2009/05/23(土) 21:26:27 ]
- For i = 1 To 9
For j = i To 9
Union(Cells(i, j), Cells(j, i)) = i * j
Next
Next
If height * 2 - 1 > Columns.Count Then
MsgBox "列数が足りません"
Else
For i = 1 To height
Cells(i, height - i + 1).Resize(, i * 2 - 1).Value = "■"
Next
End If
