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

chenhuafu

因工作需要，对A列很长的一段数字进行排序，并把排序的结果显示在B列中，我编了一个宏进行排序，并把排序的结果放在C列，但得到的结果是“数值”型，不符合要求，请各位朋友指出错在哪里，好吗？ 在Long_III哥哥的帮助下，已经解决了文本数字的排序问题了，但是，还有一个问题，想编写一个函数，遍历所选的区域（在该附件中也就是A2:A19）进行文本比较，然后找出与该单元格对应的值（也即是文本）所处的名次（有大到小排序），返回到B列的单元格中（即在B2:B19）。那位高手能帮忙解决？ 下面的附件是已经更新过的附件： tdIm0TVs.rar (7.75 KB, 下载次数: 24)

2005-12-22 12:39 上传

点击文件名下载附件
如果进行文本数字排名与排序，我的宏错在哪？

[此贴子已经被作者于2005-12-22 12:47:06编辑过]

Long_III

Sheet1.Cells(I + 1, 3) = "'" & B(I)

或者是先设置单元格格式为文本。

你的基础很好啊，比我刚开始好多了！

chenhuafu

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

Sheet1.Cells(I + 1, 3) = "'" & B(I)

或者是先设置单元格格式为文本。

你的基础很好啊，比我刚开始好多了！

谢谢龙兄！

chenhuafu

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

Sheet1.Cells(I + 1, 3) = "'" & B(I)

或者是先设置单元格格式为文本。

你的基础很好啊，比我刚开始好多了！

我改完后运行，最后两个的排序不对，不知是哪里出错？

Long_III

没仔细看，原来你写的不大对，帮你改了

Sub RankSt()
Dim i As Integer, j As Integer
Dim B(1 To 18) As String
Dim TEMP As String

For i = 1 To 18
B(i) = Sheet1.Cells(i + 1, 1)
Next
For i = 1 To 17
For j = i + 1 To 18
If B(i) < B(j) Then
TEMP = B(j)
B(j) = B(i)
B(i) = TEMP
End If
Next j
Next i
For i = 1 To 18
Sheet1.Cells(i + 1, 3) = "'" & B(i)
Next i
End Sub

其实还可以提速的

Long_III

Sub RankSt()
Dim i As Integer, j As Integer
Dim B(1 To 18) As String
Dim TEMP As String

Application.ScreenUpdating = False '关闭屏幕更新，加快代码运行
For i = 1 To 18
B(i) = Sheet1.Cells(i + 1, 1)
Next
For i = 1 To 17
For j = i + 1 To 18
If B(i) < B(j) Then
TEMP = B(j)
B(j) = B(i)
B(i) = TEMP
End If
Next j
Next i
'For i = 1 To 18
' Sheet1.Cells(i + 1, 3) = "'" & B(i)
'Next i
Sheet1.Range("c2:c19").NumberFormatLocal = "@" '设置单元格为文本格式
Sheet1.Range("c2:c19") = Application.WorksheetFunction.Transpose(B) '把行数组转换成列数组，一次赋值
End Sub

chenhuafu

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

Sub RankSt()
Dim i As Integer, j As Integer
Dim B(1 To 18) As String
Dim TEMP As String

Application.ScreenUpdating = False '关闭屏幕更新，加快代码运行
For i = 1 To 18
B(i) = Sheet1.Cells(i + 1, 1)
Next
For i = 1 To 17
For j = i + 1 To 18
If B(i) < B(j) Then
TEMP = B(j)
B(j) = B(i)
B(i) = TEMP
End If
Next j
Next i
'For i = 1 To 18
' Sheet1.Cells(i + 1, 3) = "'" & B(i)
'Next i
Sheet1.Range("c2:c19").NumberFormatLocal = "@" '设置单元格为文本格式
Sheet1.Range("c2:c19") = Application.WorksheetFunction.Transpose(B) '把行数组转换成列数组，一次赋值
End Sub

非常感谢龙兄

chenhuafu

哦，我明白了，我的代码中有一个笔误，本意是想

For J=1+I to 18，但是写成了

for J=1+1 to 18

因此错误。

chenhuafu

'经过排序之后，数组A()已经按照降序排序，
'至此，只要利用一个函数（或别的功能）找到参数Fnd在数组A()中的位置即可
'但是试用了 Find, Match 等工作表函数都不成功，因为查找的值是“文本”
'当然使用 Application.WorksheetFunction.Match 进行引用工作表函数
'请朋友们帮忙完善下面的查找位置，好吗？

chenhuafu

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

Sub RankSt()
Dim i As Integer, j As Integer
Dim B(1 To 18) As String
Dim TEMP As String

Application.ScreenUpdating = False '关闭屏幕更新，加快代码运行
For i = 1 To 18
B(i) = Sheet1.Cells(i + 1, 1)
Next
For i = 1 To 17
For j = i + 1 To 18
If B(i) < B(j) Then
TEMP = B(j)
B(j) = B(i)
B(i) = TEMP
End If
Next j
Next i
'For i = 1 To 18
' Sheet1.Cells(i + 1, 3) = "'" & B(i)
'Next i
Sheet1.Range("c2:c19").NumberFormatLocal = "@" '设置单元格为文本格式
Sheet1.Range("c2:c19") = Application.WorksheetFunction.Transpose(B) '把行数组转换成列数组，一次赋值
End Sub

Function PaiMing(Fnd As Range, FndRange As Range) As Integer Dim I As Integer, J As Integer Dim C, R '定义行号、列号的数字 C = FndRange.Count '获得单元格区域的数量，即有多少行 MsgBox C R = FndRange.Row '获得单元格区域的起始行号 MsgBox R Dim TEMP As String Dim A() For I = 0 To C A(I) = Cells(R + I, FndRange.Column) '把单元格区域FndRange的所有值赋给数组A() Next For I = 1 To C - 1 For J = I + 1 To C If B(I) < A(J) Then TEMP = A(J) A(J) = A(I) A(I) = TEMP End If Next J Next I '经过排序之后，数组A()已经按照降序排序， '至此，只要利用一个函数（或别的功能）找到参数Fnd在数组A()中的位置即可 '但是试用了 Find, Match 等工作表函数都不成功，因为查找的值是“文本” '当然使用 Application.WorksheetFunction.Match 进行引用工作表函数 '请朋友们帮忙完善下面的查找位置，好吗？ End Function 请看附件 c3ZC4ubH.rar (7.81 KB, 下载次数: 15)

2005-12-22 14:19 上传

点击文件名下载附件
如果进行文本数字排名与排序，我的宏错在哪？