標題: [發問] 誤刪除列如何恢復 [打印本頁]

---

作者: s7659109    時間: 2016-10-5 11:24     標題: 誤刪除列如何恢復

Sub v_delete()
Dim k As Integer
Application.ScreenUpdating = False
nn7 = Sheets("市庫").[e65536].End(xlUp).Row
For k = 2 To nn7
  If Cells(k, 10) = "v" Then
  Rows(k).Delete
  End If
Next k
Application.ScreenUpdating = True
End Sub

---

作者: 准提部林    時間: 2016-10-5 21:05

For k = 2 To nn7 刪除不可由上而下, 除非多一道加工,
最妥當用 For k = nn7 To 2 Step -1 由下而上刪除,

執行巨集後, 無法復原, 不存檔關閉重開即可!

---

作者: s7659109    時間: 2016-10-6 08:52

本帖最後由 s7659109 於 2016-10-6 08:53 編輯

如果給使用者，可否改良剛執行按鈕(巨集)後，再執行一個按鈕(巨集)，不用退出，就此可以恢復原打v的列。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)