Копирование определенных столбцов

[cherepushka]

Здравствуйте, помогите пожалуйста с переносом данных. Есть данные, первый столбец обрабатывается с помощью формулы и результат записывается в столбец D. Фильтр убирает ненужное и данные вставляются в новый файл.
Можно ли в созданном файле чтобы вставлялись только два столбца - первый столбец - результат формулы, а второй количество?

[kuklp]

Sub zoro()
    Me.AutoFilterMode = 0
    Range("A1:C33").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
                         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                         DataOption1:=xlSortNormal
    Range("D2").FormulaLocal = "=ПОДСТАВИТЬ(ЛЕВБ(A2);""A"";)&ПСТР(ПОДСТАВИТЬ(ЗАМЕНИТЬ(A2;МИН(ПОИСК({1;2;3;4;5;6;7;8;9;0};A2&1234567890));;""-"");""--"";""-"");2;100)"
    Range("D2").AutoFill Destination:=Range("D2:D33")

    [a1].CurrentRegion.AutoFilter Field:=2, Criteria1:=Array("W333", "UNO"), Operator:=xlFilterValues
    Intersect([a1].CurrentRegion, Range("c:d")).SpecialCells(12).Copy
    Workbooks.Add
    ActiveSheet.[a1].PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\slone\Desktop\707\DestinetadTrue7.xltm", FileFormat _
                                                                                     :=xlNormal
    Intersect([a1].CurrentRegion, Columns("D:D")).Cut ActiveWorkbook.Sheets(2).Range("F4")
    Me.AutoFilterMode = 0
End Sub

[cherepushka]

Спасибо большое, супер.
А если очередность другая нужна будет не C:D, а наоборот в новом файле сначала D столбец, а потом то, что в C?

[kuklp]

Sub zoro()
    Me.AutoFilterMode = 0
    Range("A1:C33").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
                         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                         DataOption1:=xlSortNormal
    Range("D2").FormulaLocal = "=ПОДСТАВИТЬ(ЛЕВБ(A2);""A"";)&ПСТР(ПОДСТАВИТЬ(ЗАМЕНИТЬ(A2;МИН(ПОИСК({1;2;3;4;5;6;7;8;9;0};A2&1234567890));;""-"");""--"";""-"");2;100)"
    Range("D2").AutoFill Destination:=Range("D2:D33")
    [a1].CurrentRegion.AutoFilter Field:=2, Criteria1:=Array("W333", "UNO"), Operator:=xlFilterValues
    Workbooks.Add
    Me.[a1].CurrentRegion.Columns(4).SpecialCells(12).Copy ActiveSheet.[a1]
    Me.[a1].CurrentRegion.Columns(3).SpecialCells(12).Copy ActiveSheet.[b1]
    ActiveWorkbook.SaveAs Filename:="C:\Users\slone\Desktop\707\DestinetadTrue7.xltm", FileFormat:=xlNormal
    Intersect([a1].CurrentRegion, Columns("D:D")).Cut ActiveWorkbook.Sheets(2).Range("F4")
    Me.AutoFilterMode = 0
End Sub

[cherepushka]

kuklp, спасибо.
Почему на этой строчке
Range("D2").FormulaLocal =......
Выходить mismatch? Вроде тип данных поставил general.

[Hugo121]

Сергей, привет!
Вот меня тоже смутило это formulalocal - зачем? И почему?

[cherepushka]

Hugo121, FormulaLocal это я забил в начальный код, с использованием ссылок в стиле A1.
Но просто не пойму, почему теперь на этой строчке mismatch

[kuklp]

Привет, Игорь. Я понятия не имею. Она была в примере, я там ни буквы не менял Мона без локали:

    Range("D2").Formula = "=SUBSTITUTE(LEFTB(A2),""A"",)&MID(SUBSTITUTE(REPLACE(A2,MIN(SEARCH({1,2,3,4,5,6,7,8,9,0},A2&1234567890)),,""-""),""--"",""-""),2,100)"

Но надо сказать, у меня никаких ошибок не возникает и в первоначальном виде. Возможно у автора стиль отображения не А1, тогда такая формула:

"=SUBSTITUTE(LEFTB(RC[-3]),""A"",)&MID(SUBSTITUTE(REPLACE(RC[-3],MIN(SEARCH({1,2,3,4,5,6,7,8,9,0},RC[-3]&1234567890)),,""-""),""--"",""-""),2,100)"

[cherepushka]

Спасибо.
Чего только не делал, в параметрах менял стиль ссылок, менял формат ячеек. Прописывал формулы на английском. А эта mismatch не отстает. Это карма.

[cherepushka]

kuklp, спасибо.
Все разрешилось созданием нового файла, но в старом файле - для меня загадка. Перепроверял несколько раз.