[原创]贺新版开张 二维数组排序

ldy

Sub arrAtoZ3()    '二维数组排序纵向排序
    arr = Range("a1:c2000")    ' 此处仅仅是简单获取一个数组
    a = LBound(arr)
    b = UBound(arr)
    x = LBound(arr, 2)
    y = UBound(arr, 2)
    L = 1 ' --------------------------------指定要排序的列序号
    L = a + L - 1
    tm = Timer
    For i = a To b
        s = arr(i, L)
        k = i
        For j = i + 1 To b
            If arr(j, L) < s Then
                s = arr(j, L)
                k = j
            End If
        Next
        If k > i Then
            For j = x To y
                s = arr(k, j)
                arr(k, j) = arr(i, j)
                arr(i, j) = s
            Next
        End If
    Next

    Debug.Print Timer - tm, ttt
    Range("d1").Resize(b - a + 1, y - x + 1) = arr

End Sub

杨副官

学习了

杨副官

Sub arrAtoZ3()    '二维数组排序纵向排序
    arr = Range("a1:c2000")    ' 此处仅仅是简单获取一个数组
    a = LBound(arr)
    b = UBound(arr)
    x = LBound(arr, 2)
    y = UBound(arr, 2)
    L = 1 ' --------------------------------指定要排序的列序号
    L = a + L - 1
    tm = Timer
    For i = a To b
        s = arr(i, L)
        k = i
        For j = i + 1 To b
            If arr(j, L) < s Then
                s = arr(j, L)
                k = j
            End If
        Next
        If k > i Then
            For j = x To y
                s = arr(k, j)
                arr(k, j) = arr(i, j)
                arr(i, j) = s
            Next
        End If
    Next

    Debug.Print Timer - tm, ttt
    Range("d1").Resize(b - a + 1, y - x + 1) = arr

End Sub

以上代码中：Range("d1").Resize(b - a + 1, y - x + 1) = arr　是什么意思？

兰色幻想

[em17][em17]

ldy

QUOTE:

：Range("d1").Resize(b - a + 1, y - x + 1) = arr　是什么意思？

 单元格（D1）重置大小 （ b - a + 1行 , y - x + 1  列）后的值 = arr

ab，cd分别是 arr数组的 第一维的 和第二维的 上下标

数组的并不一定 就是从 0 或 1 开始的

redim arr（10 to 19 ，3 to 6） 定义 一个 10行 4列的 数组

 b - a + 1 的意思就是 确定 数组有几行

HGH

过来学习啦[em02]

qq77qq

[em04][em04]

数组还没搞懂呢, 别提VBA了, 这个星期主要是休息. 下星期再看吧

laosanjie

虽然还看不太懂，先下载收藏了。谢谢楼主！！

PengHui

嗯，学习了，

代码不长，慢慢研究

杨副官

对数组还不是很了解，还需努力学习