Question

我在这里找到了有关为两个不同的列集找到两个不同的最大/分钟的问题，但是我想使用这个代码，而不是只检查列K，我希望它也检查列K在我的第二个工作表Sheet2“存档”。

因此，如果Column K在Sheet1上包含1,2,3，而Column 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

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

1 个答案: