在 Excel 列中查找所有实例

Question

上下文

我正在尝试在特定列中搜索“January”的所有实例，然后引用该行，以便将单元格直接复制到它的左侧。单元格包含公式，所以我实际上是在搜索单元格的值而不是公式。

问题

我一直在尝试测试并确保它引用了正确的单元格地址（特别是行）。对于 1 月的每个实例，它会将“Testing”粘贴到列中所有值的末尾，而不是 FoundCell 本身中。 （例如，如果一月出现了 2 次，它会在列的末尾不断循环“测试”）

Excel 示例

Month      Month
January    =A2
February   =A3
April      =A4
April      =A5
January    =A6
December   =A7

当前代码

Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range

Set myRange = Range("B:B")
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(what:=January, after:=LastCell, LookIn:=xlValues)

'Test to see if anything was found
If Not FoundCell Is Nothing Then
  FirstFound = FoundCell.Address
Do
    MsgBox "Found it!"
    FoundCell.Value = "Testing"
    Set FoundCell = myRange.FindNext(FoundCell)
  Loop While Not FoundCell Is Nothing And FoundCell.Address <> FirstFound
Else
 MsgBox "Not Found!"
End If

Set rng = FoundCell

Exit Sub

如果你看到任何可以帮助的东西，请告诉我！

Answer 1

通过一些修改，我可以让您的代码运行。不确定您到底要做什么，但根据测试数据，此代码不再遇到您的代码在Loop While 遇到的运行时 91 错误：

Sub foo()
Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range

Set myRange = Range("B:B")
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(what:="January", after:=LastCell, LookIn:=xlValues)

If Not FoundCell Is Nothing Then
    FirstFound = FoundCell.Address
    Do

        ' FoundCell.Interior.ColorIndex = 39
        FoundCell.Offset(,1).Value = "Testing!"  '<~~ I'm writing out to the adjacent cell, just to be safe. Modify as needed.
        Set FoundCell = myRange.FindNext(FoundCell)

    Loop While (FoundCell.Address <> FirstFound)
End If

Set rng = FoundCell  '<~~ Careful, as this is only the LAST instance of FoundCell.

End Sub

Answer 2

您一遍又一遍地打印“Testing”这个词，因为您的循环正在搜索“Testing”这个词，而不是“January”。

If Not FoundCell Is Nothing Then
  FirstFound = FoundCell.Address
Do
    MsgBox "Found it!"
    FoundCell.Value = "Testing"
    Set FoundCell = myRange.FindNext(FoundCell)
  Loop While Not FoundCell Is Nothing And FoundCell.Address <> FirstFound
Else

FoundCell.Value = "Testing" 您正在将单元格值设置为使用此行进行测试

Set FoundCell = myRange.FindNext(FoundCell) 现在您正在搜索字符串“Testing”。 FoundCell 是一个范围。我相信单元格范围的默认属性是单元格的值（即 - “测试”）

因此，您最初会找到字符串“January”，将其更改为“Testing”，然后一遍又一遍地搜索字符串“Testing”，因为每次循环都将其写入新单元格，所以您一直在寻找它迭代。

至少我看起来是这样的，我实际上并没有尝试运行代码。您可以通过将 Set FoundCell = myRange.FindNext(FoundCell) 更改为 Set FoundCell = myRange.FindNext(FoundCell.Value) 来修复它