展开全部
代码在附件,源码开放,d1单元格为需要查找的字符,点击按钮显示符合条件的全部行号和列号
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
先定义一个rng变量，在该列非空单元格中循环；
再定义一个str变量，用于存放符合条件的单元格地址；
if rng=指定条件 then
str=rng.address & str & ","
end if
最后去掉str的最后一个逗号，写入位置或者msgbox显示
再定义一个str变量，用于存放符合条件的单元格地址；
if rng=指定条件 then
str=rng.address & str & ","
end if
最后去掉str的最后一个逗号，写入位置或者msgbox显示
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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
已赞过
已踩过<
你对这个回答的评价是？
展开全部
那重复的是要哪一行？这种你要说清楚哦
更多追问追答
追问
所有重复值所在的行数都需要
追答
那找到之后呢，放到一个表还是说标颜色？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
