如何自动加边框线

linys00275

我不会用代码，条件格式是个好方法，简单

bluexuemei

qy1219no2 发表于 2013-7-6 00:08

这也是一种思路，学习！

qy1219no2

1. Sub AddBorders()
   
2.     Columns("A:C").Select
   
3.     With Selection
   
4.         .FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(TRIM(A1))>0"
   
5.         .FormatConditions(1).Borders.LineStyle = xlContinuous
   
6.     End With
   
7. End Sub

复制代码

yutiger0

学习学习，见识了一种发发

xie71

qy1219no2 发表于 2013-7-6 00:08

侠圣真是高手，谢谢！

kszcs

先留下记号

515spark

学习，不错

xxl0825

好用

wnccmxm

qy1219no2 发表于 2013-7-6 00:08

这个可能给有内容的单元格添加边框，如果中间有空单元格则不添加表框，表格看上去不美观，应该在四至的区域内都添加上边框。