如何把区域有内容的单元格用划线连接起来？

作者：绿色风分类：时间：2022-08-17 浏览：134

楼主 liuguansky	Q:如何把区域有内容的单元格用划线连接起来？ A：用如下代码可以实现： Sub test() ActiveSheet.DrawingObjects.Delete Dim arr, xy() As Long, i&, j&, k& For i = 0 To 5 arr = [i3].Offset(, i * 5).Resize(70, 5).Value ReDim xy(3 To 72, 1) For j = 3 To 72 For k = 1 To 5 If Len(arr(j - 2, k)) Then xy(j, 0) = 270 + 108 * i + 21.75 * (k - 0.5): xy(j, 1) = 14.25 * (j - 0.5): Exit For Next If j > 3 Then ActiveSheet.Shapes.AddLine(xy(j - 1, 0), xy(j - 1, 1), xy(j, 0), xy(j, 1)).Select: Selection.ShapeRange.Line.ForeColor.SchemeColor = 10 Next Next End Sub
2楼 amulee
3楼 wcymiss	留个记号，省得找不着

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表