如果进行文本数字排名与排序，我的宏错在哪？

hcf568

我认为用sort方法更快些

Long_III

我全给你改了，请看

Function PaiMing(Fnd As Range, FndRange As Range) As Integer
Dim i As Integer, j As Integer, c As Integer
Dim TEMP As String
Dim a As Variant

a = FndRange 'a在这里是一个二维数组，而不是单元格哦
c = UBound(a)

For i = 1 To c - 1
For j = i + 1 To c
If a(i, 1) < a(j, 1) Then
TEMP = a(j, 1)
a(j, 1) = a(i, 1)
a(i, 1) = TEMP
End If
Next j
Next i

PaiMing = Application.Match(Fnd, a, 0) '直接调用match函数即可啊
End Function

chenhuafu

以下是引用[I]Long_III[/I]在2005-12-22 14:35:31的发言：[BR]

我全给你改了，请看

Function PaiMing(Fnd As Range, FndRange As Range) As Integer
Dim i As Integer, j As Integer, c As Integer
Dim TEMP As String
Dim a As Variant

a = FndRange 'a在这里是一个二维数组，而不是单元格哦
c = UBound(a)

For i = 1 To c - 1
For j = i + 1 To c
If a(i, 1) < a(j, 1) Then
TEMP = a(j, 1)
a(j, 1) = a(i, 1)
a(i, 1) = TEMP
End If
Next j
Next i

PaiMing = Application.Match(Fnd, a, 0) '直接调用match函数即可啊
End Function

谢谢，又学到东西！

hyg7501

多谢，多谢啊，今天收获不少，我也要努力学习了！