Sub TestLikeERR()

    Debug.Print "-" Like "[1-4-6]" 'True
    Debug.Print "5" Like "[1-4-6]" 'False
    Debug.Print "5" Like "*[1-4-6]" 'почему True?
    
    Debug.Print "F" Like "[F-F]" 'True
    Debug.Print "F" Like "*[F-F]" 'почему Error?

End Sub

Option Explicit

Sub TestXLLcmdE12xlSet()
    Dim i, testSize As Long: testSize = 2
    Dim arrOrValue: ReDim arrOrValue(1 To testSize, 1 To 1)
    
    For i = 1 To testSize
        arrOrValue(i, 1) = Str(i) 'MAX количество символов для ячейки: 8190
    Next
    
    'Варианты использования:
    '1.Выводим массив или значение по указанному диапазону на лист Excel
    Debug.Print Application.RUN("XLLcmdE12xlSet", "", 0, Range("a1:a2").Address, arrOrValue)
    
    '2. Помещаем в диапазон значение "1"
    Debug.Print Application.RUN("XLLcmdE12xlSet", "", 0, Range("b1:b2").Address, "1")
    
    '3. Выводим массив по указанному диапазону на лист Excel, первый элемент = Empty
    arrOrValue(1, 1) = Empty 'первый элемент Empty
    Debug.Print Application.RUN("XLLcmdE12xlSet", "", 0, Range("c1:c2").Address, arrOrValue)
    
    '4 Очищаем заданный диапазон от данных
    [d1:d5] = 2 'заполняем данными (2) диапазон для теста
    Debug.Print Application.RUN("XLLcmdE12xlSet", "", 0, Range("d1:d2").Address) ' очищаем в заданном диапазоне

End Sub

Sub TestVariantSerialization()
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim t, arr, byteArr
    
    Range("A:B").value2 = "Tst Srl ёя"
    
    t = Timer
        byteArr = bVBA.VariantSerialization(Range("A:B").value2)
        arr = bVBA.VariantDeserialization(byteArr)
    Debug.Print "VariantSerialization+VariantDeserialization " & Timer - t & " s."
    Range("D:E").value2 = arr
    
End Sub

Option Explicit

