Найти и вставить строку в нужное место... =)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти и вставить строку в нужное место... =) (Макросы/Sub)

QwertyBoss

Дата: Понедельник, 14.12.2015, 20:42 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Бодрый вечер. Полазил по форумам нашёл много чего интересного, но не мой случай. Есть строка с буковками - "Б" и "Г". Как найти первую "Б" и вставить выше - строку с буковкой "А", и аналогично с "Г" т.е. найти превую "Г" и поставить выше в нё строку "В". Это решение, я так понимаю, очень часто должен применяться, но ... почему то в иннете вообще про него ничего не пишут =(

К сообщению приложен файл: 4250570.xlsm (24.7 Kb)

Ответить

RAN

Дата: Понедельник, 14.12.2015, 21:10 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Наверное, исключительно потому, что именно это

Цитата QwertyBoss, 14.12.2015 в 20:42, в сообщении № 1

Как найти первую "Б" и вставить выше - строку с буковкой "А", и аналогично с "Г" т.е. найти превую "Г" и поставить выше в нё строку "В

,
ну абсолютно никому, окромя вас, не надобно.
А если переформулировать, то только я на аналогичный вопрос отвечал не единожды...
Звиняйте, ежели что...

PS И, кстати, макрорекордер эту задачу решает на раз.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 14.12.2015, 21:12

Ответить

Wasilich

Дата: Понедельник, 14.12.2015, 21:23 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

А я вообще ничччё не понял. А результат в примере показать сложно?

Ответить

RAN

Дата: Понедельник, 14.12.2015, 23:58 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Wasilic, пилу дать?

[vba]

Код

Sub Макрос1()
    Cells.Find(What:="А", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

[/vba]