Sorting Array Entries

[RhinoNeil]

I have an array which contains simple strings. E.g.

dim a() as string
a(0) = "B"
a(1) = "G"
a(2) = "F"
a(3) = "A"
a(4) = "C"

Is there an easy (and simple) way to sort the array entries into alphabetical order (either as they are entered into the array or after it is populated)?

Thanks

 

[RoryA]

Re: Srting Array Entries

You can either dump the array onto a sheet and sort it there, or use a sorting algorithm. Here's a simple Bubble sort function:

Public Function BubbleSort(Strings) As Variant

    Dim a As Long
    Dim E As Long, f As Long, g As Long

    Dim i, j
    Dim m As Variant, n As Variant
    
    E = 1
    n = Strings
    Do While E <> -1
    
        For a = 0 To UBound(Strings) - 1
            i = n(a)
            j = n(a + 1)
            f = StrComp(i, j)
            If f <= 0 Then
                n(a) = i
                n(a + 1) = j
            Else
                n(a) = j
                n(a + 1) = i
                g = 1
            End If
        Next a
        If g = 1 Then
            E = 1
        Else
            E = -1
        End If
        
        g = 0
    Loop
    BubbleSort = n
End Function

 

[RhinoNeil]

Thanks.