Консолидация строк в Excel

Question

Я пытаюсь объединить и отсортировать более 2500 строк данных в алфавитном порядке в Excel 2016, где в некоторых ячейках каждой строки отсутствуют данные. Пример ниже (от того, что сверху, до того, что внизу).

от:

FL          KY              NC              
FL  GA          KS  MD              PA      
                KS  MD      NC      PA  SC  TN

чтобы:

FL  KY  NC                                      
FL  GA  KS  MD  PA                              
KS  MD  NC  PA  SC  TN

Answer 1

Вот нить MrExcel, подробно описывающая этот процесс:

Select Columns {your data columns}
Press Ctrl+H to bring up the Find & Replace Dialogue
Make sure there's nothing in the Find field
Click Find all
(Clicking Replace All will not do the necessary at this point!)
Now press Ctrl+A on the keyboard
Click Close
Right-click one of the selected cells
Choose Delete…
Choose Shift cells left
Click OK.

и повторяемый макрос:

Sub blah()
Dim rng As Range
With ActiveSheet
    With Intersect(.UsedRange, .Range("C:CZ"))
        .Value = .Value
        For Each cll In .Cells
            If Len(cll.Value) = 0 Then Set rng = Union(cll, IIf(rng Is Nothing, cll, rng))
        Next cll
    End With
End With
rng.Delete xlShiftToLeft
End Sub