Sub SplitOddEvenRows() Dim i As Long, lastRow As Long lastRow = Cells(Rows.Count, A).End(xlUp).Row For i = 1 To lastRow If i Mod 2 <> 0 Then Cells(i, B).Value = Cells(i, A).Value Else Cells(i, C).Value = Cells(i, A).Value End If Next i End Sub 。運(yùn)行這段宏后,所有的奇數(shù)行都會(huì)被移動(dòng)到B列,而偶數(shù)行則會(huì)出現(xiàn)在C列,這種方法適合那些熟悉編程并且希望一次性完成任務(wù)的朋友。