[已解决]单元格内数据排序

blueshine

各位大大，小弟在这边请教一下，单元格内数据排序的问题。
如附件，要求单元格内重新排序后的数据，优先按照字母，再按照数字大小来排序。
表格中，B列是原本的数据，C列是将B列中数据排上面要求排列后的新数据。

因为Excel中类似的数据太多，只截取部分数据在里面，
请各位大大帮忙看一下，用VBA的方法，该怎么写。
谢谢！
Sort.rar (6.13 KB, 下载次数: 45)

2013-8-15 22:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2013-8-15 16:18

Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), OtherChar:=","
4楼方法可用，但第2句改为下面任意一句
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), Other:=True, OtherChar:=","
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), Comma:=True


PS:不知楼主说的多，是指行数多？还是单元格内以逗号分隔的字符串很长？

跳转到最佳答案楼层

上清宫主

和这个帖子一样，拿来用就是了http://www.excelpx.com/thread-307120-1-1.html

blueshine

謝謝，要使用哪一種方法呢？
還是都可以
因為我的這一部分，與那個帖子的情況還是有差異的

上清宫主

这样行不：
Sub test()
Dim ar()
i% = [a65536].End(3).Row
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), OtherChar:=","
c% = Cells(i + 10, 2).CurrentRegion.Columns.Count
Do While Cells(i + 10, 2) <> ""
   Cells(i + 10, 2).Resize(1, c).Sort Cells(i + 10, 2), , , , , , , xlGuess, , , xlSortRows
   i = i + 1
Loop
ar = Cells(i + 10, 2).CurrentRegion.Value
Cells(i + 10, 2).CurrentRegion.Clear
For i = 1 To UBound(ar)
    For c = 2 To UBound(ar, 2)
        If ar(i, c) = "" Then Exit For
        ar(i, 1) = ar(i, 1) & "," & ar(i, c)
    Next
Next
[d2].Resize(UBound(ar), 1) = ar
End Sub

blueshine

上清宫主 发表于 2013-8-14 20:23
这样行不：
Sub test()
Dim ar()

不行呢
得到的是原來的值
沒有排序
謝謝

爱疯

Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), OtherChar:=","
4楼方法可用，但第2句改为下面任意一句
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), Other:=True, OtherChar:=","
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), Comma:=True


PS:不知楼主说的多，是指行数多？还是单元格内以逗号分隔的字符串很长？

上清宫主

blueshine 发表于 2013-8-15 15:05
不行呢
得到的是原來的值
沒有排序

楼主你试过？请看d列：

blueshine

上清宫主 发表于 2013-8-15 16:47
楼主你试过？请看d列：

谢谢您。
可能是我没有表述清楚，重新写了一下要求，如下：

如附件，要求单元格内重新排序后的数据，优先按照字母，再按照数字大小来排序。
表格中，B列是原本的数据，C列是将B列中数据排上面要求排列后的新数据。

blueshine

爱疯 发表于 2013-8-15 16:18
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), OtherChar:=","
4楼方法可用 ...

行数和单元格里面的数据都很多

blueshine

爱疯 发表于 2013-8-15 16:18
Range("B2").Resize(i - 1, 1).TextToColumns Destination:=Cells(i + 10, 2), OtherChar:=","
4楼方法可用 ...

爱疯大大，按您的方法，得到我要的结果
谢谢！