执行上述代码后只选择了最后一行是为什么

如果您在执行上述代码后只选择了最后一行，可能是因为您的数据没有使用整个工作表范围。您可以尝试修改代码中的 `ActiveSheet.UsedRange.Rows.Count` 为 `ActiveSheet.Rows.Count`，这样就可以遍历整个工作表的所有行了。修改后的代码如下：

Sub SelectEveryNthRow()
    Dim i As Long
    For i = 1 To ActiveSheet.Rows.Count Step 2
        Rows(i).Select
    Next i
End Sub

执行修改后的代码后，您就可以隔行选择所有行了。如果需要隔两行选择行，则将代码中的“Step 2”修改为“Step 3”即可。