VBA Range.Sort with arrays. Alternative for simple use.

[DocAElstein]

link to this post https://excelfox.com/forum/showthrea...5514#post15514
https://excelfox.com/forum/showthread.php/2307-VBA-Range-Sort-with-arrays-Alternative-for-simple-use?p=15514#post15514
https://excelfox.com/forum/showthrea...age3#post15514
https://excelfox.com/forum/showthread.php/2307-VBA-Range-Sort-with-arrays-Alternative-for-simple-use/page3#post15514

---

Function

required for last two posts

Function BubSrt(ByVal Thong As String) As String
Dim Buf() As String: Let Buf() = Split(StrConv(Thong, vbUnicode), Chr$(0)): ReDim Preserve Buf(UBound(Buf()) - 1) '  https://stackoverflow.com/questions/13195583/split-string-into-array-of-characters
Dim Ey As Long, Jay As Long
Dim Temp As Long
 For Ey = LBound(Buf()) To UBound(Buf()) - 1
    For Jay = Ey + 1 To UBound(Buf())
        If Buf(Ey) > Buf(Jay) Then
         Let Temp = Buf(Jay)
         Let Buf(Jay) = Buf(Ey)
         Let Buf(Ey) = Temp
        End If
    Next Jay
Next Ey
 Let BubSrt = Join(Buf(), "")
End Function

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://eileenslounge.com/viewtopic.php?p=244184#p244184
https://eileenslounge.com/viewtopic.php?p=246586#p246586
https://eileenslounge.com/viewtopic.php?p=246112#p246112
https://eileenslounge.com/viewtopic.php?p=246112#p246112
https://eileenslounge.com/viewtopic.php?p=245761#p245761
https://eileenslounge.com/viewtopic.php?p=245722#p245722
https://eileenslounge.com/viewtopic.php?p=245616#p245616
https://eileenslounge.com/viewtopic.php?p=247043#p247043
https://www.excelfox.com/forum/showthread.php/2307-VBA-Range-Sort-with-arrays-Alternative-for-simple-use
https://eileenslounge.com/viewtopic.php?p=245238#p245238
https://eileenslounge.com/viewtopic.php?p=245131#p245131
https://eileenslounge.com/viewtopic.php?f=18&t=31638
https://eileenslounge.com/viewtopic.php?p=244579#p244579
https://eileenslounge.com/viewtopic.php?p=244648#p244648
https://eileenslounge.com/viewtopic.php?p=244647#p244647
https://eileenslounge.com/viewtopic.php?p=244577#p244577
https://eileenslounge.com/viewtopic.php?p=245201#p245201
https://eileenslounge.com/viewtopic.php?p=243975#p243975
https://eileenslounge.com/viewtopic.php?p=243884#p243884
https://eileenslounge.com/viewtopic.php?p=242439#p242439
https://eileenslounge.com/viewtopic.php?p=243595#p243595
https://eileenslounge.com/viewtopic.php?p=243589#p243589
https://eileenslounge.com/viewtopic.php?p=243589#p243589
https://eileenslounge.com/viewtopic.php?p=243002#p243002
https://www.eileenslounge.com/viewtopic.php?p=242761#p242761
https://eileenslounge.com/viewtopic.php?p=242459#p242459
https://eileenslounge.com/viewtopic.php?p=242054#p242054
https://eileenslounge.com/viewtopic.php?p=241404#p241404
https://eileenslounge.com/viewtopic.php?p=229145#p229145
https://eileenslounge.com/viewtopic.php?p=228710#p228710
https://eileenslounge.com/viewtopic.php?p=226938#p226938
https://eileenslounge.com/viewtopic.php?f=18&t=28885
https://eileenslounge.com/viewtopic.php?p=222689#p222689
https://eileenslounge.com/viewtopic.php?p=221622#p221622
https://eileenslounge.com/viewtopic.php?f=27&t=22512
https://eileenslounge.com/viewtopic.php?f=26&t=26183
https://eileenslounge.com/viewtopic.php?f=26&t=26030
https://eileenslounge.com/viewtopic.php?p=202322#p202322
https://www.excelforum.com/word-formatting-and-general/1174522-finding-a-particular-word-phrase-in-word.html#post4604396
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA