在电子表格中查找多个值实例

Question

我正在尝试在 VBA 中创建一个宏，该宏将在“PasteSheet”中的列中搜索包含“conversion”一词的任何单元格。拥有该单元格后，我可以在与该行对应的其他列中收集其他信息。我遇到的问题是创建某种类型的循环，它将贯穿整个数据库以返回单词“conversion”的所有实例。到目前为止，这是我的代码：

Sub Conversion()

Dim Comment As Range
Dim i As String

Worksheets("PasteSheet").Activate

Range("Comment").Find("conversion").Select


Worksheets("sheet1").Range("a1") = Selection.Offset(0, -8)

End Sub

请帮忙！

Answer 1

这是您可以做到的一种方法。这会将找到的单词的地址保存在一个数组中，最后你可以随意使用该数组。我使用 D 列作为示例列。根据需要更改任何内容

Sub getCells()
Dim rng As Range, cel As Range
Dim celAddress() As Variant
Dim i As Long
i = 0

Set rng = Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row)
ReDim cellAddress(rng.Cells.Count)

For Each cel In rng
    If cel.Value = "conversion" Then
        cellAddress(i) = cel.Address
        i = i + 1
    End If
Next cel

ReDim Preserve cellAddress(i - 1)

For i = LBound(cellAddress) To UBound(cellAddress)
    ' Do whatever with each cell address found
    Debug.Print cellAddress(i)
Next i

End Sub