vba查找包含特定文字的单元格并提取到一个新表上面,请大神

Question

如题所述

Answer 1

您好，关于使用VBA查找特定文字的单元格并提取到新表，我已经模拟了数据进行演示，具体操作如下：

第一步，准备数据。假设我们有三个表（表一、表二、表三）和一个汇总表。表一数据包括：表二数据包括：表三数据包括：

第二步，插入一个名为“active”的按钮至汇总表中，并为其添加单击事件，编写VBA代码。

以下是具体的VBA代码：

vba

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim SheetCount As Integer, SheetR As Integer, SheetC As Integer, i As Integer, j As Integer, m As Integer, n As Integer

SheetCount = Sheets.Count

n = 1

For i = 1 To SheetCount - 1

SheetR = Sheets(i).UsedRange.Rows.Count

SheetC = Sheets(i).UsedRange.Columns.Count

For j = 1 To SheetR

For m = 1 To SheetC

If Sheets(i).Cells(j, m) Like "*圆*" Or Sheets(i).Cells(j, m) Like "*长*" Then

Sheets(SheetCount).Range("A" & n) = Sheets(i).Cells(j, m)

n = n + 1

Else

End If

Next m

Next j

Next i

Application.ScreenUpdating = True

End Sub

这段代码的作用是遍历每一个表格，查找包含"圆"或"长"文字的单元格，并将其提取到汇总表的A列中。

完成以上步骤后，点击"active"按钮，程序会自动执行查找与提取操作，最终结果将会显示在汇总表中。