Ordenar array VBA

Este script nos permite oredenar un array de manor a mayor en VBA

Sub BubbleSort(arr)
   ' Ordena de menor a mayor un array
   ' Call BubbleSort(MyArray)
  Dim strTemp As String
  Dim i As Long
  Dim j As Long
  Dim lngMin As Long
  Dim lngMax As Long
  lngMin = LBound(arr)
  lngMax = UBound(arr)
 
   For i = lngMin To lngMax - 1
    For j = i + 1 To lngMax
     If arr(i) > arr(j) Then
       strTemp = arr(i)
       arr(i) = arr(j)
       arr(j) = strTemp
     End If
    Next j
   Next i
End Sub

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.