Excel VBA - удалить необработанные строки - PullRequest
Новая
       8

Excel VBA - удалить необработанные строки

0 голосов
/ 18 декабря 2018

Задав вопрос об удалении строк с объединенными ячейками, я получил ответ ниже.Она вызвала ошибку: Ошибка выполнения 1004. Невозможно использовать эту команду для перекрывающихся выборок.

Было предложено, чтобы я удалил столбцы удаления и удалил ячейки и чтобы я начал новые вопросы для этого.Я добавил команды для удаления столбцов и удаления ячеек ниже.Распаковка работает нормально, но затем я снова получаю ту же ошибку 1004. 

Sub DeleteRows()

    Dim x           As Range
    Dim rngDelete   As Range

    For Each x In ActiveSheet.UsedRange
        If x.MergeCells Then
            If rngDelete Is Nothing Then
                Set rngDelete = x
            Else
                Set rngDelete = Union(rngDelete, x)
            End If

        End If
    Next

    If Not rngDelete Is Nothing Then
        rngDelete.UnMerge
        rngDelete.EntireColumn.Delete
        rngDelete.EntireRow.Delete
    End If

End Sub
...