VBA 数值查找/覆盖数据

Question

我正在编写一个宏，该宏允许我每月更新数据。然而，我意识到，有时当数据有更正时，我需要覆盖同月的数据。我试图想出一个宏，它允许我搜索整个列，如果与数据匹配，则允许我运行另一个宏以用新数据覆盖旧数据。关于如何解决这个问题有什么想法吗？

这是我到目前为止所拥有的。我需要将整个列替换为 i 至 500。

Sub FindMatchingValue()
Dim i As Integer, ValueToFind As Integer
intValueToFind = Sheet8.Range("L6")
For i = 1 To 500    ' This needs to be the entire column
    If Cells(i, 1).Value = intValueToFind Then
        MsgBox ("Found value on row " & i)
        Exit Sub
    End If
Next i

MsgBox ("Value not found in the range!")
End Sub

Answer 1

您不想在整个列中运行循环(略多于 1 百万 X)。相反，从底部找到最后一行，然后循环遍历该范围。

如果您的目标是在找到匹配项时运行第二个宏，则可以删除 msgbox 和 Exit Sub 并替换为 Call SecondMacro，其中“SecondMacro”是您分配给子类(class)的名称。只是一个选择~

Sub FindMatchingValue()

Dim i As Integer, ValueToFind As Integer, LRow as Integer
intValueToFind = Sheet8.Range("L6")

LRow = Range("A" & Rows.Count).End(XlUp).Row

For i = 1 To LRow
    If Cells(i, 1).Value = intValueToFind Then
        MsgBox ("Found value on row " & i)
        Exit Sub
    End If
Next i

MsgBox ("Value not found in the range!")
End Sub