Question

我对Excel中的VBA代码很新，我希望运行一个部分来查找对A列或B列中的文本字符串的任何引用，并在C列中吐出完整的值。

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

重要的是要注意搜索不需要完全匹配，它只需要找到单词“Test” - IE：列中的“123Test123”仍会传递，“123Test123”将被写入C列。 / p>

对此有任何帮助！

谢谢！

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

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

1 个答案: