Question

我正在尝试突出显示从第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 知道我可能做错了什么吗？

Answer 1

.Columns("A2" & Lastrow)都错了。使用.Range，您还需要指定结束列和结束行，因此它应如下所示：

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

从第二列开始突出显示列VBA EXCEL

1 个答案: