EXCEL VBA 如何提取制定单元格数据 并记录在另一列单元格内

Question

我再补充下 例如A1有一个根据公式在变化的数据，我需要制作一个按钮，按一下他就会提取这个公式数据的当前值并记录在指定的单元格内 再按一下又会记录一个值在下一个单元格内 以此类推

Answer 1

Sub æŒ‰é’®1_Click()
Dim myRow As Single
myRow = ActiveSheet.Cells(65536, 2).End(xlUp).Row
ActiveSheet.Cells(myRow + 1, 2) = ActiveSheet.Range("A1")
End Su

Answer 2

Sub xxx()
Calculate
Range("B" & Range("B65536").End(xlUp).Row + 1) = [A1]
End Sub

Answer 3

结果想放在哪没说清楚，是依次往下，还是依次往右追问

依次往下吧