WorksheetFunction.Max/Min對於變量範圍的運行時錯誤「1004」

Question

我想在for循環（對於每一行）中獲取範圍的最大值和最小值。

無論我在互聯網上找到的解決方案是靜態範圍還是給我同樣的錯誤。目前我使用它在xMax行給出run-time error '1004'如下：

Dim i As Long 
Dim xMax As Double 
Dim ws1 As Worksheet 
Set ws1 = Worksheets("Sheet1") 

For i = 2 To 15 
    xMax = Application.WorksheetFunction.Max(ws1.range(Cells(i, 6), Cells(i, 15))) 
Next 

但是下面的靜態範圍內工作：

xMax = Application.WorksheetFunction.Max(ws1.range(Cells(2, 6), Cells(2, 15))) 

我試圖把它siplify 2個細胞：

靜態範圍沒有問題：

xMax = Application.WorksheetFunction.Max(Cells(2, 6).Value, Cells(2, 7).Value) 

但動態範圍彈出同樣的錯誤：在一個循環中

For i = 2 To 15 
    xMax = Application.WorksheetFunction.Max(Cells(i, 6).Value, Cells(i, 7).Value) 
Next 

我如何能實現最小/最大變量範圍是多少？

Answer 1

以您最初的聲明中排位所有範圍後：

xMax = Application.WorksheetFunction.Max(ws1.range(ws1.Cells(i, 6), ws1.Cells(i, 15))) 

當某些範圍內的細胞都有錯誤，如#NA或#DIV!0，則Max拋出一個錯誤。爲了讓您的計算忽略範圍內的錯誤單元格，可以使用Aggregate函數。

xMax = Application.Aggregate(14, 6, ws1.range(ws1.Cells(i, 6), ws1.Cells(i, 15)), 1) 

• 第一個參數14指定Large。使用15爲Small。
• 第二個參數6指定
• 最後一個參數指定1「第一大結果」

還要注意的是，你嘗試過其他的版本，即「在計算中忽略錯誤」

xMax = Application.WorksheetFunction.Max(Cells(i, 6).Value, Cells(i, 7).Value) 

不指定連續範圍，而是指定一組值（變體）。只要其中一個變量不是數字，就會引發錯誤。但是，你不需要這個版本。

Answer 2

我包含了一個可以更容易地捕捉到字母的分割函數。

Dim i As Long 
Dim xMax As Double 
Dim ws1 As Worksheet 
Set ws1 = Worksheets("Sheet1") 

For i = 2 To 15 
    xMax = Application.WorksheetFunction.Max(ws1.range("F" & i & ":" & Split(Cells(, i).Address, "$")(1) & "15")) 
Next 

Answer 3

你一定要告訴Excel的地方cell點 - 否則，它將使用主動片，例如

xMax = Application.WorksheetFunction.Max(ws1.range(ws1.Cells(i, 6), ws1.Cells(i, 15))) 

或

With ws1 
    xMax = Application.WorksheetFunction.Max(.Range(.Cells(i, 6), .Cells(i, 15))) 
End With 

個人而言，我通常會指派一個範圍首先是範圍變量 - 它有助於調試：

With ws1 
    dim r as range 
    ''' set r = .Range(.Cells(i, 6), .Cells(i, 15)) ' Fails if not all cells are numeric 
    set r = .Range(.Cells(i, 6), .Cells(i, 15)).SpecialCells(xlCellTypeConstants, xlNumbers) 
    xMax = Application.WorksheetFunction.Max(r) 
End With