Sub SelectOddRows() Dim i As Long For i = 1 To ActiveSheet.UsedRange.Rows.Count Step 2 Rows(i).Select Next i End Sub。如果要选择偶数行,把代码中的Step 2改成Step 2,并且把For循环中的起始值改成2就可以了,即Sub SelectEvenRows() Dim i As Long For i = 2 To ActiveSheet.UsedRange.Rows.Count Step 2 Rows(i).Select Next i End Sub。不过使用VBA代码需要有一定的编程基础,对于一些不熟悉编程的用户可能会有难度,但是这种方法在处理大量数据并且需要经常进行这样的操作时会非常高效。