execl下拉框選擇兩列，顯示單列vba源碼

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