求修改提取最大值的代码

lagos

详情请见附件： 求修改提取最大值的代码.rar (12.01 KB, 下载次数: 14)

2023-6-20 10:51 上传

点击文件名下载附件

夏天的风shh4695

请测试。。。你也在拉各斯？

盼盼198310

.............

lagos

夏天的风shh4695 发表于 2023-6-20 11:14
请测试。。。你也在拉各斯？

谢谢帮助，5月份回国了，那边现在太危险

3190496160

Sub mynz_50() '50 VBA代码如何求最大值、最小值
Dim ar As Variant
Dim br()
With ActiveSheet
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b1:g" & r)
    zdz = Application.Max(.Range("b2:b" & r))
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 2 To UBound(ar)
        If ar(i, 1) = zdz Then
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(i, j)
            Next j
        End If
    Next i
    .Range("M2").CurrentRegion = Empty
    .[m2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "最大值是:" & zdz & "共有 " & n & "个"
End Sub

3190496160

tanglf188

请参考。。。。。

sxbjzjf110

改了一下楼主的代码。。。

夏天的风shh4695

lagos 发表于 2023-6-20 11:17
谢谢帮助，5月份回国了，那边现在太危险

哦，我疫情前在Ikeja待过几年，整体感觉还行啊。现在怎么不安全？

sdytsxd991122