如何搜索包含特定文本的單元格的列，並將該單元格複製到新列中？

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