EXCEL VBA 如何找到某一数据的行号和列号？

Question

该数据不是唯一值，有重复

Answer 1

代码在附件,源码开放,d1单元格为需要查找的字符,点击按钮显示符合条件的全部行号和列号

Answer 2

先定义一个rng变量，在该列非空单元格中循环；
再定义一个str变量，用于存放符合条件的单元格地址；
if rng=指定条件 then
str=rng.address & str & ","
end if
最后去掉str的最后一个逗号，写入位置或者msgbox显示本回答被网友采纳

Answer 3

Sub FindAll()
Dim a, rng1, rng2, Address1, Address2
a = "xxx"
Set rng1 = ActiveSheet.UsedRange.Find(What:=a, lookat:=xlWhole)
If rng1 Is Nothing Then Exit Sub
Address1 = rng1.Address(0, 0)
Set rng2 = ActiveSheet.UsedRange.FindNext(rng1)
Address2 = rng2.Address(0, 0)
Do Until Address1 = Address2
Set rng1 = Application.Union(rng1, rng2)
Set rng2 = ActiveSheet.UsedRange.FindNext(rng2)
Address2 = rng2.Address(0, 0)
Loop
rng1.Select
End Sub

Answer 4

那重复的是要哪一行？这种你要说清楚哦追问

所有重复值所在的行数都需要

追答

那找到之后呢，放到一个表还是说标颜色？

追问

找到之后就可以了，之后的就是我自己处理了