Excel2003中如何实现一列多区域排序？

正2013-05-26 23:39:46版本:1/1

2013-05-26 23:39:46版本:1/1

请问怎样实现一列多区域排序？还有多区域范围排序，谢谢！

多区域范围排序 Excel2003 Office2003 vba 一列多区域排序

版权归作者所有。任何形式转载须联系作者获得授权。

作者：正解网

来源：正解网

链接：https://www.zhengjie.com/question/2ce6497c

投票6好问题烂问题修改

问题状态

正解:1个

解答:1个

同问:0人

浏览:17次

修改解答

下面是Excel2003一列多区域排序和多区域范围排序的代码。
##操作步骤
Sub 一列多区域排序() '按微软方式

K = 1

R = Range("A65536").End(xlUp).Row

Do While K &lt; R

Set R1 = Range(Range("A" &amp; K), Range("A" &amp; K).End(xlDown))

K = Range("A" &amp; K).End(xlDown).Row

R1.Select

Selection.Sort Key1:=Range("A" &amp; K), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

:=xlPinYin, DataOption1:=xlSortNormal

K = Range("A" &amp; K).End(xlDown).Row

Loop

End Sub
##提示
贴本代码意思是，用2次的   K = Range("A" & K).End(xlDown).Ro

这段代码：

第一个K能轻松选取非空连续单元格的最后一行的行号；

第二个K能轻松选取空值连续单元格的后的第一个非空单元格的行号。

Sub 多区域范围排序()
    Application.ScreenUpdating = False
    Dim F As Boolean
    n = Cells(Rows.Count, 1).End(3).Row
    For i = 1 To n
        If Cells(i, 1) <> "" And F = False Then
            F = True
            str1 = str1 & Cells(i, 1).Row & ","
        ElseIf Cells(i, 1).Offset(1, 0) = "" And F = True Then
            F = False
            str1 = str1 & Cells(i, 1).Row & ","
        End If
    Next
    arr = Split(str1, ",")
    Set myRegExp = CreateObject("vbscript.regexp")
    myRegExp.Global = True
    myRegExp.Pattern = "d+"
    For i = 1 To n
        If myRegExp.test(Cells(i, 1)) Then
            Cells(i, 2) = Val(myRegExp.Execute(Cells(i, 1))(0))
        End If
    Next i
    For i = 0 To UBound(arr) - 1 Step 2
        Cells(arr(i), 2).CurrentRegion.Sort Key1:=Cells(arr(i), 2), _
                                            Order1:=xlAscending, Header:=xlGuess, SortMethod:=xlPinYin
    Next i
    Columns("B:B").Clear
    Erase arr
    Application.ScreenUpdating = True
End Sub

Excel2003中如何实现一列多区域排序？

问题状态

相关问题

修改提问

修改解答

我的解答