当首列无数据时为Excel已用区域添加边框的VBA问题

原代码的问题 #

你的VBA代码存在多处语法和逻辑错误：

• 语法错误：.Range("A:O"), iRange) 括号不匹配，导致代码无法正常运行
• 逻辑混乱：重复给iRange赋值，且错误引用整列A:O，导致边框应用到超出已用区域的单元格
• 多余语句：存在无对应If的End If，LastRow变量定义后未实际使用

修正后的代码 #

以下代码会准确识别从第1行到C列最后非空行的A-O列区域（覆盖需要供应商填写的A、B列和现有数据的C-O列），并为该区域添加边框：

Sub AddCorrectBorders()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 指定目标工作表，避免使用ActiveSheet导致的错误
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取C列最后有数据的行号（因为A、B列无数据）
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 定义目标范围：A1到O列最后数据行
    Set targetRange = ws.Range("A1:O" & lastRow)
    
    ' 为目标范围添加边框
    With targetRange.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

代码说明 #

• 明确指定工作表Sheet1，避免依赖ActiveSheet可能带来的误操作
• 通过C列确定最后数据行，适配A、B列当前无数据的情况
• 精准定义范围为A1:O[lastRow]，既覆盖需要供应商填写的A、B列，又不会超出已用数据的行范围
• 统一设置边框样式为细实线

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