삭제 행이 나는 범위에서 빈 행을 삭제하려고

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는 친절 오류 메시지를 해결 도움이되었습니다 .

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하지 INTEGER를 흐리게한다, Jon49 나에게이 프로세스에 대해 많은 mroe 효율적이었다 일부 코드를했다

i 및 counter에 Long 유형을 사용해보세요. Integer을 사용하면 워크 시트에 1 백만 개가 넘는 행이있는 Excel의 최신 버전에서는 오버플로가 발생합니다.

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