รหัส 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

คุณไม่สามารถใช้ 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 ...

อาร์กิวเมนต์ช่วง "เป้าหมาย" ไม่ได้ใช้และคุณไม่ได้ใช้วิธีแถวอย่างถูกต้อง หากนี่เป็นช่วงคงที่ฉันขอแนะนำให้ใช้สิ่งที่ชอบ:

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