已解决请问在EXCEL 中插入N个小长方形，每个长方形里面都有不同编号

提问者：smile_smirk | 浏览次 | 提问时间：2017-10-06 | 回答数量：3

请问在EXCEL 中插入N个小长方形，每个长方形里面都有编号，怎样弄，因为数量有些多，不想一个一个去改，麻烦大神帮忙请问在EXCEL中插入N个小长方形，每个长方形里面都有不同编号(图1)

已有3条答案

愿得一人心yz

回答数：114 | 被采纳数：42

用VBA可以做到，示例如下请问在EXCEL 中插入N个小长方形，每个长方形里面都有不同编号(1)

代码如下Sub 批量插入图形并填充文本文本()For i = 1 To 21 ActiveSheet.Shapes.AddShape(msoShapeRectangle, _ Cells(2, (21 - i + 1) * 2).Left, _ Cells(2, (21 - i + 1) * 2).Top, _ Cells(2, (21 - i + 1) * 2).Width, _ Cells(2, (21 - i + 1) * 2).Height).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ i & "#" & vbCr & "注" & vbCr & "塑" & vbCr & "机" With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 3). _ ParagraphFormat .FirstLineIndent = 0 .Alignment = msoAlignLeft End WithNext iEnd Sub
可按需修改

2017-10-06 11:05:42

丿半角灬忧伤丶

回答数：67 | 被采纳数：12

这个问题的解决就需要VBAA代码。

2017-10-06 11:21:58

神骑誓

回答数：64 | 被采纳数：72

这个并不是excel格式里面的公式了，所以没有办法列公式。唯一的快捷方式就是，用表格先拉好1.2.3.4.5……然后，你把小长方形插入，改成底色透明度，大约40%。用excel的格式。如图：

2017-10-06 11:18:48