技巧
[mark_a]
1、表格代码名:通常在代码中指定表格时使用代码名,代码名可以修改,但不建议修改
2、立即窗口对象前加问号运行可显示单元格值。
[/mark_a]
动图演示
代码区
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 运算符(形如)
用法可本文代码区,
注意:字符区分大小写
「如果文章对您有用,欢迎点赞分享。」© 版权声明
1.文章版权归作者所有,可以不经允许任意转载。
2.如有侵权请告知,我会第一时间删除。
THE END
请登录后查看评论内容