遍歷表列並將最大值或最小值存儲在數組變量中

Question

我正在嘗試使用VBA在excel中遍歷一個表，並將每列的最大值存儲在數組變量中，以供以后在程序中使用。

我采用了許多與下面的代碼段相似的方法，但均未成功。 供參考： mainTable是在腳本前面定義的Public ListObject變量， mainCols是先前也定義的Pubic Long變量，用於存儲mainTable的寬度：

Dim maxVals() As Long
ReDim maxVals(mainCols)

For x = 0 To mainCols - 1
maxVals(x) = mainTable.ListColumns(x + 1).TotalsCalculation = xlTotalsCalculationMax
Next x

上面的代碼執行無錯誤，但始終返回0

重要的是，我不要對列/表的位置進行硬編碼，以便用戶可以復制/粘貼具有不同維度的數據集，並且可以正確運行腳本。 另外，假設用戶可以使用所需的任何列標題在數據集上運行此操作。

Answer 1

您的代碼只是更改了表的“總計”行中使用的計算-實際上並沒有返回最大值。 您可以使用：

Dim maxVals() As Long
ReDim maxVals(mainCols)

For x = 0 To mainCols - 1
maxVals(x) = WorksheetFunction.Max(mainTable.ListColumns(x + 1).Range)
Next x