Макрос. Удаление пустых строк со сдвигом вверх - VBA

Формулировка задачи:

Доброе утро! Напишите пожалуйста макрос, который

удалит все пустые строки со сдвигом вверх

. Заполненных

строк более 50 тыс.

, среди них очень много пустых. Учитывая такое количество строк, предполагаю, что макрос хорошо будет работать при использовании

массива

. Пример файла прикрепляю во вложении.

Решение задачи: «Макрос. Удаление пустых строк со сдвигом вверх»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Удаление_пустых_данных()
    Dim i&, j&, k&, A, B, LastCol&
    A = ActiveSheet.UsedRange.Value
    ReDim B(1 To UBound(A), 1 To UBound(A, 2))
    LastCol = UBound(A, 2)
    For i = 1 To UBound(A)
        If A(i, 1) <> "" Then
            k = k + 1
            For j = 1 To LastCol
               B(k, j) = A(i, j)
            Next j
        End If
    Next i
    ActiveSheet.UsedRange.Value = B
End Sub

Оцени полезность:

8 голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы