[已解决]一个按条件选择不同单元格VBA

qq8945051

有老大知道 怎么用VBA 选中 sheet1中 所有含有张三,李四,王五的单元格     注意是 选中所有含有
有办法实现么

最佳答案

月排行榜 / 总排行榜

风林火山

2014-7-24 10:06

1. Sub test() '风林火山
   
2.     Dim rng As Range, rg As Range, ranges As Range, arr
   
3.     arr = Array("张三", "李四", "王五")
   
4.     Set ranges = Sheet1.UsedRange
   
5.     For Each rg In ranges
   
6.         For k = 0 To UBound(arr) - 1
   
7.             If arr(k) Like rg Then
   
8.                 If rng Is Nothing Then
   
9.                     Set rng = rg
   
10.                 Else
    
11.                     Set rng = Union(rng, rg)
    
12.                 End If
    
13.                 Exit For
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     rng.Select
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

ghostjiao

有 来附件呀

风林火山

1. Sub test() '风林火山
   
2.     Dim rng As Range, rg As Range, ranges As Range, arr
   
3.     arr = Array("张三", "李四", "王五")
   
4.     Set ranges = Sheet1.UsedRange
   
5.     For Each rg In ranges
   
6.         For k = 0 To UBound(arr) - 1
   
7.             If arr(k) Like rg Then
   
8.                 If rng Is Nothing Then
   
9.                     Set rng = rg
   
10.                 Else
    
11.                     Set rng = Union(rng, rg)
    
12.                 End If
    
13.                 Exit For
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     rng.Select
    
18. End Sub
    

复制代码

qq8945051

风林火山 发表于 2014-7-24 10:06

老大  你太牛了  谢谢了

su45

风林火山 发表于 2014-7-24 10:06

版主代码精辟！

风林火山

su45 发表于 2014-7-24 11:52
版主代码精辟！

老师谬赞了，不懂的太多了。以后要多多像老师请教，希望老师不要闭门啊