[已解决]用vba如何选择excel中全部的偶数行！

hongliang224

Sub a()
Dim i as integer
   For i = 1 To [a65536].End(xlUp).Row
       If i Mod 2 = 0 Then
          Range(Range("a" & i).Row & ":" & Range("a" & i).Row).Select
      End If
  Next i
End Sub
                 {:301:}如上代码按F8键每次只能选择一个偶数行，如何选择全部偶数行呢，缺少什么代码，麻烦高手补充下！谢谢

最佳答案

月排行榜 / 总排行榜

联乔

2011-12-9 21:02

楼上是单元格 更正一下

1. Sub a()
   
2.     Dim i As Integer
   
3.     Dim rg As Range
   
4.     For i = 1 To [a65536].End(xlUp).Row
   
5.         If i = 2 Then Set rg = Cells(i, 1)
   
6.         If i Mod 2 = 0 Then
   
7.             Set rg = Union(rg, Cells(i, 1))
   
8.         End If
   
9.     Next i
   
10.     rg.EntireRow.Select
    
11. End Sub
    
12. 
    

复制代码

跳转到最佳答案楼层

联乔

1. Sub a()
   
2.     Dim i As Integer
   
3.     Dim rg As Range
   
4. 
   
5.     For i = 1 To [a65536].End(xlUp).Row
   
6.         If i = 2 Then Set rg = Cells(i, 1)
   
7.         If i Mod 2 = 0 Then
   
8. 
   
9.             Set rg = Union(rg, Cells(i, 1))
   
10.         End If
    
11.     Next i
    
12.     rg.Select
    
13. End Sub

复制代码

联乔

楼上是单元格 更正一下

1. Sub a()
   
2.     Dim i As Integer
   
3.     Dim rg As Range
   
4.     For i = 1 To [a65536].End(xlUp).Row
   
5.         If i = 2 Then Set rg = Cells(i, 1)
   
6.         If i Mod 2 = 0 Then
   
7.             Set rg = Union(rg, Cells(i, 1))
   
8.         End If
   
9.     Next i
   
10.     rg.EntireRow.Select
    
11. End Sub
    
12. 
    

复制代码

hongliang224

谢谢楼上的盆友！

hongliang224

D:\1.jpj
运行代码为何出错，我都搞不清白，难道是我的excel出问题了！明明有 for......next.....语句啊！

hongliang224

为何会出现这种提示！不解。

YANG6815475

左边编号什么意思？！

hongliang224

YANG6815475 发表于 2011-12-10 19:48
左边编号什么意思？！

什么左边的编号？

联乔

hongliang224 发表于 2011-12-10 18:01
运行代码为何出错，我都搞不清白，难道是我的excel出问题了！明明有 for......next.....语句啊！

联乔

hongliang224 发表于 2011-12-10 18:30
为何会出现这种提示！不解。

你的缺一个END IF