Excel 每5行选择一行的VBA代码

最新推荐文章于 2025-07-02 23:57:01 发布

原创最新推荐文章于 2025-07-02 23:57:01 发布 · 2.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Excel #VBA

Excel 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一段使用VBA在Excel中选取特定行的代码示例，通过循环和条件判断，实现每5行选取一行的功能，适用于大量数据处理。

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