試圖突出顯示列的使用範圍

我遇到了突出顯示列使用範圍的問題。下面的代碼創建兩個工作表的副本，刪除一些值，然後應該突出顯示某些列。試圖突出顯示列的使用範圍

Sub CreateAnalysisSheets() 
    Dim cell, HlghtRng As Range 
    Dim i As Integer 
    Dim ref, findLast, findThis As String 
    Dim lastRow As Long 
    findLast = "2016" 
    findThis = "2017" 
    Application.ScreenUpdating = False 
    Sheets(1).Copy After:=Sheets(2) 
     ActiveSheet.Name = Left(Sheets(1).Name, InStr(1, Sheets(1).Name, " ")) & "Analysis" 
    Sheets(2).Copy After:=Sheets(3) 
     ActiveSheet.Name = Left(Sheets(2).Name, InStr(1, Sheets(2).Name, " ")) & "Analysis" 
    Sheets("RM Analysis").Select 
     For Each cell In ActiveSheet.UsedRange 
      If cell.Value = "NULL" Then 
       cell.ClearContents 
      End If 
     Next cell 
     For Each cell In Range("1:1") 
      ref = cell.Value 
      lastRow = Range("R" & Rows.Count & "C" & cell.Column).End(xlUp).Row 
      Set HlghtRng = Range(Cells(1, cell.Column) & Cells(lastRow, cell.Column)) 
      If InStr(1, ref, findLast) > 0 And InStr(1, ref, "YTD") = 0 Then 
       HlghtRng.Interior.ColorIndex = 8 
      End If 
     Next cell 
    For Each cell In Sheets(4).UsedRange 
     If cell.Value = "NULL" Then 
      cell.ClearContents 
     End If 
    Next cell 
    Sheets("RM Analysis").Select 
    Application.ScreenUpdating = True 
End Sub

，問題就出現在哪裏lastRow = Range("R" & Rows.Count & "C" & cell.Column).End(xlUp).Row我得到一個Method 'Range' of Object '_Global' Failed。我試過尋找解決這個問題的方法，但我試過的一切（ActiveSheet.Range和Sheets("RM Analysis").Range）還沒有工作。

任何人都可以看到我要去哪裏嗎？

來源

2017-04-13 Will Clein

的xlR1C1語法污染了您的最後一個非空白單元格的請求列。

lastRow = Cells(Rows.Count, cell.Column).End(xlUp).Row

我強烈建議您避免依賴ActiveSheet並使用顯式父工作表引用。這可以通過使用With ... End With以及在全部Range和Cells之間以及.之類的.Range(...)或.Cells(...)而變得非常簡單。

一旦您在With ... End With聲明中，所有的參考文獻都需要以.開頭。此外，以下不是字符串連接（例如&），而是作爲.Range（起始單元格逗號結束單元格）操作。

with worksheets("RM Analysis") 
    ... 
    Set HlghtRng = .Range(.Cells(1, cell.Column), .Cells(lastRow, cell.Column)) 
    ... 
end with

來源

2017-04-13 13:46:58 Jeeped

感謝您的建議。我絕對同意'With ... End With'，並且已經做出了這些修改，包括對xlR1C1語法的修復。現在我在'Set HlghtRng'位得到'應用程序定義或對象定義的錯誤'。我不確定爲什麼這麼簡單會給我帶來很多麻煩 –

請參閱上面的建議修改。 – Jeeped

完美！這麼小但很大的變化。謝謝你的幫助！ –

本應該做的

Columns(1).Interior.ColorIndex = 3

更改列的數量爲你想，高亮

來源

2017-04-13 13:45:55 Ionut

我不想突出顯示整列。只是最後一次使用的行，這就是爲什麼我定義'HlghtRng'。 –

好，然後試試這個 HlghtRng.EntireRow.Interior.ColorIndex = 8 – Ionut

試圖突出顯示列的使用範圍

回答

相關問題