将公式从公式的最后一行拖到下一个，直到＆＃34; A＆＃34;结束

Question

我的问题是我有大的Excel文件，需要在复制值时拖下公式，我用示例表进一步解释：

我有一个在后台运行的vba脚本，在执行copys中丢失了来自另一个数据表的数据，这个复制过程是在For Each中，在那里我还想从最后一行复制公式，其中有公式来自范围D：F。
对于那些想要看到它的人来说，这是我的复制功能：

If rowNotFoundMain = True Then
    If cell2.Offset(0, 7).Value = 0 Then     ' Offset 7, sind die Ehrungen
        cell2.Interior.Color = vbYellow
    Else
        Set rFirstBlank = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Offset(1)
        ws2.Range(cell2.Address, cell2.Offset(0, 2).Address).Copy
        rFirstBlank.PasteSpecial

        ' INSERT DRAG DOWN FUNCTION HERE '

    End If
End If

我在互联网上查找了各种方法，但没有为我的问题找到合适的答案 为什么我直接问这个答案，无论如何都无济于事？很简单，我可以在理论上编程，但从未使用过VBA，我的老板想从我这里得到这个，我正在网上搜索所有内容。
我希望我的解释有意义，如果您需要进一步的信息，请不要犹豫，并要求离开 祝你有愉快的一周！

Answer 1

1. 选择D2：F6范围
2. 双击右下角的黑色方块
3. 你的公式被复制了！
4. 现在在录制宏
时也这样做
5. 检查录制的结果并采用您的情况。