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

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

提前谢谢！

Answer 1

看起来您从未声明并初始化final。为了帮助避免这样的错误，请转到＆＃34;工具＆＃34; ＆GT; ＆＃34;选项＆＃34;，选择＆＃34;编辑器＆＃34;选项卡，然后选中＆＃34;要求变量声明＆＃34;框。

VBA循环查找记录不起作用

1 个答案: