寻找最小值的行号和列号

cyq4896

参与一下..

今铭昔

huarong7984

所发示例，仅供参考。其作用为：突显鼠标选定区域内的最大值（粉红色）最小值（绿色），并在左下角状态栏内显示最大值、最小值及其所在单元格位置。  表中数据由随机函数公式自动生成。

680926

Sub t()
Dim arr
arr = Range("a1").CurrentRegion
Min = arr(1, 1)
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        If arr(i, j) <= Min Then
            Min = arr(i, j)
            hrow = i
            hcol = j
        End If
    Next
Next
Range("b23") = Min
Range("b24") = hrow
Range("b25") = hcol
End Sub

280022976

huarong7984 发表于 2023-11-17 09:58
所发示例，仅供参考。其作用为：突显鼠标选定区域内的最大值（粉红色）最小值（绿色），并在左下角状态栏内 ...

优秀作品呀。学习一下。点赞！

buciyuan

cyq4896 发表于 2023-11-17 07:29
参与一下..

Sub test()
    zx = [b23]
    hh = [a1].CurrentRegion.Find(zx).Row
    lh = [a1].CurrentRegion.Find(zx).Column
    Cells(24, 2) = hh
    Cells(25, 2) = lh
    Cells(hh, lh).Select
End Sub
简洁至极，点赞！

changqingwen

limonet 发表于 2023-11-16 23:07
关键字：FIND

您好，当有两个相同最小值呢，前10小值依次求定位。感谢。

limonet

changqingwen 发表于 2023-11-21 16:57
您好，当有两个相同最小值呢，前10小值依次求定位。感谢。

前10小值依次求定位，这个没听明白；另外，给个附件，模拟一个结果。

changqingwen

limonet 发表于 2023-11-21 17:03
前10小值依次求定位，这个没听明白；另外，给个附件，模拟一个结果。

您好，最小值有几个相同，如何识别哪个位置先