Sub test()
    Dim wb As Workbook, ws As Worksheet, cl As Range, lastRow&, x&
    Dim dic As Object, dkey
    Set wb = ActiveWorkbook
    Set ws = wb.ActiveSheet
    Set dic = CreateObject("Scripting.Dictionary")
    dic.comparemode = vbTextCompare
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    For Each cl In ws.Range("B1:B" & lastRow)
        If Not dic.exists(cl.Value) Then
            dic.Add cl.Value, ws.Cells(cl.Row, "A").Value
        Else
            dic(cl.Value) = dic(cl.Value) & " " & ws.Cells(cl.Row, "A").Value
        End If
    Next cl
    Set ws = wb.Sheets.Add
    x = 1
    For Each dkey In dic
        ws.Cells(x, "A").Value = dkey
        ws.Cells(x, "B").Value = dic(dkey)
        x = x + 1
    Next dkey
    ws.Columns("A:B").AutoFit
End Sub

Dim llines&, sw$
sw = ActiveCell.Value
llines = UBound(Split(sw, Chr(10))) + 1
If llines > 5 Then
End If

[A:D].Columns.AutoFit

Sheets("ИмяЛиста").[A1].Value

Sub test()
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Dim cl As Range
    Dic.CompareMode = vbTextCompare
    With Workbooks("СправочникЗамен.xlam").Sheets("Лист1")
        For Each cl In .[A1:A8]
            Dic.Add cl.Value, cl.Offset(, 1).Value
        Next cl
    End With
    For Each cl In Selection
        If Dic.exists(cl.Value) Then cl.Value = Dic(cl.Value)
    Next cl
    Set Dic = Nothing
End Sub

for each cl in [лист].[range]
     dic.add [что искать],[чем заменить]
next cl

Sub test()
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Dim cl As Range
    Dic.CompareMode = vbTextCompare
    Dic.Add "DAX", "ФИО1"
    Dic.Add "DAZ", "ФИО2"
    Dic.Add "DBI", "ФИО2"
    Dic.Add "DDB", "ФИО3"
    Dic.Add "DDC", "ФИО2"
    Dic.Add "DDF", "ФИО3"
    Dic.Add "DDG", "ФИО"
    Dic.Add "DDH", "ФИО3"
    
    For Each cl In Selection
        If Dic.exists(cl.Value) Then cl.Value = Dic(cl.Value)
    Next cl
    Set Dic = Nothing
End Sub

If Cells(x, 1) like "Прием*" then Cells(x, 1).interior.color = vbred

 

 
Query = _
    " SELECT ПЕРВАЯ.ID, ПЕРВАЯ.NAME, ПЕРВАЯ.SITY, ПЕРВАЯ.OLD, ПЕРВАЯ.УК, " & _
    " (   SELECT COUNT(*) " & _
    "    FROM ВТОРАЯ " & _
    "    WHERE ВТОРАЯ.Name = ПЕРВАЯ.Name  " & _
    "        AND ВТОРАЯ.SITY = ПЕРВАЯ.SITY " & _
    "        AND ВТОРАЯ.ID = ПЕРВАЯ.ID " & _
    "        AND ВТОРАЯ.OLD = ПЕРВАЯ.OLD ) AS ПРОВЕРКА " & _
    " FROM ПЕРВАЯ " & _
    " WHERE ПЕРВАЯ.ID = 15000 "
    

Sub test()
Dim n%, z%, oCell As Range
On Error Resume Next
For Each oCell In ActiveSheet.Range("B2:M6")
    n = Sheets("Лист1").Range("A1:M1").Find(Cells(1, oCell.Column)).Column
    z = Sheets("Лист1").Range("A1:A6").Find(Cells(oCell.Row, 1)).Row
    If Err.Number = 0 Then
        oCell.Value = Sheets("Лист1").Cells(z, n).Value
    Else
        Err.Clear: oCell.Value = Empty
    End If
Next
End Sub
 

Sub test()
Dim n%, z%, oCell As Range
On Error Resume Next
For Each oCell In ActiveSheet.Range("B2:M6")
    n = Sheets("Лист1").Range("A1:M1").Find(Cells(1, oCell.Column)).Column
    z = Sheets("Лист1").Range("A1:A6").Find(Cells(oCell.Row, 1)).Row
    oCell.Value = Sheets("Лист1").Cells(z, n).Value
Next
End Sub
 

 where u.locatn LIKE '1A-%'

Dim SQL$, oCell As Range
For Each oCell In Sheets("ëèñò1").Range("A1:A10")
    SQL = SQL & "'" & oCell.Value & "',"
Next
SQL = Left(SQL, Len(SQL) - 1)  
  
' чего то там
where u.locatn in (" & SQL & ");"