Код VBA для удаления пустых ячеек

Question

Код 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

0

microsoft-excel microsoft-excel-2010 vba microsoft-excel-2007

Источник

S. Price 05 мар '18 в 14:54

2 ответа

Другие вопросы по тегам microsoft-excel microsoft-excel-2010 vba microsoft-excel-2007

BruceWayne 05 мар '18 в 15:07 2018-03-05 15:07 · Answer 1 · 2018-03-05 15:07

Вы не можете использовать 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 ...

Neelix 06 мар '18 в 23:34 2018-03-06 23:34 · Answer 2 · 2018-03-06 23:34

Аргумент диапазона "Target" не используется, и вы неправильно используете метод строк. Если это статический диапазон, тогда я предлагаю использовать что-то вроде:

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