技巧64 联合多个单元格区域

jackyrtg

在理解了《Excel VBA 实战技巧精粹》技巧64后，想通过Find方法实现联合多个单元格区域，花了一个上午的时间却始终无法完成。希望高手们指点。谢谢。

1、想通过Find方法依次找到所有包含H的单元格，然后联合他们。
2、根据自己的想法写了一点代码。
3、所写的代码中不知道 FirstAddress = rng1.Address 该放在哪里好。

清风_ll

1. '利用Find方法联合多个单元格
   
2. Sub myUnion()
   
3. 
   
4. 
   
5.     Dim rng1 As Range, rng2 As Range
   
6.     Dim what As String, FirstAddress As String
   
7.    
   
8.     what = "H"
   
9.    
   
10.     With Range("A1").CurrentRegion
    
11.    
    
12.         Set rng1 = .Find(what)
    
13.         
    
14.         If rng1 Is Nothing Then
    
15.             Exit Sub
    
16.             
    
17.         Else
    
18.             FirstAddress = rng1.Address
    
19.             Set rng2 = rng1
    
20.             Do
    
21.                 Set rng1 = .FindNext(rng1)
    
22.                 If Not rng1 Is Nothing Then
    
23.                     Set rng2 = Application.Union(rng2, rng1)
    
24.                 End If
    
25.           Loop While Not rng1 Is Nothing And rng1.Address <> FirstAddress
    
26.           rng2.Select
    
27.      End If
    
28.    
    
29.     End With
    
30.    
    
31. End Sub
    
32. 
    

复制代码

[ 本帖最后由 清风_ll 于 2009-2-12 22:17 编辑 ]

jackyrtg

谢谢版主。在仔细看了代码后终于搞懂了。惭愧，整个编写和调试过程相当漫长，呵呵。

hhzjxss

谢谢，下载看看了！

michealzy

学习了！支持