excel - For循环删除所有行

Question

我以前从未在 VBA 中编码过，现在我正在尝试根据 Youtube 视频自学，这被证明是困难的。我正在尝试执行一个 for 循环，如果它不等于零件编号，则删除一行，如果零件编号正确，我希望循环什么都不做并继续前进。我一直在输入随机的数字列表来测试我的代码，但是当我运行它时，每一行都被删除(即使是那些具有正确部件号的行)。最终，当我在真实数据上运行时，零件号将是字母和数字的组合以及破折号，所以我应该将零件号存储为字符串变量，对吗？有什么建议吗？

Sub CodingPrac()
Dim PartNum As String
PartNum = InputBox("Enter the Part Number", "Part Number", "Type value here")
lastrow = ThisWorkbook.Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row

    For i = lastrow To 1 Step -1
        If Cells(i, 1).Value = "PartNum" Then
        Else
            ThisWorkbook.Sheets(2).Rows(i).EntireRow.Delete
        End If
    Next i

End Sub

Answer 1

代替:

If Cells(i, 1).Value = "PartNum" Then

和:

If Cells(i, 1).Value = PartNum Then

您需要变量的值，而不是字符串。

编辑#1:

如果列 ，您的代码(如已发布)将起作用一个 仿佛是: