如何使用「#VALUE！」查找單元格在EXCEL 2010 VBA

Question

我需要通過EXCEL 2012 VBA找到列中的最大值。 有些單元格有「#VALUE！」。我的代碼不起作用。

Sub find_max() 
    Dim rng As Range 
    Dim dblMax As Double 
    dblMax = 0 
    Set rng = Range("A2:A11") 
    For Each cell In rng 
    If (cell.Value <> "#VALUE!") Then // error ! type mismatch 
     If dblMax < CDbl(cell.Value) Then 
      dblMax = CDbl(cell.Value) 
     End If 
    End If 
Next cell 
MsgBox dblMax 
End Sub 

我還需要用最大值打印單元格位置（用顏色標記）。

任何幫助，將不勝感激。

Answer 1

如果你的範圍有常量，使用

application.WorksheetFunction.Max(range("B6:C13").SpecialCells(xlcelltypeconstants,xlNumbers)) 

如果有公式，使用

application.WorksheetFunction.Max(range("B6:C13").SpecialCells(xlcelltypeformulas,xlNumbers)) 

爲範圍，其中它的發現，.Find應該很好地工作：

Sub find_max() 


Dim rng As Range 
    Dim dblMax As Double, rgMax As Range 

    Set rng = Range("A2:A11") 

    dblMax = Application.WorksheetFunction.Max(rng.SpecialCells(xlCellTypeFormulas, xlNumbers)) 

    Set rgMax = rng.Find(dblMax, , xlValues, xlWhole) 

MsgBox rgMax.Address & ": " & dblMax 

End Sub