execl下拉框选择两列，显示单列vba源码

Posted 2020-11-30

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 1 And Target.Row < 10 And Target.Column = 5 And Target <> "" Then
‘1表示下拉列表从1行下面开始，10表示下拉列表到第10行；开始5是下拉列表所在的列数
Application.EnableEvents = False
Target = Split(Target, " ")(0)
‘显示第1列用0，第2列用1，以此类推
Application.EnableEvents = True
End If
End Sub

参考：http://www.360doc.com/content/19/0222/20/30583536_816845809.shtml