[已解决]下面的代码可以简化吗？

mn860429

1. Sub 宏()
   
2.     Dim rng As Range
   
3.     For a = 1 To 12
   
4.         If Cells(a, 1) Mod 2 = 0 Then
   
5.             Set rng = Cells(a, 1)
   
6.             Exit For
   
7.         End If
   
8.     Next
   
9.     For b = 1 To 12
   
10.         If Cells(b, 1) Mod 2 = 0 Then
    
11.             Set rng = Union(rng, Cells(b, 1))
    
12.         End If
    
13.     Next b
    
14.     rng.Select
    
15. End Sub

复制代码

{:011:}

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-1-14 21:57

Sub 宏()
    Dim rng As Range
    dim a as long
       For a = 1 To 12
        If Cells(b, 1) Mod 2 = 0 Then
           if rng is nothing then
             Set rng = Cells(a, 1)
            else
            Set rng = Union(rng, Cells(b, 1))
            end if
        End If
    Next a
    rng.Select
End Sub

跳转到最佳答案楼层

搁浅2008

Sub 宏()
    Dim rng As Range
    dim a as long
       For a = 1 To 12
        If Cells(b, 1) Mod 2 = 0 Then
           if rng is nothing then
             Set rng = Cells(a, 1)
            else
            Set rng = Union(rng, Cells(b, 1))
            end if
        End If
    Next a
    rng.Select
End Sub

搁浅2008

PS :你们怎么弄的可以复制代码

搁浅2008

Sub 宏()
    Dim rng As Range
    For a = 1 To 12
        If Cells(a, 1) Mod 2 = 0 Then
            Set rng = Cells(a, 1)
            Exit For
        End If
    Next
    For b =a To 12
        If Cells(b, 1) Mod 2 = 0 Then
            Set rng = Union(rng, Cells(b, 1))
        End If
    Next b
    rng.Select
End Sub

pzh130

PS :你们怎么弄的可以复制代码

1. ...

复制代码

指这个？[code ]... [/code ]

fjmxwrs

Sub 宏()
    Dim rng As Range
    For a = 1 To 12
        If Cells(a, 1) Mod 2 = 0 Then
            Set rng = Cells(a, 1)
            Exit For
        End If
    Next
    For b =a To 12
        If Cells(b, 1) Mod 2 = 0 Then
            Set rng = Union(rng, Cells(b, 1))
        End If
    Next b
    rng.Select
End Sub

搁老这代码完整不重复，学习了

fjmxwrs

1. Sub 宏()
   
2.       Dim rng As Range
   
3.       For a = 1 To 12
   
4.           If Cells(a, 1) Mod 2 = 0 Then
   
5.                 Set rng = Cells(a, 1)
   
6.                 Exit For
   
7.           End If
   
8.      Next
   
9.      For b =a To 12
   
10.           If Cells(b, 1) Mod 2 = 0 Then
    
11.                  Set rng = Union(rng, Cells(b, 1))
    
12.            End If
    
13.      Next b
    
14.      rng.Select
    
15. End Sub
    
16. 
    

复制代码

学习下怎么有这功能

老糊涂

学习代码

我不知道呀

一天一点学习，一天一点进步

sunjing-zxl

学习最佳答案！！