作者：乔山办公网日期：
返回目录：excel表格制作
''用VBA代码百可度以吗?
''怎么现在的问人都是问了答问题后就不见人了...
''在你的表中新建一个commandbutton,把以下代码都复制到commandbutton里面,点击专运行属,就能达到你的效果:
Private Sub CommandButton1_Click()
Row1 = Range("d65536").End(xlUp).Row
Sum1 = Application.WorksheetFunction.Sum(Columns("d:d")) - Row1
For I = 1 To Sum1
Temp1 = Range("d" & I)
If Temp1 > 1 Then
Rows(I + 1 & ":" & I + Temp1 - 1).Insert
Range("a" & I & ":c" & I + Temp1 - 1).FillDown
For j = 0 To Temp1 - 1
Range("d" & I + j) = j + 1
Next j
End If
I = I + Temp1 - 1
Next I
End Sub
比如要把这21个不一样的数百自动粘贴5次
也就是21*5=105行
选中剩度下的空格，再用CTRL+G，按图操作
直接知CTRL+V即可
得到结果，每个数值都粘贴了道5次
第一次回答，不知版道格式会不会很乱，看看能不能解权决你的问题了
使用下拉填充功能即可实现，具体操作步骤如下copy：
所需材料：Excel。
一、如下图，百要复制A1-A3几的文字多行，这时在B列内添加一个数字辅助列。
二、选中AB两列前三行，然后进行下拉填充。
三、度接着点击自动填充选项，菜单内点击“复制单元格”。
四、接着点击开始选项下问的“排序”，下拉菜单内点击“升序”。
五、答这时就可以按原顺序把相同的数据排序在一块了。
复制好内容以后，你可以按住Ctrl键不动，然后点击要粘贴的行，然后点“粘贴”即可一下子复制到所有指定行。