在公式的另一行中插入公式

Question

我有一张excel表，其中多个范围一个在另一个之下。范围只有一行，有多个公式。公式需要在该行下面复制。我需要用循环调整每一个。但是由于有多个功能，因此End功能不起作用。

For i = 1 To 2
resizeSh.Range("tablename").EntireRow.Copy 
Destination:=resizeSh.Range("tablename").End(xlUp).Offset(1, 0)
Next

有没有人有解决方案如何找到指定范围的最后一行并再次插入相同的公式几次？

我也尝试了这个，但是它代替2它增加了3行，我找不到原因：

 For i = 1 To 2
  ActiveSheet.Range("range").Cells(1, 1).Offset(1).EntireRow.Insert 
  Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
  ActiveSheet.Range("range").Cells(1, 1).EntireRow.Copy
  ActiveSheet.Range("range").Cells(1, 1).Offset(1).EntireRow.PasteSpecial xlPasteFormats
  Application.CutCopyMode = False
 Next

Answer 1

我不确定我是否遵循了您的目标，但这可能有所帮助。

With Range("range")
   .Copy
   .Offset(1).Resize(3).Insert shift:=xlDown
End With