精华内容
下载资源
问答
  • vba-Sort 函数对工作表排序的方法

    千次阅读 2019-02-21 13:32:00
    来源:... 360doc@途之人 Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orient...

    来源:http://www.360doc.com/content/17/0719/14/12298544_672573888.shtml

    360doc@途之人

     



    Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3,
            Header, OrderCustom, MatchCase, Orientation, SortMethod,
            DataOption1, DataOption2, DataOption3)

    其中各类型参数的意义如下:
    ① key1、key2、key3
    这些key是排序的关键列(或行)的单元格地址,如 Range("A1")
    实际只要选对列标题即可,对行数要求不敏感。

    【行数要求不敏感】
    即数据区域中任意行数都可以: Range("A1")、或Range("A2")、或Range("A1000")都可以。

    【注意】
    1. 一次Sort只能调用至多3个参数,没有key4可以使用。
    2. 至少使用1个参数即可,即key2、key3可以省去不用。

    【引用方法】
    1. 带参数名引用,如: key1:=Range("G3")
       带参数名引用时

    2. 参数位置引用,即按照上述Sort命令的参数顺序直接应用,
       如: Range("A1:I19").Sort key1:=Range("G3")  即第1位置参数即为key1


    ②  Order1、Order2、Order3
       这些Order是排序的顺序模式指定参数。即: A-Z升序、或Z-A降序
        参数的模式名称为:
              A-Z升序= xlAscending 或直接=1
                   Z-A降序= xlDescending 或直接=2

      带参数名引用时:
      Order1:=xlAscending  或 Order1:= 1

      参数位置引用时,紧跟key后面。(但注意key2和Order2之间要隔一个Type参数)


    ③  Header
        即是否有标题行参数,一共有3个值:
        Header:= xlGuess=0 或xlYes=1 或 xlNo=2
        即=xlGuess、或=0时,工作表自己判断
         =xlYes、或=1时,强制第1行为列标题,即第1行【不参与排序】
         =xlNo、或=2时,强制没有列标题。即第1行【也参与排序】

      带参数名引用时:
       如: Header:= xlGuess
       
       参数位置引用时,在第7个逗号之后。
      (如果key只有1个时,要连续空6个逗号,
       如:Range("A1:I19").Sort Range("A1"), 1, , , , , , 2 (order1之后连续写6个逗号)


    ④ MatchCase 是否匹配大小写
        MatchCase:=False 、或=0 不区分大小写
        MatchCase:=True 、或=1 区分大小写(Case Sensitive)

    ⑤ Orientation 排序方向 
       一般为同一列中从上到下各行进行排序:Orientation:= xlTopToBottom 、或=1
        如果是: 同一行中从左到右各列进行排序,则为:Orientation:= xlLeftToRight、或=2


    ⑥ SortMethod 排序方法
        按拼音排序: SortMethod:= xlPinYin 、或=1 (Use phonetic info)
        按笔画排序: SortMethod:= xlStroke、或=2


    ⑦ DataOption1 按数值或按文本排序
        DataOption1:= xlSortNormal


    以上综合示例为:
    按参数名引用:
    Range("A1:I19").Sort key1:=Range("G3"), Order1:=xlAscending, _
             Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
             Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
             DataOption1:=xlSortNormal

    直接按参数位置:
    Range("A1:I19").Sort [G3], 1, , , , , ,0, 1, 0, 1, 1,1

    或根据默认为:Range("A1:I19").Sort [G3], 1


     

     

     

     

     

    Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3,

            Header, OrderCustom, MatchCase, Orientation, SortMethod,

            DataOption1, DataOption2, DataOption3)

     

    其中各类型参数的意义如下:

    key1key2key3

    这些key是排序的关键列(或行)的单元格地址,如 Range("A1")

    实际只要选对列标题即可,对行数要求不敏感。

     

    【行数要求不敏感】

    即数据区域中任意行数都可以: Range("A1")、或Range("A2")、或Range("A1000")都可以。

     

    【注意】

    1. 一次Sort只能调用至多3个参数,没有key4可以使用。

    2. 至少使用1个参数即可,即key2key3可以省去不用。

     

    【引用方法】

    1. 带参数名引用,如: key1:=Range("G3")

       带参数名引用时

     

    2. 参数位置引用,即按照上述Sort命令的参数顺序直接应用,

       : Range("A1:I19").Sort key1:=Range("G3")  即第1位置参数即为key1

     

     

      Order1Order2Order3

       这些Order是排序的顺序模式指定参数。即: A-Z升序、或Z-A降序

        参数的模式名称为:

              A-Z升序= xlAscending 或直接=1

                   Z-A降序= xlDescending 或直接=2

     

      带参数名引用时:

      Order1:=xlAscending   Order1:= 1

     

      参数位置引用时,紧跟key后面。(但注意key2Order2之间要隔一个Type参数)

     

     

      Header

        即是否有标题行参数,一共有3个值:

        Header:= xlGuess=0 xlYes=1 xlNo=2

        =xlGuess、或=0时,工作表自己判断

         =xlYes、或=1时,强制第1行为列标题,即第1行【不参与排序】

         =xlNo、或=2时,强制没有列标题。即第1行【也参与排序】

     

      带参数名引用时:

       : Header:= xlGuess

       

       参数位置引用时,在第7个逗号之后。

      (如果key只有1个时,要连续空6个逗号,

       :Range("A1:I19").Sort Range("A1"), 1, , , , , , 2 (order1之后连续写6个逗号)

     

     

    MatchCase 是否匹配大小写

        MatchCase:=False 、或=0 不区分大小写

        MatchCase:=True 、或=1 区分大小写(Case Sensitive)

     

    Orientation 排序方向 

       一般为同一列中从上到下各行进行排序:Orientation:= xlTopToBottom 、或=1

        如果是: 同一行中从左到右各列进行排序,则为:Orientation:= xlLeftToRight、或=2

     

     

    SortMethod 排序方法

        按拼音排序: SortMethod:= xlPinYin 、或=1 (Use phonetic info)

        按笔画排序: SortMethod:= xlStroke、或=2

     

     

    DataOption1 按数值或按文本排序

        DataOption1:= xlSortNormal

     

     

    以上综合示例为:

    按参数名引用:

    Range("A1:I19").Sort key1:=Range("G3"), Order1:=xlAscending, _

             Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _

             Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _

             DataOption1:=xlSortNormal

     

    直接按参数位置:

    Range("A1:I19").Sort [G3], 1, , , , , ,0, 1, 0, 1, 1,1

     

    或根据默认为:Range("A1:I19").Sort [G3], 1

     

     

     

    转载于:https://www.cnblogs.com/codelidaguo/p/10411901.html

    展开全文
  • VBA 排序Sort说明

    2020-06-18 09:29:47
    Sub 排序Sort() Sheet3.Range("A1:CN6").Sort Key1:=Range("N1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=n + 1, MatchCase:=True '↑↑↑↑↑↑↑↑....以上为实际操作时代码写法,特别注意...
    花了点时间整明白Sort这个玩意,留着备用;
    
    Sub 排序之Sort()
    
    Sheet3.Range("A1:CN6").Sort Key1:=Range("N1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=n + 1, MatchCase:=True
    
    '↑↑↑↑↑↑↑↑....以上为实际操作时的代码写法,特别注意Sort key1中间的空格必须要有....↑↑↑↑↑↑↑↑
    
    '=========================================================================================================================================================================================================================>
    
    '↓↓↓↓↓↓↓↓....以下为便于说明,方便查看....↓↓↓↓↓↓↓↓
    
        语法:expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
    
        'expression 必须。一个表示 Range 对象的变量
    
        With Sheet3.Range("A1:CN6")
    
            .Sort Key1:=Sheet3.Range("N1") '..........第一排序关键字。
    
            .Sort Order1:=xlAscending '...............第一关键字排序方式xlAscending(或1)=升序,xlDescending(或2)=降序。
            
            .Sort Key2:=Range("F1") '.................第二关键字。
    
            .Sort Type:=xlChart '.....................指定要排序的元素。
    
            .Sort order2:=xlAscending '...............第二关键字排序方式xlAscending(或1)=升序,xlDescending(或2)=降序。
    
            .Sort key3:=Sheet3.Range("B1") '..........第三关键字。
    
            .Sort order3:=xlAscending '...............第三关键字排序方式xlAscending(或1)=升序,xlDescending(或2)=降序。
    
            .Sort Header:=xlGuess '...................指定第一行是否包含标题。xlGuess(或0)=工作表自己判断是否有标题,xlYes(或1)=强制第一行为列标题(不参与排序),xlNo(或2)=强制没有列标题(全部参与排序)
    
            .Sort OrderCustom:=n + 1 '................指定在自定义排序次序列表中的基于一的整数偏移(例:同一列中有ABCD,可以指定按DCBA或CDAB自定义排序,n变量可以是数组,也可以是单元格区域)
            
            .Sort MatchCase:=True '...................设置为True以执行区分大小写的排序, 设置为 False 以执行不区分大小写的排序; 否则为False 。不能用于数据透视表。
    
            .Sort Orientation:=xlSortColumns '........指定是应按行还是按列进行排序。 xlSortColumns(或1)按列排序。 xlSortRows(或2)=按行排序 。
            
            .Sort SortMethod:=xlPinYin '..............指定排序方法。xlPinYin(或1)=按字符的汉语拼音顺序排序,xlStroke()=按每个字符的笔划数排序。
    
            .Sort dataoption1:=xlSortNormal '.........指定如何对_Key1_中指定的范围内的文本进行排序;不适用于数据透视表排序。xlSortNormal(或0)=分别对数字和文本数据进行排序(默认值),xlSortTextAsNumbers(或1)=将文本作为数字型数据进行排序。
    
            .Sort dataoption2:=xlSortNormal '.........指定如何对_Key2_中指定的范围内的文本进行排序;不适用于数据透视表排序。xlSortNormal(或0)=分别对数字和文本数据进行排序(默认值),xlSortTextAsNumbers(或1)=将文本作为数字型数据进行排序。
    
            .Sort dataoption3:=xlSortNormal '.........指定如何对_Key3_中指定的范围内的文本进行排序;不适用于数据透视表排序。xlSortNormal(或0)=分别对数字和文本数据进行排序(默认值),xlSortTextAsNumbers(或1)=将文本作为数字型数据进行排序。
    
        End With
    
        '******************************************* 关于第四个参数 Type 对应值的说明 *******************************************
        
            'xlChart........................(或-4109) = 图表
            'xlDialogSheet..................(或-4116) = 对话框工作表
            'xlExcel4IntlMacroSheet.........(或4)     = Excel 版本 4 国际宏工作表
            'xlExcel4MacroSheet.............(或3)     = Excel 版本 4 宏工作表
            'xlWorksheet....................(或-4167) = 工作表Worksheet
    
    End Sub
    展开全文
  • VBA数组排序

    2011-10-19 23:12:00
    在Excel中没有提供直接方法或函数... 这里转载了Using a Visual Basic Macro to Sort Arrays in Microsoft Excel中给出使用VBA进行数组排序的两种方法,分别采用的排序算法为:选择排序和冒泡排序。 Method 1:...

          在Excel中没有提供直接的方法或函数用于数组排序,因此若要使用VBA进行数组排序,则需要采用我们在数据结构与算法课程中学到的排序算法。

          这里转载了Using a Visual Basic Macro to Sort Arrays in Microsoft Excel中给出的使用VBA进行数组排序的两种方法,分别采用的排序算法为:选择排序和冒泡排序。

    Method 1: Selection Sort

          Function SelectionSort(TempArray As Variant)
              Dim MaxVal As Variant
              Dim MaxIndex As Integer
              Dim i, j As Integer
    
              ' Step through the elements in the array starting with the
              ' last element in the array.
              For i = UBound(TempArray) To 1 Step -1
    
                  ' Set MaxVal to the element in the array and save the
                  ' index of this element as MaxIndex.
                  MaxVal = TempArray(i)
                  MaxIndex = i
    
                  ' Loop through the remaining elements to see if any is
                  ' larger than MaxVal. If it is then set this element
                  ' to be the new MaxVal.
                  For j = 1 To i
                      If TempArray(j) > MaxVal Then
                          MaxVal = TempArray(j)
                          MaxIndex = j
                      End If
                  Next j
    
                  ' If the index of the largest element is not i, then
                  ' exchange this element with element i.
                  If MaxIndex < i Then
                      TempArray(MaxIndex) = TempArray(i)
                      TempArray(i) = MaxVal
                  End If
              Next i
    
          End Function
    
          Sub SelectionSortMyArray()
              Dim TheArray As Variant
    
              ' Create the array.
              TheArray = Array("one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten")
    
              ' Sort the Array and display the values in order.
              SelectionSort TheArray
              For i = 1 To UBound(TheArray)
                  MsgBox TheArray(i)
              Next i
    
          End Sub
    

    Method 2: Bubble Sort

          Function BubbleSort(TempArray As Variant)
              Dim Temp As Variant
              Dim i As Integer
              Dim NoExchanges As Integer
    
              ' Loop until no more "exchanges" are made.
              Do
                  NoExchanges = True
    
                  ' Loop through each element in the array.
                  For i = 1 To UBound(TempArray) - 1
    
                      ' If the element is greater than the element
                      ' following it, exchange the two elements.
                      If TempArray(i) > TempArray(i + 1) Then
                          NoExchanges = False
                          Temp = TempArray(i)
                          TempArray(i) = TempArray(i + 1)
                          TempArray(i + 1) = Temp
                      End If
                  Next i
              Loop While Not (NoExchanges)
    
          End Function
    
          Sub BubbleSortMyArray()
              Dim TheArray As Variant
    
              ' Create the array.
              TheArray = Array(15, 8, 11, 7, 33, 4, 46, 19, 20, 27, 43, 25, 36)
    
              ' Sort the Array and display the values in order.
              BubbleSort TheArray
              For i = 1 To UBound(TheArray)
                  MsgBox TheArray(i)
              Next i
          End Sub
    

    转载于:https://www.cnblogs.com/russellluo/archive/2011/10/19/2218324.html

    展开全文
  • VBA排序的十种算法.pdf

    2020-08-10 03:48:24
    在使用 VBA进行写程序时 经常会做排序 下面将会给出一些常用的排序算法实现 方便 大家写程序参考若代码中出现了错误欢迎高手指正 主要算法有 1冒泡排序 Bubble sort 2选择排序 Selection sort 3插入排序 Insertion...
  • Excel VBA数据排序

    2020-12-15 01:01:54
    关注微信公众号:VBA168 每天更新Excel VBA经典代码,祝你工作和学习更轻松! 在如图1所示数据列表中,需要按总成绩从高到低...Range对象的Sort方法对区域进行排序,其语法格式如下。 Sort(Key1, Order1, Key2, Type, O
  • VBA操作Excel内容排序,用Sort函数对工作表内容排序

    万次阅读 多人点赞 2019-02-18 23:52:47
    今天有同学问到关于大批量ExcelSheet如何简化排序,但是网上攻略比较混乱。因此,在这做一下示例。 需求:80页sheetExcel文档,每页格式相同,基本内容如下,要求根据A列,升序排列。 代码如下: ...

    今天有同学问到关于大批量Excel的Sheet如何简化排序,但是网上的攻略比较混乱。因此,在这做一下示例。

    需求:80页sheet的Excel文档,每页的格式相同,基本内容如下,要求根据A列,升序排列。

    代码如下:

    Option Explicit
    Sub MySort()
    Dim i As Integer
    Dim maxRow As Integer
    Dim sht As Worksheet
    
    '遍历所有工作表
    For i = 1 To ActiveWorkbook.Worksheets.Count
    
        Set sht = ActiveWorkbook.Worksheets(i)
    
        '激活当前工作表,Sort只能排序当前工作表
        sht.Activate
    
        '获取当前表最大行数
        maxRow = sht.UsedRange.Rows.Count
    
        '选取范围进行排序:这里是选取a3:ao41(前两行因为是标题,所以不选);key是排序的列,这里写a3,表示以a列为依据排序,最多可以写3个key;order表示升序降序;Header表示是否有标题,由于我们没选a1、a2,所以这里写no
        sht.Range("a3:ao" & maxRow).Sort key1:=sht.Range("a3"), order1:=xlAscending, Header:=xlNo
    
    Next i
    
    End Sub

     

    注意,Vba的排序函数为Sort,基本用法如下:

    Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3,
            Header, OrderCustom, MatchCase, Orientation, SortMethod,
            DataOption1, DataOption2, DataOption3)
    其中各类型参数的意义如下:
    ① key1、key2、key3
    这些key是排序的关键列(或行)的单元格地址,如 Range("A1")
    实际只要选对列标题即可,对行数要求不敏感。

    【行数要求不敏感】
    即数据区域中任意行数都可以: Range("A1")、或Range("A2")、或Range("A1000")都可以。

    【注意】
    1. 一次Sort只能调用至多3个参数,没有key4可以使用。
    2. 至少使用1个参数即可,即key2、key3可以省去不用。

    【引用方法】
    1. 带参数名引用,如: key1:=Range("G3")
       带参数名引用时
    2. 参数位置引用,即按照上述Sort命令的参数顺序直接应用,
       如: Range("A1:I19").Sort key1:=Range("G3")  即第1位置参数即为key1
    ②  Order1、Order2、Order3
       这些Order是排序的顺序模式指定参数。即: A-Z升序、或Z-A降序
        参数的模式名称为:
              A-Z升序= xlAscending 或直接=1
                   Z-A降序= xlDescending 或直接=2
      带参数名引用时:
      Order1:=xlAscending  或 Order1:= 1
      参数位置引用时,紧跟key后面。(但注意key2和Order2之间要隔一个Type参数)
    ③  Header
        即是否有标题行参数,一共有3个值:
        Header:= xlGuess=0 或xlYes=1 或 xlNo=2
        即=xlGuess、或=0时,工作表自己判断
         =xlYes、或=1时,强制第1行为列标题,即第1行【不参与排序】
         =xlNo、或=2时,强制没有列标题。即第1行【也参与排序】
      带参数名引用时:
       如: Header:= xlGuess
       参数位置引用时,在第7个逗号之后。
      (如果key只有1个时,要连续空6个逗号,
       如:Range("A1:I19").Sort Range("A1"), 1, , , , , , 2 (order1之后连续写6个逗号)
    ④ MatchCase 是否匹配大小写
        MatchCase:=False 、或=0 不区分大小写
        MatchCase:=True 、或=1 区分大小写(Case Sensitive)
    ⑤ Orientation 排序方向 
       一般为同一列中从上到下各行进行排序:Orientation:= xlTopToBottom 、或=1
        如果是: 同一行中从左到右各列进行排序,则为:Orientation:= xlLeftToRight、或=2
    ⑥ SortMethod 排序方法
        按拼音排序: SortMethod:= xlPinYin 、或=1 (Use phonetic info)
        按笔画排序: SortMethod:= xlStroke、或=2
    ⑦ DataOption1 按数值或按文本排序
        DataOption1:= xlSortNormal

     

     

    展开全文
  • ' 小数组使用插入排序 ' 去除边界判断 ' 不必要合并 ' 取消向辅助数组复制数据 Sub main() Dim a() As Variant Dim i As Integer i = Int(3 / 2) a = Array(1, 2, 5, 3, 7, 4) sort a Debug....
  • 学习Excel技术,关注微信公众号:excelperfect...图1根据程杰著《大话数据结构》P315-P316定义,二叉排序定义如下:“二叉排序树(Binary Sort Tree),又称二叉查找树,它或者是一棵空树,或者是具有下列性...
  • VBA研究】排序编程代码

    千次阅读 2015-10-29 15:11:04
    通过录制宏可以很容易得到(我学习VBA的方法基本就是查资料、录制宏),例如2003版可以得到如下排序语句: Rows("1:1500").Select Selection.Sort key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
  • Range.Sort: VBA 内置的排序方法,15个参数。 (Key1,Order1,Type,Key2,Order2,Key3,Order3,Header,OrderCustom,MatchCase,Orientation,SortMethod,DataOption1,DataOption2,DataOption3) Ke...
  • 学习Excel技术,关注微信公众号:excelperfect...图1根据程杰著《大话数据结构》P315-P316定义,二叉排序定义如下:“二叉排序树(Binary Sort Tree),又称二叉查找树,它或者是一棵空树,或者是具有下列性...
  • VBA中实现数组排序的多种方法

    万次阅读 2015-08-25 09:40:59
    VBA里面没有现成的Sort方法可以使用,VBA里面要对数组进行排序,现有的通常做法: 1,通过单元格赋值以后利用工作表里的Sort方法进行排序, 2,通过SQL实现,也需要调用单元格区域存放数据, 3,直接写循环语句...
  • 使用Range对象的Sort方法对区域进行排序时,同时最多只能指定3个关键字,当需要按照超过3个关键字对区域进行排序时,可以通过多次执行Sort方法实现。需要注意的是,在排序时应按照各关键字的倒叙顺序。例如,如果...
  • 大家好,今日我们继续讲解VBA数组与字典解决方案,今日讲解第50讲:结合数组,在VBA中实现冒泡排序。对于排序,我们并不陌生,在之前章节用也有介绍, 如在49讲中我们利用下面代码实现了三重排序:Range("A1:C" &...
  • 大家好,今日我们继续讲解VBA数组与字典解决方案,今日讲解第50讲:结合数组,在VBA中实现冒泡排序。对于排序,我们并不陌生,在之前章节用也有介绍, 如在49讲中我们利用下面代码实现了三重排序:Range("A1:C" &...
  • 使用vba实现excel 列快速排序

    千次阅读 2019-01-10 11:39:51
    Sub test2()  Dim r%, i%  With Worksheets("sheet2")  r = .Cells(.Rows.Count, 1).End(xlUp).Row  .Sort.SortFields.Clear  .Sort.SortFields.Add Key:=.Range...), SortOn:=xlSortOnValues, Orde...
  • 大家好,今日我们继续讲解VBA数组与字典解决方案,今日讲解第50讲:结合数组,在VBA中实现冒泡排序。对于排序,我们并不陌生,在之前章节用也有介绍, 如在49讲中我们利用下面代码实现了三重排序:Range("A1:C" &...
  • 排序方式,是我在本套书中重点介绍内容,之前讲解中我先后讲解了几种方法,但实际工作中应用最为普遍仍是SORT排序,在这讲内容中我将讲解一下当字典回填数据后用此方法进行按拼音和按笔画排序两种方式....
  • 排序: Range("A:T").Sort Key1:=Range("P1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xl...
  • Excel VBA一行代码搞定分组排序

    千次阅读 2019-12-08 19:14:56
    最近很多小伙伴都被分组排序所困扰,Excel没有现成分组排序功能,想要这功能基本都是靠录制宏.但是一旦录制宏,你就可以看到一长串不知道用不用得上,又不敢随便删除代码 录制宏虽然好用,但是很容易有坑,例如你录制...
  • 排序方式,是我在本套书中重点介绍内容,之前讲解中我先后讲解了几种方法,但实际工作中应用最为普遍仍是SORT排序,在这讲内容中我将讲解一下当字典回填数据后用此方法进行按拼音和按笔画排序两种方式....
  • 小米CEO雷军转发小米集团副总裁、小米技术委员会主席崔宝秋微博时表示,小米在AI领域申请专利684项,全球排在第11位。...sort排序其是执行是Excel自带排序功能:把AI专利排行榜数据打乱一下:用VBA...
  • Subsheets_sort()Fori=1ToSheets.CountForj=iToSheets.CountIfSheets(i).Name>Sheets(j).NameThenSheets(j).Move,Before:=Sheets(i)End...
  • Sub Sort() Sort Macro 宏由 zhengzhe 录制,时间: 2010-4-13 Dim workArea As Range 定义工作区域 Dim LastColumn As Long 最后一列 Dim LastRow As Long 最后一行 Dim sumRan
  • Range.Sort: VBA 内置的排序方法,15个参数。(缺点只有3个关键字排序) (Key1,Order1,Type,Key2,Order2,Key3,Order3,Header,OrderCustom,MatchCase,Orientation,SortMethod,DataOption1,DataOption2...
  • 排序方式,是我在本套书中重点介绍内容,之前讲解中我先后讲解了几种方法,但实际工作中应用最为普遍仍是SORT排序,在这讲内容中我将讲解一下当字典回填数据后用此方法进行按拼音和按笔画排序两种方式....

空空如也

空空如也

1 2 3
收藏数 48
精华内容 19
关键字:

vba的sort排序