小编TK4*_*795的帖子

我当前使用的代码：

Dim border As Range
Dim brng As Range

Set border = ThisWorkbook.ActiveSheet.UsedRange

For Each brng In border
brng.BorderAround _
    LineStyle:=xlContinuous, _
    Weight:=xlThin
End If
Next brng

左边的截图是我目前得到的，右边的截图是我想要实现的：

提前谢谢您。