[已解决]如何求循环生成的变量的最大值

Saint_Zuo

sub aa()

dim i,s as long

s=sheets.count

for i=1 to s

row=sheet(i).[a65536].end(xlup).row

next

end sub

在上面的程序中如何求所有工作表的row的值的最大值。

最佳答案

月排行榜 / 总排行榜

烟火的天空

2009-9-1 16:56

我自己写的。

Sub tx()
Dim i, MaxRow As Integer
MaxRow = 0
For i = 1 To Sheets.Count
    MaxRow = WorksheetFunction.Max(Sheets(i).[a65535].End(xlUp).Row, MaxRow)
Next i
MsgBox MaxRow
End Sub

[此贴子已经被作者于2009-9-1 16:56:35编辑过]

跳转到最佳答案楼层

烟火的天空

我自己写的。

Sub tx()
Dim i, MaxRow As Integer
MaxRow = 0
For i = 1 To Sheets.Count
    MaxRow = WorksheetFunction.Max(Sheets(i).[a65535].End(xlUp).Row, MaxRow)
Next i
MsgBox MaxRow
End Sub

[此贴子已经被作者于2009-9-1 16:56:35编辑过]

吕?布

Sub aa()

    Dim i, s As Long, lRow As Long, lMaxRow As Long

    s = Sheets.Count

    For i = 1 To s

        lRow = Sheets(i).[a65536].End(xlUp).Row
       
        If lRow > lMaxRow Then lMaxRow = lRow
       
    Next
   
    MsgBox "最大Row=" & lMaxRow

End Sub

函数小菜鸟

Sub aa() '只能求A列最大行号
    ROWMAX = 0
    Dim i, s As Long
    s = Sheets.Count
    For i = 1 To s
        If Sheets(i).[a65536].End(xlUp).Row > ROWMAX Then ROWMAX = Sheets(i).[a65536].End(xlUp).Row
    Next i
End Sub

Saint_Zuo

多谢了，各位。