嗨,
我正在使用 Excel 2013,
我需要“F”列中的自動過濾器“#N/A”,如果過濾“#N/A”沒有標題數據,則“Goto 0:”代碼會...
但是,我的代碼不起作用,轉到 0:
子測試sss()
'過濾器插入和#N/A 複製和粘貼
'VBA – 從代碼中關閉自動過濾器
如果 ActiveSheet.AutoFilterMode 那麼
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> 打開自動篩選
如果結束
'自動過濾第二列空白單元格過濾器
將 LastRow 變暗
LastRow = Range("B" & Rows.Count).End(xlUp).Row
出錯時繼續下一步'如果過濾則下一步沒有數據
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" '不適用的單元格過濾然後選擇可見單元格
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'如果過濾範圍沒有數據則停止複制粘貼
如果 Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 那麼
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'做一些代碼......
Application.CutCopyMode = False
其他
ActiveSheet.AutoFilterMode = False
轉到 0:
如果結束
'做一些代碼......
0:
END SUB
請幫助我,謝謝您的提前
如果過濾範圍沒有 data.zip 則停止複制粘貼
如果過濾範圍沒有 data.zip 則停止複制粘貼