☰

빈 셀을 제거하는 VBA 코드

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba microsoft-excel-2007
빈 셀을 제거하는 VBA 코드

왜 이것이 작동하지 않는지 아시나요? 런타임 오류 1004: 응용 프로그램 정의 또는 개체 정의 오류가 계속 발생합니다. 첫 번째 셀이 비어 있으면 행의 전체 섹션을 삭제하려고 하고, 비어 있지 않으면 값이 포함된 행이 나올 때까지 모든 빈 행을 삭제하려고 합니다. 스프레드시트를 쉽게 정리하는 것뿐입니다. 코드를 첨부했습니다.여기에 이미지 설명을 입력하세요

Private Sub checkRows()

'H or 8
If IsEmpty(Range("A827").Value) = True Then
    Rows("825:925").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("827:925").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'G or 7
If IsEmpty(Range("A725").Value) = True Then
    Rows("723:823").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("725:823").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'F or 6
If IsEmpty(Range("A623").Value) = True Then
    Rows("621:721").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("623:721").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'E or 5
If IsEmpty(Range("A521").Value) = True Then
    Rows("519:619").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("521:619").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'D or 4
If IsEmpty(Range("A419").Value) = True Then
    Rows("417:517").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("419:517").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'C or 3
If IsEmpty(Range("A317").Value) = True Then
    Rows("315:415").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("317:415").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'B or 2
If IsEmpty(Range("A215").Value) = True Then
    Rows("213:313").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("215:313").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'A or 1
If IsEmpty(Range("A113").Value) = True Then
    Rows("111:211").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("113:211").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

'RP
If IsEmpty(Range("A9").Value) = True Then
    Rows("7:107").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("9:107").Select
    Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

End Sub

VBA 창

답변1

Rows()열 참조와 함께 사용할 수 없습니다 . 첫 번째 부분을 행으로만 변경하세요.

If IsEmpty(Range("A827").Value) = True Then
    Rows("825:925").EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
Else
    Rows("827:925").EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
End If

아니면 할 수도 있었어Range("A825:A925").EntireRow.Delete ...

답변2

"대상" 범위 인수가 사용되지 않으며 행 방법을 올바르게 사용하고 있지 않습니다. 이것이 정적 범위라면 다음과 같은 것을 사용하는 것이 좋습니다.

Private Sub RemoveRows()

  If IsEmpty(ActiveSheet.Range("A827").Value) = True Then ActiveSheet.Range("A827:A925").Clear

End Sub

범위 인수를 전달하려는 경우 전체 범위 개체보다는 범위의 문자열 값을 전달하는 것이 좋습니다.

Private Sub RemoveRows(ByVal TargetRange As String)

If IsEmpty(ActiveSheet.Range("A827").Value) = True Then ActiveSheet.Range(TargetRange).Clear

End Sub

그런 다음 이를 사용하려면 범위의 문자열 표현을 인수로 전달하면 됩니다.

Private Sub CallRemoveRows()

RemoveRows ("A827:A895")

End Sub

관련 정보