无效或不合格的引用：lastRA = .Range（“A2”＆.Rows.Count）.End（xlUp）.Row

为什么我收到以下错误

无效或不合格参考“

在这一行： lastRA = .Range("A2" & .Rows.Count).End(xlUp).Row与.Rows突出显示？

 Sub HighlightUpgrds() Dim lastRA As Long Dim ws As Worksheet Dim linecount As Long Dim rng1 As Range Dim rng2 As Range linecount = 2 Set ws = Worksheets("Walk Ups") Set rng1 = Cells(linecount, "N") Set rng2 = Cells(linecount, "O") lastRA = .Range("A2" & .Rows.Count).End(xlUp).Row For i = 1 To lastRA If Cells(linecount, "N") <> Cells(linecount, "O") Then Cells(linecount, "N").Interior.Color = RGB(255, 255, 64) Cells(linecount, "O").Interior.Color = RGB(255, 255, 64) Else End If linecount = linecount + 1 Next i End Sub 

Answer 1

更改lastRA = .Range("A2" & .Rows.Count).End(xlUp).Row

 lastRA = ws.Range("A" & ws.Rows.Count).End(xlUp).Row 

或者把一个With ws … End With它周围：

 With ws lastRA = .Range("A" & .Rows.Count).End(xlUp).Row End With 

你应该总是完全限定你的细胞/范围：
另外在你的代码像Cells(linecount, "N")应该被限定到工作表，例如ws.Cells(linecount, "N")

Answer 2

尝试以下方法之一…

 Sub HighlightUpgrds() Dim lastRA As Long Dim ws As Worksheet Dim linecount As Long Dim rng1 As Range Dim rng2 As Range linecount = 2 Set ws = Worksheets("Walk Ups") Set rng1 = ws.Cells(linecount, "N") Set rng2 = ws.Cells(linecount, "O") lastRA = ws.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To lastRA If ws.Cells(linecount, "N") <> ws.Cells(linecount, "O") Then ws.Cells(linecount, "N").Interior.Color = RGB(255, 255, 64) ws.Cells(linecount, "O").Interior.Color = RGB(255, 255, 64) Else End If linecount = linecount + 1 Next i End Sub 

要么

 Sub HighlightUpgrds() Dim lastRA As Long Dim ws As Worksheet Dim linecount As Long Dim rng1 As Range Dim rng2 As Range linecount = 2 Set ws = Worksheets("Walk Ups") With ws Set rng1 = .Cells(linecount, "N") Set rng2 = .Cells(linecount, "O") lastRA = .Range("A" & .Rows.Count).End(xlUp).Row For i = 1 To lastRA If .Cells(linecount, "N") <> .Cells(linecount, "O") Then .Cells(linecount, "N").Interior.Color = RGB(255, 255, 64) .Cells(linecount, "O").Interior.Color = RGB(255, 255, 64) Else End If linecount = linecount + 1 Next i End With End Sub