Excel 每5行選擇一行的VBA代碼

Sub 選取行5()
  Application.ScreenUpdating = False
  Dim curRow As Long
  Dim selRan As Range
   For curRow = 1 To 5000
      If (curRow) Mod 5 = 0 Then
        If selRan Is Nothing Then
         Set selRan = Range("A" & curRow)
           Else
              Set selRan = Union(selRan, Range("A" & curRow))
          End If
       End If
    Next
   selRan.EntireRow.Select
   Application.ScreenUpdating = True
End Sub