ExcelVBA | 005-2 查找特定单元格Find和Like方法（下）

技巧

动图演示

代码区

Sub FindLike()
    Dim 最大行 As Range, rng As Range
    Dim i, S
    S = InputBox("请输入关键字", , "李") '输入框
    Set 最大行 = Sheet7.Range("F65535").End(xlUp) '计算最大行
    Sheet7.Columns(8).Clear '清空G列
    For Each rng In Sheet7.Range("F2:F" & 最大行.Row)
        '在有数据区域进行循环
        If rng.Value Like "*" & S & "*" Then
            'Like的语法请在本文查看
            i = i + 1
            Sheet7.Range("H" & i + 1).Value = rng.Value
            '将查找到的值填写到H列
        End If
    Next
End Sub

Clear清除（Range.Clear 方法）

学习任务：查看range对象成员

Like 运算符(形如）

用法可本文代码区，

注意：字符区分大小写