在字符串中搜索文本，将行复制并粘贴到新工作表

Question

我是 VBA 编程的新手，我需要一些帮助，以便在 Excel 2010 中编写一个简单的宏。

我需要在 A 列中搜索一个文本字符串（我要搜索的确切文本是 not specified），如果在单元格中找到该字符串，则将该单元格的整行剪切并粘贴到工作簿，然后删除原始工作表中的空行。

我在论坛上搜索了一下，发现了一些代码示例，这些示例几乎可以让我到达我想要的地方，但并不完全。

Answer 1

如果你使用宏记录器，你可以记录你描述的整个过程，然后查看生成的代码。因为脚本不需要记住它找到“未指定”的位置，所以只需循环直到 find 再也找不到字符串。另外，请记住为目标工作表保留一个行增量器。

Answer 2

也许可以尝试类似的方法：

Sub quickexample()

Call FilterData("not specified", xlFilterValues)
ActiveSheet.UsedRange.Copy
Worksheets.Add.Name = "NewSheet"
Worksheets("NewSheet").Paste

结束子

Function FilterData(criteria, voperator)
[A1].AutoFilter Field:=1, _
Criteria1:=criteria, _
Operator:=voperator

结束函数

Answer 3

可能尝试类似我在下面发布的内容。就像另一位用户建议的那样，我只是从录制宏中获得了大部分内容。如果您是 VBA 新手，那么大多数情况下录制宏是最好的开始！

Dim intPasteRow As Integer
intPasteRow = 2

Sheets("FirstSheet").Select
Columns("A:A").Select
On Error Resume Next
Selection.Find(What:="not specified", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Err.Number = 91 Then
    MsgBox "ERROR: 'not specified' could not be found."
    End
End If

Dim intRow As Integer
intRow = ActiveCell.Row
Rows(intRow & ":" & intRow).Select
Selection.Cut

Sheets("OtherSheet").Select
Range("A" & intPasteRow).Select
ActiveSheet.Paste

Sheets("FirstSheet").Select
Rows(intRow & ":" & intRow).Select
Selection.Delete Shift:=xlUp

Answer 4

好的。我使用了录音机，并暗示你们都离开了我，并想出了这个宏。我没有使用增量器或循环它，而是过滤它并一次性完成。这个过程对我有用，现在我办公室里的每个人......现在每个人都认为我非常擅长 VBA......事实并非如此，但我肯定在路上:)

谢谢大家的帮助！！！

Sub MoveNotSpec()

'过滤主工作表上的“未指定”并剪切、粘贴行到新工作表中并删除主工作表上的空行'

Selection.AutoFilter
ActiveSheet.Range("A1:A2000").AutoFilter Field:=1, Criteria1:= _
    "=*specified*", Operator:=xlAnd
ActiveSheet.UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("OtherSheet").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("FirstSheet").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.Range("A1:A2000").AutoFilter Field:=1

结束子