VBA 循环查找记录无效

Question

我一直在努力让这段代码起作用。但是没有运气。我重建了它，并在每个点进行了测试。但是当我到达 if 部分时，它似乎失败了。但出于某种原因，代码没有复制和粘贴任何搜索信息。

Sub copy()

Dim company As String
Dim lastrow As Integer
Dim i As Integer 'row counter

sheets("sheet1").Range("m2:s5000").ClearContents

company = sheets("Sheet1").Range("k2").Value

lastrow = sheets("sheet1").Range("A2000").End(xlUp).Row

For i = 2 To final

        If Cells(i, 1) = company Then
            Range(Cells(i, 1), Cells(i, 10)).copy
            Range("J100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats

        End If

Next i

Range("a6").Select

End Sub

计划使用代码搜索每月信息和return特定列表中的所有供应商。

提前致谢！

Answer 1

您似乎从未声明和初始化 final。为帮助避免此类错误，请转到 "Tools" > "Options"、select "Editor" 选项卡，然后选中 "Require Variable Declaration" 框。

VBA 循环查找记录无效

VBA Loop to find records not working

vba

loops