excel里怎么快速选择所有偶数行

mod(row(),2)=0作为条件
以下VBA程序可快速选择20行内的偶数行：
Private Sub CommandButton1_Click()
Dim rag As Range
Set rag = Range("2:2")
For i = 4 To 20 Step 2
Set rag = Union(rag, Range(i & ":" & i))
Next i
rag.Select
End Sub
20换成65536可选择整个工作表中的偶数行，但运行时间会长一些