VBA Excel突出顯示另一個工作表上的范圍

Question

在這里潛伏了很長時間，我終於陷入困境，嘗試編寫一些VBA以突出顯示另一個工作表中B到S列中的所有行，因為所有行中S列中的值都大於另一個工作表中的H10。 這段代碼可以正常工作：

Dim i As Long
For i = 2 To Rows.Count
If Worksheets("Initial Data").Cells(i, 19).Value > Worksheets("Inputs").Range("H10").Value Then
Worksheets("Initial Data").Cells(i, 19).Interior.ColorIndex = 4
End If
Next i
Worksheets("Initial Data").Activate

這將突出顯示列S中所需的每個單元格。 我要做的是突出顯示從B到S的單元格，如下所示：

Dim i As Long
For i = 2 To Rows.Count
If Worksheets("Initial Data").Cells(i, 19).Value > Worksheets("Inputs").Range("H10").Value Then
Worksheets("Initial Data").Range(.Cells(i, 2), .Cells(i, 19)).Interior.ColorIndex = 2
End If
Next i
Worksheets("Initial Data").Activate

...但是它不起作用，出現運行時錯誤。 我已經完成了大部分艱苦的工作，這實在令人沮喪！

哦，在有人提出條件格式建議之前，sub讀取的數據每次都會重新粘貼，所以這是不可以的。 感謝您的任何投入！

Answer 1

嘗試刪除.Cells(i, 2)之前的點vba不知道您的意思是哪個單元格

將Worksheets("Initial Data").Range(.Cells(i, 2), .Cells(i, 19)).Interior.ColorIndex = 2更改為Worksheets("Initial Data").Range(Cells(i, 2), Cells(i, 19)).Interior.ColorIndex = 2

或使用With - > MSDN ：

With Worksheets("Initial Data")
    .Range(.Cells(i, 2), .Cells(i, 19)).Interior.ColorIndex = 4
End With