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
     
    
  
 

文章来源: blog.csdn.net，作者：fengda2870，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/fengda2870/article/details/89250735