使用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

Answer 2

您的代码可以使用适当的数据。

从：

开始

您的代码生成：

Answer 3

代码运行没有任何语法错误，但如果您要格式化最后一行，以下内容适用于我

Dim Title As String, ws As Worksheet
Set ws = ActiveSheet
Title = "C. TEST PROCEDURE"
ws.Cells(ws.Rows.count, "B").End(xlUp).Offset(1, -1) = Title
ws.Cells(ws.Rows.count, "A").End(xlUp).Offset(0, 0).Select
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True

我不确定第56行是否有任何重要内容，但这会获得该列中使用的最后一行。