VBA为动态区域加边框调用BorderAround报1004错误如何解决

• 核心语法错误：BorderAround 方法的参数传递写法不符合VBA规范。VBA中调用方法传递命名参数时，需要使用 参数名:=参数值 的格式，原代码把每个参数单独用括号包裹、用普通等号赋值的写法，会让VBA把括号内内容判定为布尔表达式计算，无法正确识别传入的参数值，直接触发方法调用失败。
• 区域计算逻辑有缺陷：原代码分别读取了A列、F列的最后非空行位置，但拼接目标区域时只用到了F列的最后行地址，定义的myrange2变量完全没有使用，会出现区域覆盖不全/多覆盖空白单元格的问题，极端场景下也会触发方法报错。
• 未显式指定所属工作表：所有Cells、Range对象没有明确绑定工作表，依赖当前激活的工作表，一旦激活表不是目标数据表，也可能出现异常。

直接替换为以下代码即可实现动态区域添加外围粗边框的效果，代码会自动识别A到F列的最大有效行范围，匹配PDF内容对应的区域：

Sub BorderFormat()
    Dim ws As Worksheet
    Dim lastValidRow As Long
    Dim targetRange As Range
    
    ' 绑定要操作的工作表，如需指定固定工作表可替换为 Set ws = Sheets("你的表名")
    Set ws = ActiveSheet
    
    ' 计算A列、F列中最大的最后非空行号，避免区域判断偏差
    lastValidRow = Application.Max( _
        ws.Cells(ws.Rows.Count, 1).End(xlUp).Row, _
        ws.Cells(ws.Rows.Count, 6).End(xlUp).Row _
    )
    
    ' 拼接得到完整的目标数据区域
    Set targetRange = ws.Range("A1:F" & lastValidRow)
    
    ' 正确传参添加外围边框：颜色索引33、粗线宽
    targetRange.BorderAround ColorIndex:=33, Weight:=xlThick
End Sub

如果PDF内容覆盖的列不止A到F，只需要在Application.Max的参数里补充对应列的最后行计算语句即可。

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