根据单元格的数字插入行，然后复制某列的数字。急求高手！

欧阳11

RT，附件有要求，请教VBA的高手，谢谢

dsmch

………………

dsmch

1. Dim x
   
2. Sub Macro1()
   
3. x = x + 1
   
4. If x = 1 Then
   
5.     For i = Range("n65536").End(xlUp).Row To 2 Step -1
   
6.         If Cells(i, "n") > 1 Then Rows(i + 1).Resize(Cells(i, "n"), 256).Insert
   
7.     Next
   
8.     With Columns(5)
   
9.         .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
   
10.         .Value = .Value
    
11.     End With
    
12. End If
    
13. End Sub
    

复制代码

欧阳11

dsmch 发表于 2013-1-6 19:21

高手，您好，我对这个VBA完全就是菜鸟，可以说白痴级别。谢谢您给我写的代码。我但是现在如何操作都不知道，您是否可以给我做个GIF动画，怎么在EXCEL中来运行这个代码，然后实现自己想要的。谢谢

欧阳11

dsmch 发表于 2013-1-6 19:21

高手，谢谢你了。我试出来了！谢谢

dsmch

1. If Cells(i, "n") > 1 Then Rows(i + 1).Resize(Cells(i, "n")-1, 256).Insert
   

复制代码

欧阳11

dsmch 发表于 2013-1-6 19:21

您好，在运行后那个行数加上原来的一行就多了，多出一行，怎么改一下在包括原来的一行呢、比如后面是21托，只用复制20行出来就可以了