Excel代码问题，非常感谢！

LSYYLW

2024-11-24.zip (6.86 KB, 下载次数: 3)

2024-11-24 14:47 上传

点击文件名下载附件

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$AA$1" Then
        arr = [ab23:ak81]
        ReDim brr(1 To UBound(arr) - 1, 0)
        For i = 2 To UBound(arr)
            x = Application.Match(0, Application.Index(arr, i), 0)
            brr(i - 1, 0) = comp(Application.Index(arr, i - 1), arr(i - 1, x))
        Next
        [av24].Resize(UBound(brr)) = brr
        Beep
    End If
    Application.EnableEvents = True
End Sub

Function comp(x, y)
    For Each s In x
        If s < y Then n = n + 1
    Next
    comp = n + 1
End Function
   

LSYYLW

quqiyuan 发表于 2024-11-24 15:29
参与一下，仅供参考。。。

万分的感谢老师，代码非常非常好用。