VBA Excel高亮显示另一工作表上的范围

在这里潜伏了很长一段时间，我终于被难倒了，因为我试图编写一些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每次读取的数据都是新粘贴的，所以这不是问题。谢谢您的输入

在

之前尝试删除点。单元格（i，2）

vba不知道您指的是哪个单元格

更改

工作表（“初始数据”）.Range（.Cells（i，2），.Cells（i，19））.Interior.ColorIndex=2

到

工作表（“初始数据”）.范围（单元格（i，2），单元格（i，19））.Interior.ColorIndex=2

或将

与

->一起使用：

---

在

之前尝试删除点。单元格（i，2）

vba不知道您指的是哪个单元格

更改

工作表（“初始数据”）.Range（.Cells（i，2），.Cells（i，19））.Interior.ColorIndex=2

到

工作表（“初始数据”）.范围（单元格（i，2），单元格（i，19））.Interior.ColorIndex=2

或将

与

->一起使用：

---

第一个不起作用，但是With语句起了很大作用，谢谢！我以前尝试过with语句，但没有。您也可以使用…your（first）检查此

工作表（“初始数据”）.Range（工作表（“初始数据”）.Cells（I，2）、工作表（“初始数据”）.Cells（I，19））.Interior.ColorIndex=2

@Dawid，而不使用

如果且仅当
初始数据
是活动表单时，建议才会起作用第一张表单不起作用，但With语句效果很好，谢谢！我以前尝试过with语句，但没有。您也可以使用…

your（first）检查此

工作表（“初始数据”）.Range（工作表（“初始数据”）.Cells（I，2）、工作表（“初始数据”）.Cells（I，19））.Interior.ColorIndex=2

@Dawid，而不使用

当且仅当
初始数据
是活动工作表且数据是。粘贴<到工作表中还是手动粘贴时，建议才会起作用？即使它已粘贴，您仍然可以执行条件格式设置。您只需确保值没有粘贴任何其他内容。数据是.Paste<粘贴到工作表中还是手动粘贴？即使它已粘贴，您仍然可以执行条件格式设置。您只需确保粘贴了值，而无需其他操作。
With Worksheets("Initial Data")
    .Range(.Cells(i, 2), .Cells(i, 19)).Interior.ColorIndex = 4
End With