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

实现这个功能VBA代码示例：

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

收到的鲜花

• qq2120215758 于 2023-07-19 09:14 送鲜花  1朵