怎樣把EXCEL裡面的同資料的行批次刪除行？

沫2019-10-11 02:13:02

vb程式碼如下：

Sub 刪除為0的行（）

Dim Rng As Range， Cel As Range

For Each Cel In Range（［h1］， ［h65536］。End（3））

If Cel = 0 Or Cel = “” Then

If Rng Is Nothing Then Set Rng = Cel Else Set Rng = Union（Rng， Cel）

End If

Next

Rng。EntireRow。Delete

End Sub

我做的是h列為0，你是哪一列自己改一下， Range（［h1］， ［h65536］。End（3））改這一句。If Cel = 0 Or Cel = “”

這句是判斷0值和空值刪除

另，我發現你表格裡的0是以字元形式存放的，如果你執行這段程式碼沒有反映的話，你就將表格中的0改轉換為數字，或者是將語句中的If Cel = 0 改為Cel = “0”就可以了。