返回列表 上一主題 發帖

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

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 
2#
發表於 2016-10-6 08:52 | 顯示全部帖子
本帖最後由 s7659109 於 2016-10-6 08:53 編輯

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

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題