激活工作表时，Excel填充的数据不会清除

Question

我填写了一些组合框是sheet1，取决于sheet2中的一些值

我已经写了一些VBA代码，这样数据将被填充到一个组合框中，并且选择第一个组合将填充其他组合。

首先，当我选择sheet1并在组合1中选择一些值时，相应地选择2和3。

但是当选择工作表2并再次返回到工作表1时，所有先前选择的值都被重置。 我想保留以前选择的所有值。

我在激活表单中有这段代码

selectedClient = Sheets("2. TSS").Range("C17").Value

Dim Col As New Collection     朦胧吧     昏昏欲睡     Dim CellVal As Variant

totalRows = Sheets("3. BC").UsedRange.Rows.Count
For i = 5 To totalRows
    CellVal = Sheets("3. BC").Range("J" & i).Value
    On Error Resume Next
    Col.Add CellVal, Chr(34) & CellVal & Chr(34)
    On Error GoTo 0
Next i
With Sheets(2).OLEObjects("ComboBox1").Object
     .Clear
    For Each itm In Col
     .AddItem itm
        'Debug.Print itm
    Next
End With

谢谢，

Binaya Acharya