VBA循环找到记录不工作

问题描述：

我一直在试图让这段代码工作。但没有运气。我已经重建了它，并在每个点都进行了测试。但是当我看到if部分时，它似乎失败了。但由于某些原因，代码不会复制和粘贴任何搜索信息。VBA循环找到记录不工作

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'？它没有在你提供的代码中定义。这是问题吗？ – 2015-02-06 16:56:21

这样的声音可以用VLOOKUP而不是VBA重新设计 – chancea 2015-02-06 17:03:38

答

它看起来像你永远不会声明和初始化final。为了避免这样的错误，请转到“工具”>“选项”，选择“编辑器”选项卡，然后选中“需要变量声明”框。

VBA循环找到记录不工作

相关推荐