字符串按照长度排序

Sub Button1_Click()

Dim max As Integer
max = 1
Dim lengths(200) As Integer
Dim tmp As String

For i = 1 To 200
max = i
tmp = Cells(i, 1)
If tmp = "" Then
Exit For
End If
For j = i + 1 To 200
If Cells(j, 1) = "" Then
Exit For
End If
If Len(Cells(max, 1)) < Len(Cells(j, 1)) Then
max = j
End If
Next
If i <> max Then
Cells(i, 1) = Cells(max, 1)

Cells(max, 1) = tmp
End If
Cells(i, 2) = Len(Cells(max, 1))
Next
End Sub

//最简单的是通过shell

awk '{ print length(), $0 | "sort -n" }' fileName

//通过sql， 将数据倒入Tmp表格

select len(fileName), fileName
from Test1
order by len(fileName)