Excel代码问题，非常感谢！

LSYYLW

quqiyuan 发表于 2024-10-11 12:26
开始运行出错，调整了下就好了，仅供参考。。。

老师您好：又来麻烦您了，您有时间帮我看一下20楼附件里的问题，拜托您了！

quqiyuan

LSYYLW 发表于 2024-10-13 10:13
老师您好：又来麻烦您了，您有时间帮我看一下20楼附件里的问题，拜托您了！

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

quqiyuan

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$1" Then
        Set d = CreateObject("scripting.dictionary")
        arr = [d22:d61]
        brr = [af13:af17]
        crr = arr
        For i = 1 To UBound(brr)
            d(brr(i, 1)) = ""
        Next
        For i = 1 To UBound(arr)
            If Not d.exists(arr(i, 1)) Then
                crr(i, 1) = "#N/A"
            End If
        Next
        [an22].Resize(UBound(crr)) = crr
    End If
    Application.EnableEvents = True
    Beep
    Set d = Nothing
End Sub

LSYYLW

quqiyuan 发表于 2024-10-13 10:32
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents =  ...

万分的感谢老师，代码非常非常好用，鲜花稍后为您献上。