刪除行範圍

Question

我想在一個範圍內，以刪除空行基於關閉空白單元格

我的代碼如下所示：

Dim rng As Range 
Dim i As Long, counter As Long 

i = 1 

Range("B1").Select 
Selection.End(xlDown).Offset(0, 5).Select 

Set rng = Range("G2", ActiveCell) 

Range("G2").Select 

For counter = 1 To rng.Rows.Count 

    If rng.Cells(i) = "" Then 
     rng.Cells(i).EntireRow.Delete 
    Else 
     i = i + 1 
    End If 

Next 

所以，hmqcnoesy已經好心幫我解決了錯誤信息。該變量應該變暗爲LONG不是整數，因爲整數不能容納大了一些我的數據

此外的所有行，Jon49給了我一些代碼，這是很多MROE高效地爲這一過程：

Dim r1 As Range 'Using Tim's range.  
Set r1 = ActiveSheet.Range(Range("G2"),Range("B1").End(xlDown).Offset(0, 5)) 
    'Delete blank cell rows. 
r1.SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
Set r1 = Nothing 

Answer 1

它看起來像你應該嘗試使用Long爲i和counter。使用Integer會導致溢出，至少在較新版本的Excel中，工作表中有超過100萬行。

Answer 2

Dim rng As Range 
Dim counter As Long 

Set rng = Range(Range("G2"),Range("B1").End(xlDown).Offset(0, 5)) 
For counter = rng.Rows.Count to 1 Step -1 
    If Len(rng.Cells(counter).Value) = 0 Then rng.Cells(counter).EntireRow.Delete 
Next 

Answer 3

下面是一些簡單的代碼爲您提供：

Dim r1 As Range 

'Using Tim's range.  
Set r1 = ActiveSheet.Range(Range("G2"),Range("B1").End(xlDown).Offset(0, 5)) 

'Delete blank cell rows. 
r1.SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

Set r1 = Nothing