[已解决]如何运行后撤销

kidd1217

我在写好一个代码后，运行了代码
表格发生的发生了变化

我怎么恢复表格原来的样子 就是运行代码前

最佳答案

月排行榜 / 总排行榜

335081548

2012-6-30 21:47

1. Dim arr, a As Boolean
   
2. Sub test()
   
3.     If a = False Then arr = Sheet1.UsedRange: a = True
   
4.     '你的代码
   
5. End Sub
   
6. 
   
7. Sub 恢复()
   
8.     Sheet1.Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
   
9. End Sub

复制代码

跳转到最佳答案楼层

ws278106483

恢复不了的，
只有关掉EXCLE，不保存就可以了。唯一办法。

Select

代码运行后，不能直接恢复。
编写代码实现逆操作，可间接恢复。

335081548

1. Dim arr, a As Boolean
   
2. Sub test()
   
3.     If a = False Then arr = Sheet1.UsedRange: a = True
   
4.     '你的代码
   
5. End Sub
   
6. 
   
7. Sub 恢复()
   
8.     Sheet1.Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
   
9. End Sub

复制代码

scsys1

你的问题请参考附件。

ppp710715

学习了，谢谢高手们的指导！