在范围内的用户表单上填充组合框

Question

我用级联的 ComboBoxes 创建了一个用户窗体，两个ComboBoxes的值取自工作表中的两列。 该代码可以正常工作，但是当我尝试使用稍有不同的数据创建相同的用户窗体时，我似乎无法使ComboBoxes起作用-它们只是空了。

我尝试使用特定范围而不是D2和LastRow，但无法正常工作。

Private Sub Seven_Initialize()

ComboBox_Area.List = Sheets("Seven").Range("E2:E18").Value

End Sub


Private Sub ComboBox_Area_Change()

Dim rngZone As Range
Dim rngList As Range
Dim strSelected As String
Dim LastRow As Long

      If ComboBox_Area.ListIndex <> -1 Then

           strSelected = ComboBox_Area.Value

           LastRow = Worksheets("Seven").Range("D" & Rows.Count).End(xlUp).Row

           Set rngList = Worksheets("Seven").Range("D2" & LastRow)

           For Each rngZone In rngList

                 If rngZone.Value = strSelected Then

                      ComboBox_Seven.AddItem rngZone.Offset(, -1)

                 End If

           Next rngZone

      End If

End Sub

我不确定我在做什么错，因为它在具有非常相似数据的其他用户表单中可以正常工作。