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

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

       用户需求：媳妇统计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, ",")