|
|
给你一个VBA版本的，点击这两个单元格，会自动下拉！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr
r = Target.Row: j = Target.Column
If j = 5 Then
If r = 1 Then
Set d1 = CreateObject("Scripting.Dictionary")
arr = Sheets("Sheet1").UsedRange
For i = 2 To UBound(arr)
If arr(i, 2) = "A类" Then d1(arr(i, 1) & "") = ""
Next
With Range("e1").Validation
.Delete
.Add 3, 1, 1, Join(d1.keys, ",")
End With
CreateObject("Wscript.Shell").SendKeys "%{down}"
ElseIf r = 2 Then
Set d2 = CreateObject("Scripting.Dictionary")
arr = Sheets("Sheet1").UsedRange
For i = 2 To UBound(arr)
If arr(i, 2) = "B类" Then d2(arr(i, 1) & "") = ""
Next
With Range("e2").Validation
.Delete
.Add 3, 1, 1, Join(d2.keys, ",")
End With
CreateObject("Wscript.Shell").SendKeys "%{down}"
Else
End If
End If
End Sub
数据有效性.zip
(13.92 KB, 下载次数: 13)
|
|
