返回列表 上一主題 發帖

[發問] 誤刪除列如何恢復

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享
希望支持!

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
3#
發表於 2016-10-6 08:52 | 只看該作者
本帖最後由 s7659109 於 2016-10-6 08:53 編輯

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

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-6-9 
2#
發表於 2016-10-5 21:05 | 只看該作者
For k = 2 To nn7 刪除不可由上而下, 除非多一道加工,
最妥當用 For k = nn7 To 2 Step -1 由下而上刪除,

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

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題