=$A$2:ИНДЕКС($A$2:$A$100000; ПОИСКПОЗ(ПОВТОР("я";255);A2:A100000))

Private Sub Workbook_Open()Dim cn As Object, rs As Object
Dim intColIndex As Integer
Dim DBFullName As String
Dim TargetRange As Range
 
On Error GoTo Whoa
Set TargetRange = ActiveSheet.Range("A1")
 
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _
              "Data Source=T:\Tablica\TestMDB.mdb;" & _
              "Jet OLEDB:Database Password='****';"
 
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM TEST2", cn, , , adCmdText
 
' Write the field names
For intColIndex = 0 To rs.Fields.Count - 1
    TargetRange.Offset(1 - 1, intColIndex).Value = rs.Fields(intColIndex).Name 'ori nie bylo -1
Next
 
' Write recordset
TargetRange.Offset(1, 0).CopyFromRecordset rs
 
LetsContinue:
 
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
On Error GoTo 0
Exit Sub
Whoa:
MsgBox "Error Description :" & Err.Description & vbCrLf & _
   "Error at line     :" & Erl & vbCrLf & _
   "Error Number      :" & Err.Number
Resume LetsContinue
End Sub

With Sheets("Лист1").Cells(1, 1).QueryTable
.Connection = "ODBC;DBQ=" & MySource & "\Base.mdb; Default Dir=" & MySource & _
";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;" & _
"PageTimeout=5;ReadOnly=1;Safe Transactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
.CommandText = Array( _
"SELECT ", _
"`Столбец1`, `Столбец2`,`Столбец3`" _
& Chr(13) & "" & Chr(10) & _
"FROM " & MyTable & Chr(13) & "" & Chr(10) & _
"WHERE (" & MySelection & "='" & MyFilter & "')" _
)
.Refresh BackgroundQuery:=False
End With

КтоМолодец=Expression.Evaluate("=ФИО{List.PositionOf({"&ФИО_со_скобками&"},[МаксСумма])}")

=ФИО{List.PositionOf({[Вася],[Коля],[Маша],[Петя]},[МаксСумма])}

"Магазин № "& i - 1

Test = Range("Таблица1[Столбец1]").Value

Test = Range("Таблица1[Столбец1]").Value

Test = Range("Таблица1[Столбец1]").Value

Sub Knopka_Click ()
 Dim test
 test = Range("E2:E22")
 ReDim Preserve test (21)
 Range ("B6").Value = test(4)
End Sub