如何自动加边框线

ning84 · 发表于 2013-7-5 23:18

加边框线的单元格Rng的行数不等。如何用VBA自动加边框线。谢谢。

东亚五金 · 发表于 2013-7-5 23:31

条件格式
单元格无空值

dajiahaoxinku12 · 发表于 2013-7-5 23:35

选取a:c列，ctrl+f, 查找中输入*，ctrl+a ,最后加边框即可

bluexuemei · 发表于 2013-7-5 23:42

本帖最后由 bluexuemei 于 2013-7-5 23:44 编辑

Sub bxm()
Dim i
For i = 1 To [A65536].End(3).Row
If Cells(i, 1) <> "" Then Range(Cells(i, 1), Cells(i, 1).End(2)).Borders.LineStyle = 1
Next
End Sub

复制代码

bluexuemei · 发表于 2013-7-5 23:50

dajiahaoxinku12 发表于 2013-7-5 23:35
选取a:c列，ctrl+f, 查找中输入*，ctrl+a ,最后加边框即可

这个确实是好方法，学习

bluexuemei · 发表于 2013-7-5 23:51

本帖最后由 bluexuemei 于 2013-7-6 00:06 编辑

dajiahaoxinku12 发表于 2013-7-5 23:35
选取a:c列，ctrl+f, 查找中输入*，ctrl+a ,最后加边框即可

这样操作确实很快，你的方法用VBA怎么表示？

bluexuemei · 发表于 2013-7-5 23:52

dajiahaoxinku12 发表于 2013-7-5 23:35
选取a:c列，ctrl+f, 查找中输入*，ctrl+a ,最后加边框即可

这个确实是好方法，学习。

bluexuemei · 发表于 2013-7-5 23:58

复制代码

dajiahaoxinku12 · 发表于 2013-7-6 00:04

bluexuemei 发表于 2013-7-5 23:50
这个确实是好方法，学习

楼主要的是代码，老师的代码才是最完美的，向老师学习

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

复制代码

		自动登录	找回密码
密码			免费注册