Private Sub UserForm_Activate()
    Set C_is1 = CreateObject("scripting.dictionary")
    Set C_is2 = CreateObject("scripting.dictionary")
    Set C_is3 = CreateObject("scripting.dictionary")
    Dim mas1, mas2, mas3, Key1 As String, Key2 As String, Key3 As String, key As String

    ComboBox7.Clear
    ComboBox8.Clear
    ComboBox9.Clear

    With Sheets("дата")
    Dim rng As Range
    col1 = 0
    col2 = 0
    col3 = 0
    Set rng = .Rows(1).Find("вася 1", , , xlWhole)
    If rng Is Nothing Then Exit Sub
    col1 = rng.Column
    Set rng = .Rows(1).Find("вася 2", , , xlWhole)
    If rng Is Nothing Then Exit Sub
     col2 = rng.Column
    Set rng = .Rows(1).Find("вася 3", , , xlWhole)
    If rng Is Nothing Then Exit Sub
     col3 = rng.Column
        конец = .Cells(Rows.Count, 2).End(xlUp).Row
        mas1 = .Cells(1, col1).Resize(конец, 2)
        mas2 = .Cells(1, col2).Resize(конец, 2)
        mas3 = .Cells(1, col3).Resize(конец, 2)
        For n = 2 To UBound(mas1)
            Key1 = mas1(n, 1)
            Key2 = mas2(n, 1)
            Key3 = mas3(n, 1)
            If Not C_is1.Exists(Key1) Then
                C_is1.Item(Key1) = Key1
            End If
            key = Key1 & "_" & Key2
            If Not C_is2.Exists(key) Then
                C_is2.Item(key) = Key2
            End If

            key = Key1 & "_" & Key2 & "_" & Key3
            If Not C_is3.Exists(key) Then
                C_is3.Item(key) = Key3
            End If

        Next

    End With

    keys = C_is1.keys
    For Each itm In keys
        ComboBox7.AddItem itm
    Next
    If C_is1.Count > 0 Then ComboBox7.ListIndex = 0
End Sub