SELECT top 10 Материал1 AS Наименование, Материал AS PLU, `Списание без НДС (Итог) (руб)` AS [Потери, руб],  cdbl(replace(0&`Списание  без НДС  (Итог) (%)`,' %',''))/100 AS [Потери от реализации, %] FROM `Лист1$` WHERE (Материал1<>'Результат') AND (Товиерур2=?) ORDER BY `Списание без НДС (Итог) (руб)` DESC

Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.Connection = "ODBC;DSN=Excel Files;DriverId=1046;DBQ=" & ThisWorkbook.FullName
End Sub

Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub

select distinct * from (SELECT * from `Лист1$` in 'D:\папка\другая книга.xlsm' 'Excel 12.0 xml;hdr=no;'  union all select * from`Лист1$` in 'D:\папка\2963331.xlsx' 'Excel 12.0 xml;hdr=no;' where F2 is not null)

Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.CommandText = "select distinct * from (SELECT * from `Лист1$` in '" & _
        ThisWorkbook.FullName & "' 'Excel 12.0 xml;hdr=no;'  union all select" & _
        " * from`Лист1$` in '" & ThisWorkbook.Path & "\" & [ИмяФайла] & "' " & _
        "'Excel 12.0 xml;hdr=no;' where F2 is not null)"
End Sub

Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub

[Откуда].Copy [Куда]

[Откуда].Copy: [Куда].PasteSpecial -4123

Dim a(1) As Variant
    With [Откуда]
        a(0) = .Resize(1).Formula
        a(1) = Intersect(.Cells, .Offset(1)).Formula
    End With
    With [Куда]
        Intersect(.Cells, .Offset(1)).Formula = a(1)
        .Resize(1).Formula = a(0)
    End With

Application.AutoCorrect.AutoFillFormulasInLists=False

=СУММЕСЛИМН(B7:B46;C7:C46;">="&B2-B1*30;C7:C46;"<="&B2)

=СУММ(ПРОСМОТР(("1."&A1)+СТРОКА($1:$366)-1;--(A$2:L$2&A1);A$3:L$3/ДЕНЬ(КОНМЕСЯЦА(A$2:L$2&A1;0)))*МУМНОЖ(-(("1."&A1)+СТРОКА($1:$366)-{0;1}<=B6:C6);{1:-1}))

Sub d()
    Dim r1 As Range
    Application.ScreenUpdating = 0: Application.EnableEvents = 0
    With Selection
        .UnMerge
        On Error GoTo er
        Set r1 = .RowDifferences(.Find(Empty))
        r1.EntireRow.Hidden = 1
        .SpecialCells(12).EntireRow.Delete
        .EntireRow.Hidden = 0
        r1.EntireColumn.Hidden = 1
        .SpecialCells(12).EntireColumn.Delete
        .EntireColumn.Hidden = 0
    End With
er: Application.ScreenUpdating = 1: Application.EnableEvents = 1
End Sub

Sub dd()
    Dim a As Variant
    With [Таблица1].ListObject
        .ListRows.Add 1
        With .ListColumns("Столбец2").DataBodyRange
            .Cells(1).Clear
            .Formula = .Formula
        End With
        .ListRows(1).Delete
    End With
End Sub

=СЧЁТЕСЛИ('2017'!$D$1:$D$27;A2)

=СЧЁТЕСЛИ('2017'!$G$1:$G$27;A2)

=Ч(D1)+B2-C2

Private Sub CommandButton1_Click()
    If TextBox7 <> "" Then
        Select Case True
            Case TextBox1 & ComboBox3 = ""
                MsgBox "Заполните № заявки, либо выберите особую услугу"
            Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование"
                MsgBox "Заполните участок"
            Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _
                 ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс."
                MsgBox "Заполните все поля"
            Case Else
                dodav
        End Select
    Else
        MsgBox "Не указана дата"
    End If
End Sub

=--ЗАМЕНИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(D8;ПОИСК(",";D8&",";ПОИСК("texturef";D8))-1);"texturef";ПОВТОР(" ";99));99));"-";ПОВТОР(" ";99));99;99))&0;2;;",")