遍历多维数组中的列

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