Insert into presorted list
Hi,
Am Mon, 1 Feb 2021 12:20:14 -0800 (PST) schrieb Tatsujin:
I have these variables:
sSorted = "ant, dog, giraffe, rhino, wolf, zebra"
sMixed = "pig, snake, coyote"
I want to build this newly sorted list:
aSort2 = "ant, coyote, dog, giraffe, pig, rhino, snake, wolf, zebra"
try:
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
Regards
Claus B.
--
Windows10
Microsoft 365 for business
|