vb 中两个combobox分别是excel 表中的两列，怎样通过选combo1中的内容combo2联动，选combo2时combo1联动？

Private Sub Combo1_Click()
Dim list As Integer
list = Combo1.ListIndex
Combo2.Text = Combo2.list(Combo1.ListIndex)
End Sub
Private Sub Combo2_Click()
Dim list As Integer
list = Combo2.ListIndex
Combo1.Text = Combo1.list(Combo2.ListIndex)
End Sub

这个：
sub cmbox1_click(）
Select Case Cmbox1.ListIndex
Case 0
cmbox2.listindex=??
Case 1
cmbox2.listindex=??
Case 2
cmbox2.listindex=??
Case ??
cmbox2.listindex=??
End Select
end sub
这样无论你什么时候修改cmbox1的内容总会使cmbox2发起反应
？？是你对应于cmbox1修改后的当前内容，cmbox 要用下拉列表的哪一项其反应的规则，自己来定