10/04/01 12:04:31 v5erb9iY0
>>382
これじゃダメなの? なの?
Microsoft Visual Basic を開く。 (Excel 2003 の場合、メニューバーからツール(T)→マクロ(M)→Visual Basic Editor(V)とやると出る。)
広いところに
Sub Pikachu()
Dim i
Dim width
Dim dataSuu
Dim obj As Application
Set obj = Application
width = 3 ' 列数
dataSuu = UsedRange.Rows.Count
For i = 1 To dataSuu Step 1
Cells(i, 1).Cut Destination:=Cells(obj.WorksheetFunction.Ceiling(i / width, 1), i Mod width + 1)
Next i
End Sub
これをコピペする。
F5 キーを押して実行する。