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

Question

我在Excel中的VBA代码中很新颖，并且正在寻找可以查找对A列或B列中的文本字符串的任何引用并将C列中的完整值吐出的012.因此，如果单词“测试”出现在列A或列B中的任何单元格中，则将该值以列表格式粘贴到列C中。

需要注意的是，搜索不需要完全匹配，需要找到单词“测试” - 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