View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Tatsujin Tatsujin is offline
external usenet poster
 
Posts: 25
Default Insert into presorted list

On Monday, February 1, 2021 at 2:48:26 PM UTC-7, Claus Busch wrote:

Sub SortedList()
Dim sSorted As String, sMixed As String, myStr As String, varbuffer As String
Dim vardata As Variant
Dim i As Integer, k As Integer, lngUp As Integer, lngLow As Integer
sSorted = "ant, dog, giraffe, rhino, wolf, zebra"
sMixed = "pig, snake, coyote"
myStr = sSorted & ", " & sMixed
vardata = Split(myStr, ", ")

lngUp = UBound(vardata)
lngLow = LBound(vardata)

For i = lngLow To lngUp - 1
For k = lngUp To i + 1 Step -1
If vardata(i) vardata(k) Then
varbuffer = vardata(k)
vardata(k) = vardata(i)
vardata(i) = varbuffer
End If
Next
Next
myStr = Join(vardata, ", ")
Range("A1") = myStr
End Sub


Good stuff yet again! Thank you very much.