Got it, let's walk through how to adjust your existing code to select rows 1 to 27 in that last used column, then apply borders. Here's what you can do:

步骤1：定位目标列并选择范围 #

First, we'll capture the column number of that last used column (from your original code), then define the range from row 1 to 27 in that column. Here's the full code:

With ActiveSheet ' 替换成你的目标工作表，比如 Sheets("数据报表")
    ' 获取第1行最后一个有内容的列号
    Dim targetColumn As Long
    targetColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
    ' 选择该列第1行到第27行的单元格
    .Range(.Cells(1, targetColumn), .Cells(27, targetColumn)).Select
    
    ' 接下来设置边框样式
    With Selection.Borders
        .LineStyle = xlContinuous ' 可改成xlDash（虚线）、xlDot（点线）等
        .Weight = xlThin ' 调整粗细：xlHairline（极细）、xlMedium（中等）、xlThick（粗）
        .ColorIndex = xlAutomatic ' 也可指定颜色，比如vbBlack（黑色）
    End With
End With

优化建议：避免使用Select（更高效的写法） #

在VBA里，Select往往是多余的，还可能因为工作表切换导致错误。更高效的方式是直接操作范围，不需要先选中：

With ActiveSheet
    Dim targetColumn As Long
    targetColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
    ' 直接给目标范围设置边框，无需选中
    With .Range(.Cells(1, targetColumn), .Cells(27, targetColumn)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With

代码说明 #

• With ActiveSheet块确保所有操作针对正确的工作表，如果需要固定工作表，把ActiveSheet换成具体的表名即可。
• targetColumn用你原有的逻辑，储存第1行最后一个有内容的列的编号。
• .Range(.Cells(1, targetColumn), .Cells(27, targetColumn))精准定义了需要操作的范围：目标列的第1到27行。
• 内层的With .Borders块可以根据需求自定义边框的样式、粗细和颜色。

内容的提问来源于stack exchange，提问作者Bruno Pereira