Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/макрос дублирования выбранных строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос дублирования выбранных строк (Макросы/Sub)
макрос дублирования выбранных строк
Extybr Дата: Среда, 26.08.2020, 23:27 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
требуется макрос дублирования строки или нескольких строк в конец умной таблицы...макрос нарыл какойто .. вроде пашет, но очень тупит особенно при примененном фильтре ..фильтрах к таблице...
пример нет смысла выкладывать...простая таблица несколько десятков столбцов и тысячи строк....однотипное заполнение с изменением нескольких параметров в столбцах, вот хочу ускорить работу. копирование от 1 до 10-20строк.,с сохранением всех форматов
подскажите пожалуйста...


Сообщение отредактировал Extybr - Среда, 26.08.2020, 23:32
 
Ответить
Сообщениетребуется макрос дублирования строки или нескольких строк в конец умной таблицы...макрос нарыл какойто .. вроде пашет, но очень тупит особенно при примененном фильтре ..фильтрах к таблице...
пример нет смысла выкладывать...простая таблица несколько десятков столбцов и тысячи строк....однотипное заполнение с изменением нескольких параметров в столбцах, вот хочу ускорить работу. копирование от 1 до 10-20строк.,с сохранением всех форматов
подскажите пожалуйста...
Автор - Extybr
Дата добавления - 26.08.2020 в 23:27
Hugo Дата: Среда, 26.08.2020, 23:44 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Включаете рекордер, проделываете операцию, выключаете рекордер.
Смотрите код, корректируете под свой пример, который нет смысла выкладывать.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеВключаете рекордер, проделываете операцию, выключаете рекордер.
Смотрите код, корректируете под свой пример, который нет смысла выкладывать.
Автор - Hugo
Дата добавления - 26.08.2020 в 23:44
прохожий2019 Дата: Среда, 26.08.2020, 23:46 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1298
Репутация: 327 ±
Замечаний: 0% ±

365 Beta Channel
и вам здрасьте
ответ тоже не имеет смысла выкладывать - простой код, однотипные операторы...
 
Ответить
Сообщениеи вам здрасьте
ответ тоже не имеет смысла выкладывать - простой код, однотипные операторы...
Автор - прохожий2019
Дата добавления - 26.08.2020 в 23:46
Extybr Дата: Среда, 26.08.2020, 23:47 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
а как редактирровать макрос если применен фильтр
 
Ответить
Сообщениеа как редактирровать макрос если применен фильтр
Автор - Extybr
Дата добавления - 26.08.2020 в 23:47
gling Дата: Среда, 26.08.2020, 23:48 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2563
Репутация: 706 ±
Замечаний: 0% ±

2010
Ещё ищите в инете "Как ускорить работу макроса", вставляете, то что предложат для ускорения, в ваш макрос.

ЯД-41001506838083
 
Ответить
СообщениеЕщё ищите в инете "Как ускорить работу макроса", вставляете, то что предложат для ускорения, в ваш макрос.
Автор - gling
Дата добавления - 26.08.2020 в 23:48
прохожий2019 Дата: Среда, 26.08.2020, 23:56 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1298
Репутация: 327 ±
Замечаний: 0% ±

365 Beta Channel
Цитата Extybr, 26.08.2020 в 23:47, в сообщении № 4 ()
как редактирровать макрос если применен фильтр
фильтр в таблице никак не влияет на процесс редактирования макроса
 
Ответить
Сообщение
Цитата Extybr, 26.08.2020 в 23:47, в сообщении № 4 ()
как редактирровать макрос если применен фильтр
фильтр в таблице никак не влияет на процесс редактирования макроса
Автор - прохожий2019
Дата добавления - 26.08.2020 в 23:56
Extybr Дата: Среда, 26.08.2020, 23:57 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
короче пока не прилеплю файл помогать никто не хочет...проблема в том что сам в макросах ничего не смыслю....таблицу выложу.
 
