请用VBA对单元格区域进行排序

yjh_27

沙漠滴雨 发表于 2014-4-1 21:11
好的老师，我再好好领悟一下。谢谢老师！

对a列按字母 “-”  分列。
先 对0 列 按字母升序
再 对 2列按数值升序

dsmch

沙漠滴雨 发表于 2014-4-1 20:42
感谢老师帮助。

内容排序结果没有错误。

Sub Macro1()
[e1:g1] = Array("a", "b", "c")
Range("a2:a" & Range("a65536").End(xlUp).Row).TextToColumns [E2], Other:=True, OtherChar:="-"
[a1].CurrentRegion.Sort Key1:=[E1], Key2:=[F1], Key3:=[G1], Header:=xlGuess
[e:g].ClearContents
End Sub

沙漠滴雨

dsmch 发表于 2014-4-1 21:33
Sub Macro1()
[e1:g1] = Array("a", "b", "c")
Range("a2:a" & Range("a65536").End(xlUp).Row).TextTo ...

谢意言难达，
送花表我心。
惜今权已尽，
明朝定奉上。

liulang0808

Sub Macro1()
'
' Macro1 Macro
' 宏由 hp 录制，时间: 2014/4/1
'

'
    Cells.Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
End Sub

录制的一段宏,不知道是否能满足需求

沙漠滴雨

liulang0808 发表于 2014-4-1 21:54
Sub Macro1()
'
' Macro1 Macro

感谢老师帮助。

我试试。

lcmphy

简洁的代码学习中！

caiyu93

1. Sub main()
   
2.     Dim ws As Worksheet, col%, rng As Range, List As Object
   
3.     Dim i&, j%
   
4.     Set List = CreateObject("System.Collections.SortedList")
   
5.     Set ws = Sheets("sheet1")
   
6.     With ws
   
7.         Set rng = .[a1].CurrentRegion
   
8.         col = rng.Columns.Count
   
9.         arr = rng
   
10.         For i = 2 To rng.Rows.Count
    
11.             List.Add rng(i, 1).Value, Range(rng(i, 1), .Cells(i, col))
    
12.         Next
    
13.     End With
    
14.     With List
    
15.         For i = 0 To .Count - 1
    
16.             For j = 1 To col
    
17.                 arr(i + 2, j) = .GetByIndex(i)(1, j)
    
18.             Next
    
19.         Next
    
20.     End With
    
21.     With Sheets("sheet2")
    
22.         Application.ScreenUpdating = 0
    
23.         .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
24.         Application.ScreenUpdating = 1
    
25.     End With
    
26. End Sub

复制代码