Sub TestLike()
    'Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim bVBA As New BedvitCOM.VBA
    Dim x(), i, j, n, nMax, x1, x2, y, t
    nMax = 10000000

    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "XYXZZXYXYXZZXY123-#*[[]?!!19Aa--/!\#*[[]?!!19Aa--": x(2, i) = "*X*X?*X*X?***###*[[]][?][!]!1[?1-5-9][!B-Z][A-Za-z][a-][-a]"       ' Speed test
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "XYXZZXYXYXZZXY": x(2, i) = "*X*X?*X*X?"       ' Speed test
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aBBBa": x(2, i) = "a*a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "F": x(2, i) = "[A-Z]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "F": x(2, i) = "[!A-Z]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a2a": x(2, i) = "a#a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aM5b": x(2, i) = "a[L-P]#[!c-e]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "BAT123khg": x(2, i) = "B?T*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "CAT123khg": x(2, i) = "B?T*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "ab": x(2, i) = "a*b"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a*b": x(2, i) = "a [*]b"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "axxxxxb": x(2, i) = "a [*]b"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a [xyz": x(2, i) = "a [[]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aM5b": x(2, i) = "a*?b"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aM5b": x(2, i) = "a*[1-4-9][!c-e]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aM55b": x(2, i) = "a*[1-4-9][!c-e]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aM55b": x(2, i) = "a*[1-45-9][!c-e]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aM5b": x(2, i) = "*#[!c-e]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "5*": x(2, i) = "5[*]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "?n": x(2, i) = "[?]n"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a": x(2, i) = "[a-cdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "b": x(2, i) = "[a-cdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "c": x(2, i) = "[a-cdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "d": x(2, i) = "[a-cdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "f": x(2, i) = "[a-cdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "-": x(2, i) = "[-acdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a": x(2, i) = "[-acdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "c": x(2, i) = "[-acdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "d": x(2, i) = "[-acdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "f": x(2, i) = "[-acdf]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "[": x(2, i) = "[ [ ]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "]": x(2, i) = "]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abc_d": x(2, i) = "abc[_]d*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abc_de": x(2, i) = "abc[_]d*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcd": x(2, i) = "abc[def]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abce": x(2, i) = "abc[def]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcf": x(2, i) = "abc[def]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcdef": x(2, i) = "abc*[de]ef"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcyef": x(2, i) = "abc[xz]ef"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcxef": x(2, i) = "abc[xz]ef"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcyef": x(2, i) = "abc[!xz]ef"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abcxef": x(2, i) = "abc[!xz]ef"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "ac5c5b": x(2, i) = "a*[1-56-9][!c-e]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "": x(2, i) = ""
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "": x(2, i) = "*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "": x(2, i) = "[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "": x(2, i) = "[!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "": x(2, i) = "[]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "": x(2, i) = "[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "[]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "[!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "*[!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "*[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "#[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "#[!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "12": x(2, i) = "#[!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "12": x(2, i) = "#[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "123": x(2, i) = "*[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1!3": x(2, i) = "*[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!": x(2, i) = "*[!]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!": x(2, i) = "[!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!a": x(2, i) = "*[!a]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!a": x(2, i) = "[!a]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!a": x(2, i) = "*[!a]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!a": x(2, i) = "[!a]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a": x(2, i) = "[!a]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "b": x(2, i) = "[!a]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "2": x(2, i) = "#[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "*": x(2, i) = "[*]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "[*]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!": x(2, i) = "[!-!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "[!-!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!": x(2, i) = "[-!]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!": x(2, i) = "[!-]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "-": x(2, i) = "[!-]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "-": x(2, i) = "[-]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "***": x(2, i) = "*[*]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "???": x(2, i) = "?[?]?"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "###": x(2, i) = "#[#]#"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "[[[[[": x(2, i) = "[[]?*[[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abс": x(2, i) = "a[]b[]с[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abс": x(2, i) = "a*[]b*[]с*[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abс": x(2, i) = "a[]*b[]*с[]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa": x(2, i) = "aaa[a]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaaba": x(2, i) = "aaa[!aaa]a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaaba": x(2, i) = "aaa[!abb]a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaaba": x(2, i) = "aaa[!a?]a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaab": x(2, i) = "aaa[!a?]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa?a": x(2, i) = "aaa[!a?]a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa?]": x(2, i) = "aaa[!a?]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "!a]": x(2, i) = "*[!a]]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaaba": x(2, i) = "aaa[!a#]a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaab": x(2, i) = "aaa[!a#]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa#a": x(2, i) = "aaa[!a#]a"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa#]": x(2, i) = "aaa[!a#]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa*]": x(2, i) = "aaa[!a*]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa": x(2, i) = "a*[]*[a]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa": x(2, i) = "a*[a]*[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaa": x(2, i) = "a*[]*[]"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "abaa": x(2, i) = "a*[!a]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaba": x(2, i) = "a*[!a]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "aaab": x(2, i) = "a*[!a]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "1": x(2, i) = "1[!*]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "[]": x(2, i) = "[!*]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "-": x(2, i) = "[!-]*"
    i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "-": x(2, i) = "[!-]*"
    'i = i + 1: ReDim Preserve x(1 To 2, 1 To i): x(1, i) = "a [xyz": x(2, i) = "a [*"   ' Throws Error 93 (invalid pattern string).
    
    
    For n = 1 To UBound(x, 2)
        'Debug.Print "{L""" & x(1, n) & """, L""" & x(2, n) & """" & IIf(x(1, n) Like x(2, n), ", L""True""", ", NULL") & "},"
        Debug.Print (x(1, n) Like x(2, n)) = bVBA.Like(x(1, n), x(2, n))
    Next


    Debug.Print "Speed test..."
    Debug.Print "Pattern...'XYXZZXYXYXZZXY' Like '*X*X?*X*X?'"
    t = Timer
    For n = 1 To nMax
        x1 = "XYXZZXYXYXZZXY" Like "*X*X?*X*X?" '1.97
    Next
    Debug.Print "Like " & Timer - t

    t = Timer
    For n = 1 To nMax
        x2 = bVBA.Like("XYXZZXYXYXZZXY", "*X*X?*X*X?") '1.59
    Next
    Debug.Print "bVBA.Like: " & Timer - t

    Debug.Print "Pattern...'XYXZZXYXYXZZXY123-#*[[]?!!19Aa--/!\#*[[]?!!19Aa--' Like '*X*X?*X*X?***###*[[]][?][!]!1[?1-5-9][!B-Z][A-Za-z][a-][-a]'"
     t = Timer
    For n = 1 To nMax
        x1 = "XYXZZXYXYXZZXY123-#*[[]?!!19Aa--/!\#*[[]?!!19Aa--" Like "*X*X?*X*X?***###*[[]][?][!]!1[?1-5-9][!B-Z][A-Za-z][a-][-a]" '8.29
    Next
    Debug.Print "Like " & Timer - t

    t = Timer
    For n = 1 To nMax
        x2 = bVBA.Like("XYXZZXYXYXZZXY123-#*[[]?!!19Aa--/!\#*[[]?!!19Aa--", "*X*X?*X*X?***###*[[]][?][!]!1[?1-5-9][!B-Z][A-Za-z][a-][-a]") '4.92
    Next
    Debug.Print "bVBA.Like: " & Timer - t

    
End Sub

Sub bCOMSplit()
Dim str, t, i, arr, arr2, arr3, iMax
Dim bCOM As New BedvitCOM.VBA 'Ранее связывание
'Set bCOM = CreateObject("BedvitCOM.VBA") 'Позднее связывание
'Debug.Print bCOM.Filename 'расположение библиотеки
'Debug.Print bCOM.Version 'версия библиотеки
str = String$(1000000, "2") & ":"
iMax = 1

t = Timer()
For i = 1 To iMax
    arr = Split(str, "22")
Next
Debug.Print "Split: " & Timer() - t

t = Timer()
For i = 1 To iMax
    arr2 = bCOM.Split(str, "22") 'однопоточный режим, массив начиная с 0
Next
Debug.Print "bCOM.Split: " & Timer() - t

t = Timer()
For i = 1 To iMax
    arr3 = bCOM.Split(str, "22", 2, 1) 'многопоточный режим, массив начиная с 2
Next
Debug.Print "bCOM.SplitMultiThreading: " & Timer() - t

End Sub

Sub Test_SHA_MD_AES128()
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
    Dim x, mode
    
    'SHA
    Debug.Print bVBA.SHAstrUTF8("SHA Algorithm Test 128 bit Тест Ё", 3512, True) 'versionSHA = 3512(SHA3-512bit), charLower = true
   
    'MD
    Debug.Print bVBA.MDstrUTF8("MD Algorithm Test 128 bit Тест Ё", 5) 'versionMD = 5(MD)
    
    'AES128
    Debug.Print bVBA.AES128strUTF8("AES Algorithm Test 128 bit Тест Ё", "1111111111111111", 0, "ECB", "", 1) 'mode=0="ECB", Text Encryption Format=1(Hex)
    'mode = { L"0",L"ECB", L"1",L"CBC",L"2", L"OFB",L"3", L"CFB",L"4", L"CBC-CTS",L"5",L"CTR"}
    For mode = 1 To 5
        x = bVBA.AES128strUTF8("AES Algorithm Test 128 bit Тест Ё", "1111111111111111", 0, mode, "2222222222222222", 0) 'Text Encryption Format=0(Base64), Initialization vector (IV)="2222222222222222"
        Debug.Print x
        x = bVBA.AES128strUTF8(x, "1111111111111111", 1, mode, "2222222222222222", 0) 'decrypt=true
        Debug.Print x
    Next
End Sub

Option Explicit

'изменение отсчета нижней границы массива, обрезка элементов(-) или добавление(+)
'в нужной размерности(начало массива, конец, для строк и для столбцов)

Sub TestArrayReDim()
'Dim a As BedvitCOM.VBA: Set a = New BedvitCOM.VBA
Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
Dim testSize As Long: testSize = 5
Dim i, t, arrTmpV
 
Dim ArrV1: ReDim ArrV1(0 To testSize)
Dim ArrV2: ReDim ArrV2(0 To testSize, 0 To 1)

For i = 0 To testSize
    ArrV1(i) = Format$(Int(Rnd * 1000), "0000")
    ArrV2(i, 0) = Format$(Int(Rnd * 1000), "0000")
    ArrV2(i, 1) = Format$(Int(Rnd * 1000), "0000")
Next

arrTmpV = ArrV1
'нижняя граница = 1, первый элемент массива обрезаем, добавляем последний
bVBA.ArrayReDim arrTmpV, 1, -1, 1
arrTmpV = ArrV2
'нижняя граница для строк= 1, первый элемент массива обрезаем (строки), добавляем последний (строки),
'нижняя граница для столбцов= 1, первый элемент массива обрезаем (столбцы), добавляем последний (столбцы),
bVBA.ArrayReDim arrTmpV, 1, -1, 1, 1, -1, 1
 
End Sub

Sub TestReDimPreserve2D()
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
    Dim arrV As Variant
    
    arrV = Worksheets("Стоп-слова").Range("A1:F2").Value2
    bVBA.ReDimPreserve2D arrV, 1, 7, 1, 3
   
End Sub

Sub TestArrayDtoD()
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
    Dim arrV As Variant
    
    arrV = Worksheets("Стоп-слова").Range("A1:F2").Value2
    bVBA.ArrayDtoD arrV 'в одномерный массив с нижней границей по умолчанию = 0
    bVBA.ArrayDtoD arrV, 1 'в одномерный массив с нижней границей = 1
   
End Sub

# использование BedvitCOM-DLL
from win32com import client
bCOM = client.DispatchEx('BedvitCOM.BignumArithmeticInteger')
bCOM.Factorial (0, 1024)
print(bCOM.Bignum (0))

Sub testArrayCharNumV()
 Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
 Dim p: p = Array("2", "нижний регистр", 1, "ВЕРХНИЙ РЕГИСТР", 1, 56)

bVBA.ArrayCharLowerV p
bVBA.ArrayCharUpperV p
bVBA.ArrayNumToCharV p
bVBA.ArrayCharToNumV p
 
End Sub

Sub TestArrayFilterVStopWord()
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
    Dim i, j, t, arrRes
    Dim testSize1 As Long: testSize1 = 273000 'строки
    Dim arrV: ReDim arrV(1 To testSize1, 1 To 1)
     
    'генерируем массив-исходник
    Cells.ClearContents
    For i = 1 To testSize1
        arrV(i, 1) = CLng(Rnd * 273000) & "Test"
    Next
    Cells(1, 1).Resize(UBound(arrV, 1), UBound(arrV, 2)) = arrV
    
    'генерируем массив условий в Excel, забираем в фильтр
    Dim arrParam: ReDim arrParam(1 To 2000, 1 To 6)
    For i = 1 To 2000
        arrParam(i, 1) = 1: arrParam(i, 3) = 1: arrParam(i, 4) = 8 + 512: arrParam(i, 5) = (i + 270000) & "T"
    Next
    Cells(1, 3).Resize(UBound(arrParam, 1), UBound(arrParam, 2)) = arrParam

    'выполняем фильтрацию по 2 тыс. условий
    t = Timer
    bVBA.ArrayFilterV arrV, arrParam, 0, arrRes 'фильтруем по первому столбцу массива (273000), НЕ содержит значения из списка(2000), выводим массив arrRes на лист(271000)
    Debug.Print Timer - t
    Cells(1, 10).Resize(UBound(arrRes, 1), UBound(arrRes, 2)) = arrRes
End Sub

Option Explicit
'операторы (aliases) псевдонимы
Const ИЛИ = 0, И = 1, РАВНО = 2, СОДЕРЖИТ = 8, НЕРАВНО = 512 + 2, МЕНЬШЕРАВНО = 1 + 2, БОЛЬШЕРАВНО = 4 + 2, МЕНЬШЕ = 1, БОЛЬШЕ = 4

'ОДНОМЕРНЫЙ МАССИВ, ПРОСТЫЕ УСЛОВИЯ
Sub TestArrayFilterV_1()
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim arrResult
    'первоначальный массив данных
    Dim arrV: arrV = Array(1, 0, 1, 0, 1, 0)
    'массив условий (фильтр по первому столбцу, значение = 1)
    Dim p: p = Array(, , 1, РАВНО, 1, "")

    ' фильтруем ===============================
    bVBA.ArrayFilterV arrV, p, 0, arrResult
    '========================================
    Debug.Print UBound(arrResult) + 1 'начало с 0
End Sub



'ДВУХМЕРНЫЙ МАССИВ, ПРОСТЫЕ УСЛОВИЯ
Sub TestArrayFilterV_2()
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim arrResult, r, c, t, x
    Dim sizeRow As Long: sizeRow = 10000000
    Dim sizeCol As Long: sizeCol = 1
    Dim arrV: ReDim arrV(1 To sizeRow, 1 To sizeCol) 'первоначальный массив данных, далее хаполняем рендомно
    
    'массив условий (фильтр по первому столбцу, значение = 1)
    Dim p: p = Array(, , 1, РАВНО, 1, "")
    
    'заполняем первоначальный массив с данными
    For r = 1 To sizeRow
        For c = 1 To sizeCol
        arrV(r, c) = CLng(Rnd * 2)
        Next
    Next
    
    t = Timer
    ' фильтруем ===============================
    bVBA.ArrayFilterV arrV, p, 0, arrResult
    '========================================
    Debug.Print Timer - t
    Debug.Print UBound(arrResult) + 1 'начало с 0
End Sub



'ДВУХМЕРНЫЙ МАССИВ, СЛОЖНЫЕ УСЛОВИЯ
Sub TestArrayFilterV_3()

Dim arrParam, arrTest, arrRes, bCOMvba As Object: Set bCOMvba = CreateObject("BedvitCOM.VBA")

Cells.ClearContents

'создаем тестовый массив
arrTest = Array("маша иванова", "'1", 13, "маша иванова", 1, 13, "маша", "'1", 14, "вася", "'1", 14, "паша", 1, 50, "вася", 2, 52, "маша", 1, 60, "вася", 1, 65)
bCOMvba.Array1Dto2D arrTest, 1, 1, UBound(arrTest) / 3: bCOMvba.Transpose arrTest
Cells(1, 1).Resize(UBound(arrTest, 1), UBound(arrTest, 2)) = arrTest

'запись условий для фильтра:(((c1 like "маша" or like "вася") and c1<>"маша иванова") or (c2<>"1" or c2=1)) and (c3>=12,5 and c3<=55,8)
arrParam = Array(, "(((", 1, СОДЕРЖИТ, "маша", , ИЛИ, , 1, СОДЕРЖИТ, "вася", ")", И, , 1, НЕРАВНО, "маша иванова", ")", ИЛИ, "(", 2, НЕРАВНО, "'1", , ИЛИ, , 2, РАВНО, 1, "))", И, "(", 3, БОЛЬШЕРАВНО, 12.5, , И, , 3, МЕНЬШЕРАВНО, 55.8, ")")
'ИЛИ ТАК
arrParam = Array( _
, "(((", 1, СОДЕРЖИТ, "маша", , _
ИЛИ, , 1, СОДЕРЖИТ, "вася", ")", _
И, , 1, НЕРАВНО, "маша иванова", ")", _
ИЛИ, "(", 2, НЕРАВНО, "'1", , _
ИЛИ, , 2, РАВНО, 1, "))", _
И, "(", 3, БОЛЬШЕРАВНО, 12.5, , _
И, , 3, МЕНЬШЕРАВНО, 55.8, ")" _
)
bCOMvba.Array1Dto2D arrParam, 1, 1, UBound(arrParam) / 6: bCOMvba.Transpose arrParam
Cells(1, 5).Resize(UBound(arrParam, 1), UBound(arrParam, 2)) = arrParam

'применяем фильтр
bCOMvba.ArrayFilterV arrTest, arrParam, 0, arrRes
Cells(1, 12).Resize(UBound(arrRes, 1), UBound(arrRes, 2)) = arrRes

End Sub

Sub TestPasswordProject()
With ThisWorkbook.Application
.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
.SendKeys "^{TAB}"
.SendKeys "{ }"
.SendKeys "{TAB}" & 1
.SendKeys "{TAB}" & 1
.SendKeys "{TAB}"
.SendKeys "{ENTER}"
End With
'ThisWorkbook.Save ' при ручном сохранении и закрытии файла все сохраняется, программно - нет.
'ThisWorkbook.Close 0
End Sub

Sub TestArrayDtoD_()
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim arr
    arr = [a1:b10] ' забираем массив 2 столбца, 10 строк
    bVBA.Array2Dto1D arr 'в одномерный (нижняя граница = 0 - по умолчанию)
    bVBA.Array1Dto2D arr, 1, 1, 10 'преобразуем в двухмерный с 10ю столбцами и 2 строками, нижние границы измерений = 1, порядок данных сохраняется исходный
    Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr 'нового размера массив со старым порядком данных
End Sub

Sub UnorderedMap()
Dim U As New BedvitCOM.UnorderedMap ': Set r = New BedvitCOM.VBA 'раннее связывание
Dim key, value, value2, sizeU, x

key = "key"
value = "value"
If (U.Insert(key, value) = 0) Then MsgBox "Элемент уже существует и не был обновлен"
If (U.InsertOrAssign(key, value) = 0) Then MsgBox " = 0 - Элемент обновлен" 'если = 1 то создан новый
Debug.Print U.Size 'количество элементов контейнера
If (U.Find(key, value2) = 0) Then MsgBox "Не удалось найти элемент"
Debug.Print value2 'выводим найденный результат по ключу
If (U.Erase(key) = 0) Then MsgBox "Не удалось удалить элемент" 'очистка элемента по ключу
Debug.Print U.Size
U.Clear 'очистить весь контейнер

End Sub

Sub test()
Dim x
Set x = Run("FindValuesXLL", Selection, 1500, 1)
x.Select
End Sub