如何用vba代码利用Find方法查找A列指定内容的单元格并插入整行？

作者：绿色风分类：时间：2022-08-17 浏览：138

楼主 kevinchengcw	Q: 如何用vba代码利用Find方法查找A列指定内容的单元格并插入整行？ A: 代码如下： Sub test() Dim Rng As Range, N& Application.ScreenUpdating = False '关闭屏幕刷新以提高处理速度 If WorksheetFunction.CountIf(Columns(1), "特定内容") > 0 Then '先判断A列是否含有指定内容，防止出错 With Columns(1) Set Rng = .Find("特定内容", lookat:=xlWhole) '查找A列第一个指定内容的单元格并赋值给变量 Do Rows(Rng.Row).Insert '在当前找到的位置插入一行 Set Rng = .FindNext(Rng.Offset(1, 0)) '在当前行的下一行之后开始继续查找下一个单元格位置 Loop While Rng.Row <> .Find("特定内容", lookat:=xlWhole).Row '当找到的位置不是第一个位置时继续循环（注：当循环一圈后继续查找下一个会找到第一个的位置，利用该原理来判断是否需要结束循环） End With End If Application.ScreenUpdating = True '打开屏幕刷新 End Sub
2楼亡者天下	K哥的VBA真的很强悍啊！
3楼 yjzstar	find方法就是有一个不好，用了lookat:=xlWhole之后，客户要是CTRL+F来进行模糊查找的话要把选项中的勾手工去掉，要么就是从新执行下fing方法恢复选项中的默认值！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表