VBA为Excel表格已用区域一键添加边框

     今天跟大家分享一段添加边框的代码，欢迎点赞收藏。

已用区域添加边框

Private Sub CommandButton1_Click()

With UsedRange.Borders

      .LineStyle = xlContinuous

      .Weight = xlThin

      .Color = RGB(0, 0, 0)

End With

End Sub

第一步、以WPS软件为例，在表格中，选择【开发工具】进入【设计模式】，在工作表任一位置插入一个“命令按钮”。

第二步、还是在设计模式下，双击这个命令按钮，弹出VBE编辑窗口，复制以上代码到代码编辑器图中空白区域，并保存。

第三步、点击命令按钮，即可为已用区域添加边框。

快来试试吧，代码可以复制保存，重复使用，是不是比手动添加边框快多了？

欢迎点赞关注，更多技巧欢迎查看公众号主页！