Excel 中用VBA加表线的问题

Excel 中用VBA加表线的问题

1.单元格列宽为0.5cm，要求A列数据与直线长度一致。

2.第二行及以后的直线起点为上一行直线的终点。

3.数据为空时，不显示！且下一行的起点为上面非空最后一行的终点。
弄了个代码：
Sub 画线()
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Shapes.AddLine(Columns("a:b").Width, Rows(1).Height / 2, Columns("a:b").Width + Columns(3).Width * Range("a1") * 2, Rows(1).Height / 2).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 38 '线条颜色
Selection.ShapeRange.Line.Weight = 2#
End Sub

Sub jjj()
Dim i%
For i = [a65536].End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete
Next i
End Sub
用上面代码就能删掉重复项了
先建个窗口,再加个按钮,在按钮事件里加入上面的代码.
Dim i%
For i = [a65536].End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete
Next i
不清楚,再用消息联系吧

参考资料：百度一下

假设要加表格的区域是A1:A5
则代码如下:
With Range("A1:A5").Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

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会出现对应的系统帮助，里面很详细的

Range.Borders
Range.BorderAround
参考上面的帮助文件