Ответить
Сообщениекороче пока не прилеплю файл помогать никто не хочет...проблема в том что сам в макросах ничего не смыслю....таблицу выложу.
Автор - Extybr
Дата добавления - 26.08.2020 в 23:57
Extybr Дата: Четверг, 27.08.2020, 00:02 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Sub Copy_Records_FB()
If expired Then Exit Sub
Call protect_unprotect_all(False, ActiveSheet)
Dim i
Dim cell
For Each tRow In Selection.Rows
If tRow.Row > 11 Then
targetRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Cells(targetRow, 1) = "-"
ActiveSheet.Rows(tRow.Row).Copy Destination:=ActiveSheet.Rows(targetRow)
End If
Next tRow
'Call protect_unprotect_all(True, ActiveSheet)
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Copy_Records_FB()
If expired Then Exit Sub
Call protect_unprotect_all(False, ActiveSheet)
Dim i
Dim cell
For Each tRow In Selection.Rows
If tRow.Row > 11 Then
targetRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Cells(targetRow, 1) = "-"
ActiveSheet.Rows(tRow.Row).Copy Destination:=ActiveSheet.Rows(targetRow)
End If
Next tRow
'Call protect_unprotect_all(True, ActiveSheet)
End Sub
[/vba]
Автор - Extybr
Дата добавления - 27.08.2020 в 00:02
Extybr Дата: Четверг, 27.08.2020, 00:13 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
вот
К сообщению приложен файл: 9422194.xlsb (16.2 Kb)
 
Ответить
Сообщениевот
Автор - Extybr
Дата добавления - 27.08.2020 в 00:13
Extybr Дата: Четверг, 27.08.2020, 22:45 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
gling, подскажите пожалуйста, как макрос написать.....смысл прост-выделил строку(строки)-нажал на кнопку макроса и они скопировались в конце таблицы....
 
Ответить
Сообщениеgling, подскажите пожалуйста, как макрос написать.....смысл прост-выделил строку(строки)-нажал на кнопку макроса и они скопировались в конце таблицы....
Автор - Extybr
Дата добавления - 27.08.2020 в 22:45
Pelena Дата: Пятница, 28.08.2020, 08:57 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Если сильно не вдаваться в логику макроса, то можно так
К сообщению приложен файл: 2937405.xlsb (16.2 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЕсли сильно не вдаваться в логику макроса, то можно так
Автор - Pelena
Дата добавления - 28.08.2020 в 08:57
Extybr Дата: Вторник, 01.09.2020, 18:45 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, спасибо, то что нужно!
 
Ответить
СообщениеPelena, спасибо, то что нужно!
Автор - Extybr
Дата добавления - 01.09.2020 в 18:45
Extybr Дата: Вторник, 01.09.2020, 20:51 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
[b]Pelena[/посмотрите пожалуйста...че то не пашет
К сообщению приложен файл: 0875078.xlsb (293.5 Kb)
 
Ответить
Сообщение[b]Pelena[/посмотрите пожалуйста...че то не пашет
Автор - Extybr
Дата добавления - 01.09.2020 в 20:51
Extybr Дата: Вторник, 01.09.2020, 20:55 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
если фильтр применен
 
Ответить
Сообщениеесли фильтр применен
Автор - Extybr
Дата добавления - 01.09.2020 в 20:55
Pelena Дата: Вторник, 01.09.2020, 21:36 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Попробовала, всё скопировалось.
Что именно не работает?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПопробовала, всё скопировалось.
Что именно не работает?
Автор - Pelena
Дата добавления - 01.09.2020 в 21:36
Extybr Дата: Вторник, 01.09.2020, 21:53 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, да действительно....похоже с другим макросом как то не контачит...можно кину в личку...посмотрите,поможете?
 
Ответить
СообщениеPelena, да действительно....похоже с другим макросом как то не контачит...можно кину в личку...посмотрите,поможете?
Автор - Extybr
Дата добавления - 01.09.2020 в 21:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос дублирования выбранных строк (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!