excel导入外部数据时如何保存历史数据？

来源：百度知道编辑：UC知道时间：2024/07/04 10:29:28

遇到的问题是我用excel导入外部数据，链接了一个web查询，但是每次刷新数据后都是在原单元格刷新的数据，请问如何在刷新数据时保存上期历史数据？例如我的的A1为数据连接，如何将A1数据自动保存到B1,然后刷新A1后，数据又到B2保存。谢谢！回答后还有额外赠分！不胜感激！

如下图,在工作表中,A1是你要数据,先把你的数据复制粘贴到B1,在A2中输入1;

然后按ALT+F11,进入VBA编程,双击左边,ThisWorkbook,在右边粘贴下列代码,以后只要你的A1数据一变,就自动会在第2列后续单元格中保存历史数据的,希望能对你有所帮助.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim a, b, c

a = Val(Cells(1, 1).Value)

b = Val(Cells(1, 2).Value)

If a <> b Then

c = Val(Cells(2, 1).Value)

Cells(c + 1, 2).Value = Cells(1, 2).Value

Cells(1, 2).Value = Cells(1, 1).Value

Cells(2, 1).Value = c + 1

End If

End Sub