Excel VBA在特定工作表上查找范围内的最大值

Question

我发现以下代码在范围内获得最大值:

Cells(Count, 4)=Application.WorksheetFunction.Max(Range(Cells(m, 1),Cells(n, 1)))

如何在特定工作表内搜索？Data这种情况下的表格

喜欢:

Worksheets(d).Cells(x, 4).Value = Worksheets("Data")... ????? FIND MAX ????

Answer 1

这通常会起作用,但缺少参考:

 worksheets("Data").Cells(Count, 4)=  Application.WorksheetFunction.Max _
    ( worksheets("Data").range( cells(m,1) ,cells(n,1) )

文本"单元格"之前应该是对单元格所在工作表的引用,我会这样写:

worksheets("Data").Cells(Count, 4) = Application.WorksheetFunction.Max _
    ( worksheets("Data").range( worksheets("Data").cells(m,1) ,worksheets("Data").cells(n,1) )

这也可以这样写得更清楚:

with worksheets("Data")
    .Cells(Count, 4) =  Application.WorksheetFunction.Max _
                            ( .range( .cells(m,1) ,.cells(n,1) )
End With 

我希望这有帮助.

哈维