excel查找复制，粘贴所有以1Z开头的值

Question

我正在尝试查找在 sheet1 中查找某些值并将这些值粘贴到 sheet2 A1 中的脚本。

1. 范围是整个 sheet1
2. 需要在所有单元格中搜索以“1Z”和“W”开头的任何内容
3. 将 sheet2 中以“1Z”和“W”开头的每个单元格数据粘贴到 A 行下。

目前有这个脚本：

Sub delete_oldads()
Dim cel As Range, cfind As Range
ActiveSheet.UsedRange.Select
For Each cel In Selection
If cel = "" Then GoTo nextcel
Set cfind = cel.Find(what:="1Z", lookat:=xlPart)
If Not cfind Is Nothing Then

cfind.Copy Cells(cfind.Row, "A")
cfind.Clear
End If
nextcel:
Next cel
End Sub

但这一个复制/粘贴同一工作表中的所有匹配单元格，如果在同一行中找到匹配项，它将仅复制最后一个。

Answer 1

这不使用FIND()，可能有点慢：

Sub poiuyt()
Dim K As Long, r As Range
Dim sh2 As Worksheet

Set sh2 = Sheets("Sheet2")
K = 1

With Sheets("Sheet1")
    For Each r In .UsedRange
        v = r.Value
        If v <> "" Then
            If Left(v, 1) = "W" Or Left(v, 2) = "IZ" Then
                r.Copy sh2.Cells(K, 1)
                K = K + 1
            End If
        End If
    Next r
End With
End Sub