[已解决]查找关键字的所有坐标

billyzhang0609

求 关键字 所在的所有单元格的坐标

附件如一楼所 附

最佳答案

月排行榜 / 总排行榜

冥王

2015-9-6 14:20

1. Sub demo()
   
2.     Dim fStr$, i%, arr(1 To 9999, 1 To 1)
   
3.     Dim rng As Range
   
4.     fStr = "孙悟空"
   
5.     For Each rng In ActiveSheet.UsedRange
   
6.         If rng = fStr Then
   
7.             i = i + 1
   
8.             arr(i, 1) = rng.Address(0, 0)
   
9.         End If
   
10.     Next
    
11.     [O2].Resize(i, 1) = arr
    
12. End Sub

复制代码

跳转到最佳答案楼层

billyzhang0609

附件在这里效果 如截图

冥王

1. Sub demo()
   
2.     Dim fStr$, i%, arr(1 To 9999, 1 To 1)
   
3.     Dim rng As Range
   
4.     fStr = "孙悟空"
   
5.     For Each rng In ActiveSheet.UsedRange
   
6.         If rng = fStr Then
   
7.             i = i + 1
   
8.             arr(i, 1) = rng.Address(0, 0)
   
9.         End If
   
10.     Next
    
11.     [O2].Resize(i, 1) = arr
    
12. End Sub

复制代码

billyzhang0609

这个代码是如何实现赋值在 O 列上的，如果我要赋值在其他列怎么整？ 附件发重复了，不用去管它

冥王

代码倒数第二行[O2]  表示查找结果写入到以O2为左上角的单元格区域，这里可以手动修改，或者

1. Sub demo()
   
2.     Dim fStr$, i%, arr(1 To 9999, 1 To 1)
   
3.     Dim rng As Range, r As Range
   
4.     On Error Resume Next
   
5.     fStr = "孙悟空"
   
6.     For Each rng In ActiveSheet.UsedRange
   
7.         If rng = fStr Then
   
8.             i = i + 1
   
9.             arr(i, 1) = rng.Address(0, 0)
   
10.         End If
    
11.     Next
    
12.     Set r = Application.InputBox("请选择结果要写入的单元格顶点", "选择单元格", "O2", , , , , 8)
    
13.     r.Resize(i, 1) = arr
    
14. End Sub

复制代码

billyzhang0609

冥王 发表于 2015-9-6 14:43
代码倒数第二行[O2]  表示查找结果写入到以O2为左上角的单元格区域，这里可以手动修改，或者

谢谢！