excel - Excel vba在列中搜索，选择整列

Question

我是新来的。谁能帮帮我？

这是我的表格：在 A&B 栏中我有 Apple，在 C&D 栏中我有三星，在 E&F HTC 栏中。

我想准确搜索包含“HTC”字样的列。由于其中有 2 个，我想要选择这 2 个列。剪下它们并将它们插入 A&B 列。

所以顺序应该是HTC(ColA),HTC(ColB),Apple(ColC),Apple(ColD),Samsung(ColE),Samsung(ColF).

我希望有人理解我的问题并希望回答。

Answer 1

您的问题不是很清楚，但是您可以使用 match 函数来确定列是否包含特定单词：

Dim matchFound as Boolean
Dim c as Long
Dim rowNum as Long

For c = 5 to 6   'columns to be searched '
    matchFound = Not IsError(Application.Match("HTC", Columns(c), False))

    'Get the matching row number:
    If matchFound then rowNum = Application.Match("HTC", Columns(c), False))

        MsgBox "A match is found in Column " & c & ", Row " & rowNum, vbInformation
        'Put the values found in columns A or B '
        Cells(rowNum, c-4).Value = Cells(rowNum, c).Value
        matchFound = False
    End If
Next

现在您已经有了匹配单元格的行/列索引，您可以将它的值写入其他位置，例如，将第 5 列和第 6 列的值放入第 1 列和第 2 列：使用以下命令：

Cells(rowNum, c-4).Value = Cells(rowNum, c).Value

等等。

如果您希望有多个匹配的单元格，则需要使用FindandFindNext方法。

https://stackoverflow.com/a/16423646/1467082