使用范围中的数据填充最后一列

Question

我知道我们可以使用以下代码获取包含数据的最后一行：

  

LastRow = .Range（“D”＆amp; .Rows.Count）.End（xlUp）.Row

但是我在使用数据获取最后一列时遇到了麻烦。这是我尝试过的，你可以从图像中看到它没有通过

Set ws = ThisWorkbook.ActiveSheet
With ws 
 Header = 5
 LastRow = .Range("D" & .Rows.Count).End(xlUp).Row
 LastCol = .Range(5 & .ColumnCount).End(xlLeft).Column
    With .Range("A" & Header & LastCol & LastRow)
         .Interior.ColorIndex = 16
    End With
End With

你能告诉我锄头我可以解决这个问题吗？感谢

Answer 1

试试这个，因为我评论过：

Lastcol = .Cells(5, Columns.Count).End(xlToLeft).Column

我不确定是xlLeft还是xlToLeft。亲自尝试一下。

使用此颜色为整个范围着色：

With .Range(Cells(1,5),Cells(Lastrow,Lastcol)
    .Interior.ColorIndex = 16
End With

将此颜色A5添加到您的上一列和第一行。