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列,这种方法适合那些熟悉编程并且希望一次性完成任务的朋友。