1.Excel VBA 更新主菜单事件程序

Private Sub Worksheet_Change(ByVal Target As Range)  '主级菜单更新事件
Dim qhs01 As Range
Dim n As Long
Dim qhn01 As Long
Dim xulie1 As String

If Target.Column = 3 Then
With Sheets("中台接口头表")
qhn01 = .Range("c1000000").End(xlUp).row
    n = 1
    For Each qhs01 In .Range("c3:c" & qhn01)
        If Application.WorksheetFunction.CountIf(.Range("$c$3:" & qhs01.Address), qhs01) = 1 Then
            xulie1 = xulie1 & qhs01 & ","
'            .Cells(n, 1) = qhs01
            n = n + 1
        End If
    Next
    End With
    
    With Sheets("中台接口查询").Range("c3").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=xulie1
    End With
End If
End Sub