在两张工作表E中计算最多两列

我在这里find了关于为两个不同的列集合find两个不同的最大/最小值的问题，但我正在寻找使用这个代码，而不是让它只检查K列，我想它也检查列K工作表Sheet2“存档”。

因此，如果K列在Sheet1上包含1,2,3，而Sheet K在Sheet2上包含8,10,12，那么MsgBox应该读出“13”

Sub IncrementMax () Dim NewValue as Long NewValue = Application.Max(Range("K1:K" & Range("K" & Rows.Count).End(xlUp).Row)) + 1 MsgBox NewValue End Sub 

Answer 1

Max函数允许多个参数，所以只需传递两个范围：

 Sub IncrementMax () Dim NewValue as Long NewValue = Application.Max(Worksheets("Sheet1").Range("K1", Worksheets("Sheet1").Range("K" & Worksheets("Sheet1").Rows.Count).End(xlUp)), _ Worksheets("Archive").Range("K1", Worksheets("Archive").Range("K" & Worksheets("Archive").Rows.Count).End(xlUp))) + 1 MsgBox NewValue End Sub