Excel VBA - 对二维数组进行排序答案

【问题标题】：Excel VBA -Sorting a 2-dimensional arrayExcel VBA - 对二维数组进行排序
【发布时间】：2018-09-25 12:23:27
【问题描述】：

我想用 VBA 按字母顺序对二维数组results(lcol, 4) 进行排序。该数组包含 4 列和可变数量的行，基于最后一列的值。

这是我如何填充数组的代码：

ReDim results(lcol, 4)

For i = 1 To lcol
    results(i, 1) = ThisWorkbook.Sheets(2).Range("B1").Offset(, i - 1).Value
    results(i, 2) = "0"
    results(i, 3) = ThisWorkbook.Sheets(3).Range("C2").Offset(i - 1, 0).Value
Next i



    For Each of In ThisWorkbook.Sheets(1).Range("A1:C" & lrow2)
        Set modele = of.Offset(, 1)
        Set qte = of.Offset(, 2)

        For Each modele2 In ThisWorkbook.Sheets(2).Range("A2:A481")
            If modele2.Value = modele.Value Then
                For i = 1 To lcol 'à modifier
                    results(i, 2) = results(i, 2) + qte.Value * modele2.Offset(, i).Value
                    If results(i, 2) <= results(i, 3) Then
                        results(i, 4) = "OK"
                    Else
                        results(i, 4) = "Rupture"
                    End If

                Next i
                Exit For
            End If
        Next modele2
    Next of

【问题讨论】：

您能提供一些数据和预期结果吗？您可以使用table generator 将数据格式化为表格并将其插入代码标签之间。
您好，请在以下要求的表格中找到答案。谢谢你的帮助
stackoverflow.com/questions/4873182/…

标签： arrays excel vba sorting

【解决方案1】：

这提供了一个基本的（quiksort？）对填充数组的升序排序，最后一列作为主键。

dim i as long, j as long, tmp as variant

redim tmp(lbound(results, 1) to lbound(results, 1), lbound(results, 2) to ubound(results, 2))

for i = lbound(results, 1) to ubound(results, 1) - 1
    if results(i, ubound(results, 2)) > results(i+1, ubound(results, 2)) or _
     results(i, ubound(results, 2)) = vbnullstring then
       for j = lbound(results, 2) to ubound(results, 2)
           tmp(lbound(results, 1), j) = results(i, j)
       next j
       for j = lbound(results, 2) to ubound(results, 2)
           results(i, j) = results(i+1, j)
       next j
       for j = lbound(results, 2) to ubound(results, 2)
           results(i+1, j) = tmp(lbound(results, 1), j) 
       next j
    end if
next i

对于所有 lbound 和 ubound 感到抱歉，但我不知道您的数组是从零开始还是从 1 开始。 For i = 1 To lcol 不是确定的。所有证据都表明您的 arr 是从零开始的。

【讨论】：

【解决方案2】：

您可以让 SortedList 对象完成这项工作

假设您的结果数组基于 1 且有 4 列，您可以尝试以下代码（未测试）：

Sub SortArray(results As Variant)
    Dim i As Long, j As Long

    With CreateObject("System.Collections.SortedList")
        For i = 1 to UBound(results)
            .Add results(i,4), Application.Index(result,i,0)
        Next
        For i = 1 To .Count
            For j = 1 To 4
                results(i, j) = .GetByIndex(i)(j)
            Next
        Next
    End With
End Sub

你会在你的“主”子中调用如下：

SortArray results

【讨论】：