выровнять строки по определенным значениям EXCEL VBA - PullRequest
Новая
       51

выровнять строки по определенным значениям EXCEL VBA

0 голосов
/ 07 октября 2019

У меня довольно большая база данных (около 1500-2000 записей), и я хочу выровнять ячейки, показанные на рисунке, с красными по строкам с зеленым. Смещения и записи случайны, и это самая большая проблема. Значения в столбце «B» являются ключевыми значениями после выравнивания. Я хочу удалить пустые строки, но у меня есть метод для этого, так что это не проблема, только выравнивание ...

Спасибо за помощь!

enter image description here

Вот как это должно выглядеть: результат

Это мой код, но этомусор: 

Sub xar()
    lastrown = Munka3.Cells(Rows.Count, 1).End(xlUp).row

    For er = 1 To lastrown
        For mer = 1 To lastrown
            If Left(Sheets("EREDMENY").Cells(er, 2).Value, 1) <> "" Then
                If Left(Sheets("EREDMENY").Cells(mer, 1).Value, 1) <> "" Then
                    Sheets("EREDMENY").Cells(er, 1).Value = _
                                         Sheets("EREDMENY").Cells(mer, 1).Value
                End If
            End If
        Next mer
    Next er
End Sub
...