动态公式创建

Question

在Sheet1中 我有一个停滞的列，假设列“ A” 一次又一次地复制到同一工作表的下一个空列中

像第一个一样，它被复制到“ B”列中，然后找到下一个空列并在“ C”列中复制数据

->这是我的问题

我想在工作表2的“ A”列中创建公式 在Sheet1中用下一个填充列制作公式的地方

像

1. 首先进行计算：Sheet1!A1/Sheet1!B1

   几分钟后

2. 它在Sheet2的同一列“ A”中创建公式：Sheet1!A1/Sheet1!C1

   几分钟后

等等

Sub GoToNextCol()
    Application.ScreenUpdating = False

    Dim NextCol As Long
    NextCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column + 1

    Sheet1.Range("A1").CurrentRegion.Copy Sheet1.Cells(1, NextCol)

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Answer 1

你是这个意思吗？

在Sheet2单元格A1中

sheet2.range("a1").formula="=Sheet1!A1/Sheet1!" & cells(1,nextcol).address(0,0)