excel - 如何在列中搜索包含特定文本的单元格，并将该单元格复制到新列中？

Question

我对 Excel 中的 VBA 代码非常陌生，我希望运行一个片段，该片段将在 A 列或 B 列中查找对文本字符串的任何引用，并在 C 列中吐出完整的值。

因此，如果“测试”一词出现在 A 列或 B 列的任何单元格中，则将该值以列表格式粘贴到 C 列中。

重要的是要注意搜索不需要完全匹配，它只需要找到单词“Test” - IE：A列中的“123Test123”仍然会通过并且“123Test123”将写入C列。

对此的任何帮助表示赞赏！

谢谢！

Answer 1

试试这个：

Sub dural()
    Dim AB As Range, r As Range, K As Long
    Set AB = Range("A:B").Cells.SpecialCells(xlCellTypeConstants)
    K = 1
    For Each r In AB
        If InStr(1, r.Value, "Test") > 0 Then
            r.Copy Cells(K, "C")
            K = K + 1
        End If
    Next
End Sub