• Auto-It! Скрипт для сборки двухстолбцовых (например, помесячных) данных в одну колонну (из двух столбцов опять же)

    C:\3 combine excel pair columns.au3

    Opt("WinTitleMatchMode", 2); смена опции скриптера с поиска в титуле окон по началу строки (дефолтное) на поиск по любому куску
    $count = 1; установка счётчика для цикла
    WinWaitActive("Excel"); ; дождаться активации Экселя
    Do; начало цикла, курсор должен стоять в ячейке А2 (первая строка занята заголовками) и необходимо, чтобы между столбцами А+В и теми, которые надо в них переносить, был хотя бы один пустой столбец
    sleep(100); на всякий случай расставлены небольшие паузы
    Send("^{RIGHT 2}"); переход к первому столбцу после пустоты (пусть будет D2)
    sleep(100)
    Send("+{RIGHT}"); выделение обеих первых ячеек (D2 и E2)
    sleep(100)
    Send("+^{DOWN}"); выделение вниз до конца (D2:Eсколькоугодно)
    sleep(100)
    Send("+{DEL}"); вырезание в буфер
    sleep(100)
    Send("^{LEFT 2}"); возврат в А2
    sleep(100)
    Send("^{DOWN}"); вниз до конца данных
    sleep(100)
    Send("{DOWN}"); в первую пустую ячейку после данных
    sleep(100)
    Send("+{INS}"); вставка из буфера
    sleep(100)
    Send("^{UP}"); возврат наверх, в А1
    sleep(100)
    Send("{DOWN}"); немного ниже, в А2
    $count = $count + 1; добавить счётчик
    Until $count > 15; указать сколько раз повторить

    Скрипт нетрудно модифицировать при отсутствии первой строки-заголовка и при необходимости копировать более 2 столбцов

Replies (0)