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

【问题标题】：How do I search a column for cells that contain certain text, and copy that cell into a new column?如何在列中搜索包含特定文本的单元格，并将该单元格复制到新列中？
【发布时间】：2016-08-19 02:34:49
【问题描述】：

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

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

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

感谢任何帮助！

谢谢！

【问题讨论】：

您可以使用Range.Autofilter 或查找循环。
您可以编辑您的帖子并包含您目前拥有的代码吗？这将向我们展示您的技能水平并为我们提供一个起点。

标签： excel vba

【解决方案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

【讨论】：

感谢 Gary 的学生。为了满足我在最后一分钟所做的一些格式更改而进行了一些更改，但这很有魅力！