请教，如何在Excel2003中，使用VBA编码实现在指定区域添加和删除表格线？谢谢。

Sub abc()

''''增加线

Sheet1.Range("a1:c5").Borders.LineStyle = 1

''''删除线

Sheet1.Range("a1:c5").Borders.LineStyle = 0

End Sub

方法一：单击菜单栏中的“文件”/页面设置/页眉页脚/自定义页眉，在左、中右三个方框中输入页眉内容，然后在中间的方框中文字后面插入光标，敲一次回车键，再按键盘上的短横线键，一直添加三行半左右。不过这种办法做出来的是虚线。

方法二：先制作好EXCEL表格，将其它一切格式设置好，调出绘图工具，画一根直线和表格的页面宽度一样宽，选定这根直线，复制。再打开画图程序，点击编辑中的粘贴命令，将画布宽度尽量调整到直线宽度，保存为JEPG格式。然后进入“自定义页眉”界面，将光标定位在中间的方框中（如果有文字，就定位在文字后面）

方法三：将表格一切格式及页眉中内容完全做好后，在表格首行插入一行，按照表格列数合并刚才插入的行，在单元格格式中选择边框选项，在边框中单击上横线，添加好上横线。然后单击“文件”/页面设置/工作表，单击顶端标题行后面的按钮，在出现的界面中，选中刚才插入的行，单击确定。

方法三：在自定义页眉中，选中文字单击文本格式按钮，选择下划线，然后手工调整其长度。但这种方法不好掌控。

With Range("A1:B5,C:D,H:I").Borders(xlEdgeLeft)

'没有括号时，所有的边框

'括号内，xlEdgeLeft左边框，xlEdgeRight右边框,xlEdgeTop上边框,xlEdgeBottom下边框

'xlInsideVertical内部竖直线、xlInsideHorizontal内部水平线

.LineStyle = xlContinuous '普通线型，xlDot点线、xlDouble双细线……

.Weight = xlThin '线粗，xlHairline极细、xlThin细、xlMedium中、xlThick粗，也可以是数值

.ColorIndex = xlAutomatic '自动的颜色值，可以是0~50的整数，自己试试颜色

End With

-------------

其实，对那个 *** 作不会，可以先录制，然后到模块里看录制的代码，遇到不认识的关键字，用鼠标点在他中间，按F1会出现对应的系统帮助，里面很详细的

---