从单元读取值时，VBAtypes不匹配错误

我正在读取电子表格的值，并使用下面的代码在读取值上加1。 该错误发生在ModelNumber = PreviousModel + 1 ，它说types不匹配。 LastRowPrevious显示正确，但PreviousModel显示为空。 请帮忙。 谢谢！

 Option Explicit Public ModelNumber As String Public PreviousModel As String Public FinalModelNumber As String Sub TrackerInput() Dim ModelDescription As String Dim LastRowPrevious As String LastRowPrevious = Worksheets("Model Tracker").Cells(Rows.Count, 1).End(xlUp).Row If LastRowPrevious = 2 Then ModelNumber = 2 PreviousModel = 1 Else PreviousModel = Cells(LastRowPrevious, 1).Value ModelNumber = PreviousModel + 1 End If MsgBox ("You are creating a new model. Model number is " & ModelNumber) End Sub 

Answer 1

这对我来说非常合适：

 Option Explicit Public ModelNumber$ Public PreviousModel$ Public FinalModelNumber$ Sub TrackerInput() Dim ModelDescription$ Dim LastRowPrevious$ With ThisWorkbook.Worksheets("Sheet1") LastRowPrevious = .Cells(.Rows.Count, 1).End(xlUp).Row If LastRowPrevious = 2 Then ModelNumber = 2 PreviousModel = 1 Else PreviousModel = .Cells(LastRowPrevious, 1).Value ModelNumber = PreviousModel + 1 End If End With Debug.Print ; LastRowPrevious Debug.Print ; PreviousModel Debug.Print ; ModelNumber MsgBox ("You are creating a new model. Model number is " & ModelNumber) End Sub 

注意到我完全引用了工作表，而不是试图让VBA找出我指的是什么工作表。