工作表中的最大值

需要一些帮助在工作表中find最大值，

我试着用范围：

Dim maxNumber As Double maxNumber = Application.WorksheetFunction.Max(Range("A1:B5")) 

除了我不想让它在B5停下来之外，我希望它能够贯穿整个工作表。

所以我发现“XFD1048576”象征着工作表的最后一个单元格：

 Dim maxNumber As Double maxNumber = Application.WorksheetFunction.Max(Range("A1:XFD1048576")) 

只是想知道现在是否有一个更优雅的解决scheme，什么来取代“XFD1048576”，或者只是写更好的代码。

Answer 1

为什么不使用“UsedRange”属性？

您的代码示例会变成如下所示：

 Dim maxNumber As Double maxNumber = Application.WorksheetFunction.Max(ActiveWorkbook.Worksheets("Sheet1").UsedRange) 

您也可以使用Cells属性 – ActiveWorkbook.Worksheets("Sheet1").Cellssearch每个单元格，即使它是空的。 出于这个原因，我宁愿使用UsedRange。