[已解决]关于VBA。find方法的问题请教

云龙

find方法请教.rar (7.9 KB, 下载次数: 9)

2017-6-21 11:14 上传

点击文件名下载附件
通过find方法查找“区域”所有结果，获取所有结果所在列标

最佳答案

月排行榜 / 总排行榜

lisachen

2017-6-21 13:59

1. Sub test()
   
2.     With Worksheets(1).Range("a1:i6")
   
3.         Set c = .Find([e16].Value, LookIn:=xlValues)
   
4.         If Not c Is Nothing Then
   
5.             firstAddress = c.Address
   
6.             Do
   
7.                 s = s & "," & Cells(1, c.Column)
   
8.                 Set c = .FindNext(c)
   
9.             Loop While Not c Is Nothing And c.Address <> firstAddress
   
10.         End If
    
11.         ar = Split(Right(s, Len(s) - 1), ",")
    
12.         Range("h16").Resize(, UBound(ar) + 1) = ar
    
13.     End With
    
14. End Sub

复制代码

跳转到最佳答案楼层

lisachen

1. Sub test()
   
2.     With Worksheets(1).Range("a1:i6")
   
3.         Set c = .Find([e16].Value, LookIn:=xlValues)
   
4.         If Not c Is Nothing Then
   
5.             firstAddress = c.Address
   
6.             Do
   
7.                 s = s & "," & Cells(1, c.Column)
   
8.                 Set c = .FindNext(c)
   
9.             Loop While Not c Is Nothing And c.Address <> firstAddress
   
10.         End If
    
11.         ar = Split(Right(s, Len(s) - 1), ",")
    
12.         Range("h16").Resize(, UBound(ar) + 1) = ar
    
13.     End With
    
14. End Sub

复制代码