vba - 使用 End(xlUp) 格式化最低行

Question

我使用宏作为引用，并创建了这段代码来选择和格式化最后一行文本。但是，我收到语法错误。任何有关如何解决此问题的见解将不胜感激。

Dim Title As String
Title = "C. TEST PROCEDURE"
Sheets("Sheet1").Range("B56").End(xlUp).Offset(1, -1) = Title
Sheets("Sheet1").Range("A56").End(xlUp).Offset(0, 0).Select
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True

Answer 1

使用 Selection要求您保留工作表，例如 Sheet1积极的。如果您激活了另一张工作表并运行代码，您将收到错误消息。 Selection在 VBA 中是不好的选择。

尝试这个

With Sheets("Sheet1").Range("A56").End(xlUp).Offset(0, 0)
.Font.Underline = xlUnderlineStyleSingle
.Font.Bold = True
End With