arrays - 循环遍历多维数组中的列

Question

我有一个多维数组，其布局如下：

Banana  10  20  30  40
Coconut 5   10  2   4
Apple   3   4   5   6

我想遍历工作表中的特定列范围以检查值是“香蕉”、“椰子”还是“苹果”。当单元格值等于数组第一列中的值时，我想在该特定标识符旁边输出数组值。因此，例如，我希望输出如下：

Shark
Banana  10  20  30  40
Pear
Apple   3   4   5   6

我知道我需要遍历范围内的每个单元格，然后评估该单元格是否等于数组第一列中的值。但是，我不知道该怎么做。通常我只使用下面的设置，但我想了解在这种情况下如何创建更好的解决方案，我只想循环遍历数组中的第一列。

For Each cell In ws.Range("OUTPUT")
    For y = LBound(arr, 2) To UBound(arr, 2)
        If cell.Value = y Then
            For m = 1 To x
                ws.Cells(cell.Row, n + 1) = arr(n, m)
            Next m
            n = n + 1
        End If
    Next y
Next cell

标签： arraysvba