（EXCEL宏）刪除指定的行
一）刪除A列有數據的行
Sub Delete_A_NoBlank()
'刪除A列有數據的行
'用法: 一張有很多條記錄（A列均有數據）的工作表,僅想保留某些特定的記錄,可將要保留的記錄的A列(第一列)數據清空
' 然后再運行此宏.
Range("A1").Select
n =ActiveCell.Row '當前行數,(刪除后的當前行數),本程序結束時(shí),n為保留下來(lái)的行數.
MaxRow = 500'處理的最大行數
Do WhileMaxRow > 0
If (Cells(n,1).Value <> "0") Then
Cells(n, 1).EntireRow.Delete '執行刪除動(dòng)作后,n不可加一
Else
n = n + 1
End If
MaxRow =MaxRow - 1
Loop
End Sub
二）刪除F列和J列為0的的行
Sub Delete_FJ_Blank()
'刪除F列和J列為0的的行
Range("A1").Select
n =ActiveCell.Row '當前行數,(刪除后的當前行數),本程序結束時(shí),n為保留下來(lái)的行數.
MaxRow = 500'處理的最大行數
Do WhileMaxRow > 0
If (Cells(n,6).Value = 0) And (Cells(n, 10).Value = 0)Then '數值型可用 0 或“0”
Cells(n, 1).EntireRow.Delete '執行刪除動(dòng)作后,n不可加一
Else
n = n + 1
End If
MaxRow =MaxRow - 1
Loop
End Sub
三）刪除F列、G列、H列、J列均為0的的行
Sub Delete_FGHJ_Blank()
'刪除F列、G列、H列、J列均為0的的行
Range("A1").Select
n =ActiveCell.Row '當前行數,(刪除后的當前行數),本程序結束時(shí),n為保留下來(lái)的行數.
MaxRow = 500'處理的最大行數
Do WhileMaxRow > 0
If (Cells(n,6).Value = "0") And (Cells(n, 7).Value = "0") _
And (Cells(n, 8).Value = "0") And (Cells(n, 10).Value = "0")Then '數值型可用 0 或“0”
Cells(n, 1).EntireRow.Delete '執行刪除動(dòng)作后,n不可加一
Else
n = n + 1
End If
MaxRow =MaxRow - 1
Loop
End Sub
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
