VBA 用find函数如何精确查找带有空格的数值,如数值:ab12精确find数值:ab12 ,这种有空格的数值,谢谢
2个回答
展开全部
Sub fdSpace()
Dim UR As Range, Rng As Range, sA As String
Set UR = Worksheets(1).UsedRange
Set Rng = UR.Find(" ", , xlValues, xlPart)
sA = Rng.Address
Do
Set Rng = UR.FindNext(Rng)
Debug.Print Rng.Address
Loop Until Rng.Address = sA
End Sub
以上是查找所有的带有空格的单元格,打印出其地址。
不确定你说的“精确查找”的意思,还有用途是什么
A.如果只是去除单元格内容中前后的空格,可以用Trim处理后的字符串赋值给单元格;
B.如果只是判断内容最后有没有空格(不考虑中间的空格),可以RTrim处理后与原字符串比较
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询