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 。運行這段宏后,所有的奇數行都會被移動到B列,而偶數行則會出現在C列,這種方法適合那些熟悉編程并且希望一次性完成任務的朋友。