|
dsmch 发表于 2012-10-27 19:21
开始处增加一行代码:
Range("C:C, E:E").SpecialCells(xlCellTypeConstants, 1).Delete
alt+f8执行代码或 ...
老师您好以下是您帮网友的编程
Dim rng1 As Range, rng2 As Range, i&
For i = 2 To Range("b65536").End(xlUp).Row - 1
Set rng1 = Cells(i, 2).Offset(0, Cells(i, 2))
Set rng2 = Cells(i + 1, 2).Offset(0, Cells(i + 1, 2))
x1 = rng1.Left + rng1.Width / 2
y1 = rng1.Top + rng1.Height / 2
x2 = rng2.Left + rng2.Width / 2
y2 = rng2.Top + rng2.Height / 2
ActiveSheet.Shapes.AddLine(x1, y1, x2, y2).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.Weight = 1
Next
我想用这个程序。对VBA不了解,这个程序的数据源为b列、而我的数据源为ea列、尝试把For i = 2 To Range("b65536").End(xlUp).Row - 1改成For i = 2 To Range("ea65536").End(xlUp).Row - 1,执行程序结果在b2列是一条竖的直线,请教如何修改。这个程序是您2012-10-27 发表的。非常感谢我的邮箱:905400857@qq.com |
|