以下是使用VBA代码来实现你所描述的功能,即遍历本工作簿下所有工作表的C列,一旦发现包含指定字符,就将本行数据复制到名为“查找值”的工作表中。你可以按照以下步骤操作:
1.打开你的Excel工作簿。
2.按下 Alt + F11 组合键,打开VBA编辑器。
3.在VBA编辑器中,插入一个新的模块(在菜单栏中选择“插入” -> “模块”)。
4.将以下代码粘贴到新模块中:
vba
Sub CopyRowsWithSpecifiedCharacter()
Dim ws As Worksheet
Dim targetWs As Worksheet
Dim lastRow As Long
Dim i As Long
Dim j As Long
Dim findChar As String
findChar = "你要查找的指定字符" '请将这里替换为你实际要查找的字符或字符串
On Error Resume Next
Set targetWs = ThisWorkbook.Worksheets("查找值")
If targetWs Is Nothing Then
Set targetWs = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
网页链接 = "查找值"
End If
On Error GoTo 0
For Each ws In
网页链接 lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
For i = 1 To lastRow
If InStr(1, ws.Cells(i, 3).Value, findChar) > 0 Then
ws.Rows(i).Copy Destination:=targetWs.Rows(targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Row + 1)
End If
Next i
Next ws
End Sub
5.将代码中的 "你要查找的指定字符" 替换为你实际要查找的字符或字符串。
6.关闭VBA编辑器,回到Excel工作表界面。
7.按下 Alt + F8 组合键,选择 CopyRowsWithSpecifiedCharacter 宏,然后点击“运行”按钮,宏将执行并完成你所要求的操作。
希望这段代码能帮助你解决问题。如果有任何疑问,请随时提问。