VBA案例精选 获取指定字符串的单元格地址

2021年4月11日10:47:41VBA案例精选 获取指定字符串的单元格地址已关闭评论 233 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

代码运行结果:

VBA案例精选 获取指定字符串的单元格地址

代码截图:

VBA案例精选 获取指定字符串的单元格地址

代码文本:

Public Sub 技巧()
    Dim myRange As Range, myCell As Range
    Dim myString As String, myText As String
    Set myRange = ActiveSheet.UsedRange    '指定任意的单元格区域
    myText = "电脑"     '指定要查找的字符串
    For Each myCell In myRange
        If InStr(LCase(myCell.Text), LCase(myText)) > 0 Then
            If Len(myString) = 0 Then
                myString = myCell.Address(False, False)
            Else
                myString = myString & "," & myCell.Address(False, False)
            End If
        End If
    Next
    If Len(myString) > 0 Then
        Range(myString).Select
        MsgBox "输入有字符串 " & myText & " 的单元格有:" & myString
    Else
        MsgBox "没有要查找的单元格。"
    End If
    Set myRange = Nothing
End Sub

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录