Modificación de función personalizada de VB

Pruebe esto (para datos ya ordenados, la complejidad del tiempo se puede reducir de O(n^2) a ~O(n).

Función kw(n, rn)

arr = rn

i = 1

Mientras i<= UBound(arr)

Si arr(i, 1 ) = n Entonces

p = p & arr(i, 2) & "|"

i = i + 1

De lo contrario

Salir For

End If

Wend

kw = Left(p, Len(p) - 1)

Fin de función