Автор Tim задал вопрос в разделе Другие языки и технологии
Excel добавление и удаление строчек (макрос) и получил лучший ответ
Ответ от Полосатый жираф Алик[гуру]
Вытащи мякину из головы и попробуй НОРМАЛЬНО задать вопрос. Ты в курсе, что каждые столбец, строка или ячейка в Excel имеет свой адрес?
Ответ от Abram Pupkin[гуру]
"...Нужно что бы макрос автоматически удалял или добавлял строки..."- в начало/конец таблицы ?- с охранением формул ?- заполнять аналогично второй таблицы или оставить строчки пустыми ?- придерживаться заданного формата или формат по умолчанию ?P.S.Учитывая уровень ваших знаний - вам надо не просто дать подсказку, а предоставить готовое решение Для этого надо знать ( а лучше видеть) где расположена таблица-образец
"...Нужно что бы макрос автоматически удалял или добавлял строки..."- в начало/конец таблицы ?- с охранением формул ?- заполнять аналогично второй таблицы или оставить строчки пустыми ?- придерживаться заданного формата или формат по умолчанию ?P.S.Учитывая уровень ваших знаний - вам надо не просто дать подсказку, а предоставить готовое решение Для этого надо знать ( а лучше видеть) где расположена таблица-образец
Ответ от FreedomS[гуру]
примерно выглядит так Sub КопированиеФормата ()'' КопированиеФормата Макрос'' Sheets("Лист2").Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Лист1").Select Selection.End(xlUp).Select Selection.End(xlToLeft).Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseEnd Subвставляет форматирование из Листа 2 в Лист 1более конкретно опиши что нужно получишь более конкретный ответ
примерно выглядит так Sub КопированиеФормата ()'' КопированиеФормата Макрос'' Sheets("Лист2").Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Лист1").Select Selection.End(xlUp).Select Selection.End(xlToLeft).Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseEnd Subвставляет форматирование из Листа 2 в Лист 1более конкретно опиши что нужно получишь более конкретный ответ
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Excel добавление и удаление строчек (макрос)