已解決請問在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

讚 11

丿半角灬憂傷丶

回答數：67 | 被采納數：12

這個問題的解決就需要VBAA代碼。

2017-10-06 11:21:58

讚 6

神騎誓

回答數：64 | 被采納數：72

這個並不是excel格式裏麵的公式了，所以沒有辦法列公式。唯一的快捷方式就是，用表格先拉好1.2.3.4.5……然後，你把小長方形插入，改成底色透明度，大約40%。用excel的格式。如圖：

2017-10-06 11:18:48

讚 6