用户窗体示例：创建关联的组合框

Private Sub UserForm_Initialize()
 Dim r As Range
 
 Set r = ActiveSheet.Cells(1, 1)
 Set r = Range(r, r.End(xlDown))
 Set r = r.Cells(2, 1).Resize(r.Rows.Count, 1)
 Me.combobox1.RowSource = r.Address
End Sub

Private Sub combobox1_Change()
 Dim i As Long
 Dim r As Range
 
 i = 0
 On Error Resume Next
 i = Application.WorksheetFunction.Match(Me.combobox1.Value, ActiveSheet.Rows(1), 0)
 On Error GoTo 0
 If i = 0 Then Exit Sub
 Set r = ActiveSheet.Cells(1, i)
 Set r = Range(r, r.End(xlDown))
 Set r = r.Cells(2, 1).Resize(r.Rows.Count, 1)
 With Me.Combobox2
   .Value = ""
   .RowSource = r.Address
 End With
End Sub