各位大佬 表格内公式运行一次 可以将公式得到内容，自动复制到另一行(数值格式)，再次按下F9运行公式后，将新的结果复制刚刚复制好的哪一行后面

Sub 宏1()
    Dim arr, x
    arr = Range("A3:G3")
    x = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(x, 1).Resize(1, UBound(arr,2)) = arr
End Sub