请求修改VBA代码：为使用区域所有单元格添加边框（含空白单元格）

Dim border As Range
Set border = ThisWorkbook.ActiveSheet.UsedRange

' 为整个UsedRange区域添加完整的细实线边框
With border.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

• 原代码通过循环遍历单元格，仅为非空单元格单独添加边框，导致区域内的空白单元格没有边框
• 新代码直接对整个UsedRange区域的所有边框统一设置样式，一次性覆盖区域内的所有单元格（包括空白单元格），实现你要的完整边框效果，同时代码更简洁高效

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