Excel'de Satırları Birleştir [kapalı]

Her satırdaki bazı hücrelerin veri eksik olduğu Excel 2016'da 2500'den fazla veri satırını alfabetik olarak birleştirmeye ve sıralamaya çalışıyorum. Aşağıdan bir örnek (üstünde olandan aşağıda olanlara).

dan:

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

için:

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

İşte bu süreci detaylandıran bir MrExcel dizisi :

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.

ve tekrarlanabilir makro:

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