debug.? activesheet.autofilter.filters(НомерСтолбца).criteria1.index

With Selection.FormatConditions
    For i = 1 To .Count
        If TypeOf .Item(i) Is IconSetCondition Then Debug.Print .Item(i).iconSet.ID
    Next
End With

SortField.SortOnValue.Index

IconSetCondition.ReverseOrder

Public Sub tesst()
Dim ws As Worksheet, c&
Set ws = Worksheets(1)
c = ws.HPageBreaks.Count
[A1048576] = 1
Debug.Print ws.HPageBreaks(c + 1).Location.Row
[A1048576].Delete xlUp
End Sub

sortfield.sortonvalue

sortfield.sortonvalue.parent.id

        rr = Evaluate("Row(R" & r1 & ":R" & r2 & ")")
        cc = Evaluate("row(R" & c1 & ":R" & c2 & ")")

Select Case ... End Select

    Select Case Left(s, 1)
        Case "M" 'M англ
            CusOrd = "M1,M2,M3,M4,M5,M6,M7,M8,M9,M10"
        Case "М" 'M русск
            CusOrd = "М1,М2,М3,М4,М5,М6,М7,М8,М9,М10"
    End Select

    f = Left(s, 1)
    Select Case True
        Case f = "M" 'M англ
            CusOrd = "M1,M2,M3,M4,M5,M6,M7,M8,M9,M10"
        Case f = "М" 'M русск
            CusOrd = "М1,М2,М3,М4,М5,М6,М7,М8,М9,М10"
    End Select

CusOrd = Mid(Join(Array(Nil, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), "," & Left(s, 1)), 2)

Sub sort()
    Dim CusOrd As String
    Dim f As String * 1
    Dim LC As Integer
    Set twb = ActiveSheet 'ActiveWorkbook.Worksheets(1)
    With twb
        LC = .Cells(Rows.Count, 1).End(xlUp).Row
        f = .Range("c1").Value
        Select Case f
            Case "M", "М"
                CusOrd = Mid(Join(Array(Nil, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), "," & f), 2)
            Case Else
                Exit Sub
        End Select
        .sort.SortFields.Clear
        .sort.SortFields.Add Key:=Range("C1:C" & LC), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=CusOrd, DataOption:=xlSortNormal
        With .sort
            .SetRange Range("A1:D" & LC)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

=ЕСЛИОШИБКА(СУММ(СУММЕСЛИМН(Таб1!$C$2:$C$24;Таб1!$A$2:$A$24;B$1;Таб1!$B$2:$B$24;$A2)^{0;1};-1);"")

"," & s

mid(join( ... , ...),2)

String(n," ")

s <> ""

trim(s) <> ""

Option Explicit

=СЧЁТ(ПОИСК("/*/";A1))=1

=СЧЁТЕСЛИ(A1;"*/*/*")=1

= Excel.CurrentWorkbook(){[Name="Cell"]}[Content]{0}[Column1]

Sub test()
    Dim shtX As Worksheet
    Dim rngNew As Range
    Dim rngOld As Range
    
    Set shtX = ThisWorkbook.Worksheets(1)
    Set rngNew = shtX.Range("vNew")
    Set rngOld = shtX.Range("vOld")

    If UBound(Filter(Application.CountIf(rngNew, rngOld.Value), 0)) = -1 Then
        MsgBox "значения совпадают"   'если все значения массива совпадают
    Else
        MsgBox "значения различаются" 'если хотя бы одно не совпадает
    End If
    
End Sub

Array.apply(null, Array(n)).map(function(_,i){return i+x;})

Sub ChangeProps()
    Dim note$: note = "АБВГ"
    Dim FIO$: FIO = "Иванов"
    With CreateObject("DSOFile.OleDocumentProperties")
        .Open "D:\Шаблон.dwt", , 2
        With .CustomProperties
            On Error Resume Next
            .Add "ФИО", FIO
            .Add "Обозначение", note
            Err.Clear: On Error GoTo 0
            .Item("ФИО") = FIO
            .Item("Обозначение") = note
        End With
            .Save: .Close
    End With
End Sub

Sub конкретный_лист()
    With ThisWorkbook.Worksheets(1).ListObjects("rngX").AutoFilter
        If .FilterMode Then .ShowAllData
    End With
End Sub

Sub активный_лист()
    With ActiveSheet.ListObjects("rngX").AutoFilter
        If .FilterMode Then .ShowAllData
    End With
End Sub