VBA循环查找不工作的记录答案

【问题标题】：VBA Loop to find records not workingVBA循环查找不工作的记录
【发布时间】：2015-02-06 16:54:39
【问题描述】：

我一直试图让这段代码工作。但是没有运气。我已经对其进行了重建，并在每一点进行了测试。但是当我到达 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

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

提前谢谢你！

【问题讨论】：

什么是final？它没有在您提供的代码中定义。是这个问题吗？
这样的声音可以用VLOOKUP而不是VBA重新设计

标签： vba loops

【解决方案1】：

看起来你从未声明和初始化final。为帮助避免此类错误，请转到“工具”>“选项”，选择“编辑器”选项卡，然后选中“需要变量声明”框。

【讨论】：