添加行与公式的自动复制

蓝天羽

请诸位不吝指教:
      表中蓝色区皆为公式,当需要添加行时,公式需要一列一列向下拖填充.一直想利用VBA设计一下,比如一次添加二十行,再将蓝色区有公式的列全部向下填充二十个单元格,怎么实现,一直没有达成,请诸们高手不吝赐教!谢谢!<img src="attachments/dvbbs/200382820455814543.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

蓝天羽

如有好方法,请指教.在日常工作中,重复性的工作费时又费力,在VBA中怎么给单元格定位呢?

sanwa

其实不难，你可以记录下一个宏，动作是复制第一行(已经设好了公式的行)，复制好后，在下一行(或是目前工作表中第一个空行)粘上，之后选定那些没有公式的单元格，删除其中内容，这样不就可以了，之后把它赋给一个按钮，每次按一下就可以完成一次增加行并带公式。我在办公室有好多个表都是这样的，很好用，你可能遇到的问题是如何定位在工作表中的第一个空行，其实你可以在第一列加上一个助行输入行号，这样就可以定位到行号最大的这行的下一行。还是不行的话，我明天把办公室的文件拿回来，有过我想你可以试试先。

蓝天羽

感谢诸位的不吝指教,经过查阅和努力,终于用VBA写出了代码,共同参考.其实直接进行复制和粘贴最方便的,不过加入一个命令控件并赋于代码也不失为一种锻炼.
Private Sub CommandButton1_Click()
    Range("o1") = Range("o1") + 1
    Line = Trim(Str(Range("o1").Value + 3))
    Range("A" + Line).Select
    Selection.EntireRow.Insert
        With Selection
        Line = Trim(Str(Range("o1").Value + 2))
        Range("i" + Line).Select
        Selection.Copy
        Line = Trim(Str(Range("o1").Value + 3))
        Range("i" + Line).Select
        Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Application.CutCopyMode = False
        End With
        Range("b" + Line).Select
End Sub

p123456789

单元格的表示法:
cells(x,y)
x代表行
y代表列
如果循环
比如:
y=2
z=20
for x=1 to z
    cells(x,y).formula="=******"
next x