工作表中的最大值

Question

需要一些帮助才能在工作表中找到最大值，

我尝试了范围：

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

除了我不希望它停在B5之外，我希望它能够浏览整个工作表。

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

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

现在想知道是否有更优雅的解决方案，更换“XFD1048576”，或者只是编写更好的代码。

Answer 1

为什么不使用"UsedRange"属性？

您的代码示例将变为类似：

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

您还可以使用Cells属性 - ActiveWorkbook.Worksheets("Sheet1").Cells搜索每个单元格，即使它是空的。出于这个原因，我更喜欢使用UsedRange。