想用excel vba 整理資料,
要把一整行的資料 ,
分類成一列一列,
遇到空格則跳下行
程式碼如下,
Sub test()
Sheets(1).Select
Dim i, j, k As Integer
For i = 1 To 30
Cells(1 + i, 1).Select
Cells(1 + i, 1).Copy
Cells(1 + j, 1 + i).Select
ActiveSheet.Paste
If Cells(1 + i, 1) = "" Then
j = j + 1
End If
Next
End Sub
請問要如何修改,
才能使資料縮排。