0
#This is the input table for which I want to perform some action#在Vba中增加For循環中的變量?
Public Sub mac()
Dim RangeOfChild As Range
For i = 1 To 10000
ActiveCell.Range("A" & i).Activate
Dim DirArray As Variant
Dim temp As Variant
Set RangeOfChild = Range(ActiveCell.Offset(0, 1),ActiveCell.End(xlToRight))
childCount = RangeOfChild.count
temp = ActiveCell.Value
ActiveCell = Null
DirArray = RangeOfChild.Value
RangeOfChild.ClearContents
ActiveCell.EntireRow.Resize(childCount - 1).Insert Shift:=xlDown
ActiveCell.Value = temp
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(RangeOfChild.count - 1, 1)) = Application.Transpose(Array(DirArray))
i = i + (childCount)
Next i
End Sub
我希望有一個輸出類似於下面的圖片
但for循環寫只完成操作,以兩排中,沒有剩餘,如果有人能幫助我,這將是一個很大的幫助。
變化'ActiveCell.Range( 「A」 &ⅰ).Activate'到'範圍( 「A」 &ⅰ).Activate'和改變'I = I +(childCount)''到I = I + childCount - 1'(但是,這是一種不好的做事方式!) – YowE3K