|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 dsmch 于 2012-10-27 19:23 编辑
开始处增加一行代码:
Range("C:C, E:E").SpecialCells(xlCellTypeConstants, 1).Delete
alt+f8执行代码或点击工具栏上的绿三角执行宏
按钮右键点击剪切掉
- Dim rng1 As Range, rng2 As Range, i&
- ActiveSheet.DrawingObjects.Delete
- 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
- Next
复制代码
|
|