VBA实现多个Sheet页匹配关键字并汇总

最新推荐文章于 2024-10-29 15:53:58 发布

爱偌天国

最新推荐文章于 2024-10-29 15:53:58 发布

阅读量7.5k

点赞数

分类专栏： eVBA 文章标签： VBA 宏 excel关键字匹配 sheet

本文链接：https://blog.csdn.net/u010065762/article/details/80591087

版权

本文介绍了如何使用VBA宏在Excel中快速实现多Sheet页的关键字匹配和数据汇总。通过创建用户界面，用户可以输入多个以逗号分隔的关键字，宏会遍历每个Sheet，将匹配的行复制到新的Sheet中。完成后，文件自动保存到指定位置。注意，如果数据行或列存在断层，可能导致匹配不准确，需要调整代码或确保数据完整。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

初次写博客，错误之处请包涵。

用户需求：媳妇统计excel时需要在多个sheet页中搜索关键字，找到匹配的行后再粘贴到新的sheet页中，

然后问我有什么快捷的方法，一键式的。我想了想写个宏，碎碎个事。好了，开始！

实现思路：打开excel，新建一个新sheet页，运行宏，在用户界面输入需要匹配的关键字，多个关键字按照英文逗号隔开，点击确认，循环sheet页进行匹配，并写入新建的sheet页，完毕后，保存到D盘下。

1. 插入一个用户界面UserFrom，加一个文本框，一个按钮。

2.确认按钮给一个click事件，全部代码实现如下：

Dim RowCount
Dim SheetName

Private Sub ConfirmButton_Click()

 Dim matchs As String, Arr() As String
 Dim idate
 
 matchs = TextBox1.Text
 
 If Not matchs = "" Then
     Arr = Split(matchs, ",")