Public Sub det() Dim r As Range n = ActiveSheet.UsedRange.Rows.Count Cells(1, 256).End(1).Select For i = 1 To n If Cells(i, 1) = "" And Cells(i, 256).End(1).Column = 1 And Not Cells(i, 1).MergeCells Then If r Is Nothing Then Set r = Rows(i) Else Set r = Union(r, Rows(i)) m = m + 1 End If Next If Not r Is Nothing Then r.Delete (3): MsgBox "删除行数:" & m End Sub 这个是删除空白行的,有用吗
Dim r As Range
n = ActiveSheet.UsedRange.Rows.Count
Cells(1, 256).End(1).Select
For i = 1 To n
If Cells(i, 1) = "" And Cells(i, 256).End(1).Column = 1 And Not Cells(i, 1).MergeCells Then
If r Is Nothing Then Set r = Rows(i) Else Set r = Union(r, Rows(i))
m = m + 1
End If
Next
If Not r Is Nothing Then r.Delete (3): MsgBox "删除行数:" & m
End Sub
这个是删除空白行的,有用吗
Worksheet sheet = ( Worksheet )book.Sheets[ "Sheet1" ]; int rowCount=sheet.UsedRange.Rows.Count; int colCount = sheet.UsedRange.Columns.Count;