Мяв!
Планирую использовать макрос типа
Есть ли какие подводные камни с длиной строки, или количествам элементов "или" (элементов массива)?
Ограничения Application.Transpose не в счет.
Если нет, напишите, буду использовать, если есть, напишите, буду думать.
Пока планируемый размер массива ~ 300 элементов (слов)
Альтернативные решения не интересуют.
Планирую использовать макрос типа
Код |
---|
Sub test() Dim ar, s, t Dim cl, m, mm ar = [h1:h4].Value s = Join(Application.Transpose(ar), "|") Dim RExp As Object Set RExp = CreateObject("VBScript.RegExp") RExp.Global = True: RExp.IgnoreCase = True RExp.Pattern = "(" & s & ")" & ",? ?" For Each cl In [a1:a5] If RExp.test(cl.Value) Then Set m = RExp.Execute(cl) mm = m(0).SubMatches(0) t = RExp.Replace(cl.Value, "") cl.Next = mm cl.Next.Next = t End If Next End Sub |
Есть ли какие подводные камни с длиной строки, или количествам элементов "или" (элементов массива)?
Ограничения Application.Transpose не в счет.
Если нет, напишите, буду использовать, если есть, напишите, буду думать.
Пока планируемый размер массива ~ 300 элементов (слов)
Альтернативные решения не интересуют.