从第二列开始高亮显示VBA EXCEL列

我试图突出显示从第2行开始的一列这是我下面的代码

Dim Lastrow As Integer
Lastrow = Sheets("OPEN - REPEAT").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(var2).Sheets("OPEN - REPEAT").Columns("A2" & Lastrow).Interior.Color = vbYellow

我一直收到以下错误应用程序或对象定义错误1004 你知道我可能做错了什么吗？

.Columns（“A2”&Lastrow）

都错了。使用

.Range

，还需要指定一个结束列和结束行，因此应该如下所示：

Workbooks(var2).Sheets("OPEN - REPEAT").Range("A2:A" & Lastrow).Interior.Color = vbYellow

.Columns（“A2”&Lastrow）

完全错误。使用

.Range

，还需要指定一个结束列和结束行，因此应该如下所示：

Workbooks(var2).Sheets("OPEN - REPEAT").Range("A2:A" & Lastrow).Interior.Color = vbYellow

---

最后一列是什么颜色。它没有设置。它可能是我认为是我设置它的方式的任何数字。第三行应该是“工作簿（var2）。工作表（“打开-重复”）。范围（“A2:A”&Lastrow）。Interior.Color=vbYellowLast row是一个数字。它用a列中的一个值表示最后一行。它没有列表示。您要着色的最后一列是什么。它没有设置。它可能是我认为是我设置它的方式的任何数字。第三行应该是“工作簿（var2）。工作表（“打开-重复”）。范围（“A2:A”&Lastrow）。Interior.Color=vbYellowLast row是一个数字。它用a列中的一个值表示最后一行。它没有列表示。（@AngatvirSanghera-如果这解决了您的问题，您可以通过单击帖子左侧上/下箭头下方的复选标记将帖子标记为答案）嗨，这有一个问题，它最终突出显示24000行而不是一行used@AngatvirSanghera问题在于如何分配

Lastrow

的值。分配该值后，请使用

MsgBox

或

Deubg.Print

检查它是什么，然后找出分配的值不正确的原因。（@AngatvirSanghera-如果这解决了您的问题，您可以通过单击帖子左侧上下箭头下方的复选标记，将帖子标记为答案）嗨，这有一个问题，它最终突出显示24000行而不是一行used@AngatvirSanghera问题在于如何分配

Lastrow

的值。分配该值后，请使用

MsgBox

或

Deubg.Print

检查它是什么，然后找出为什么分配了不正确的值。