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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос дублирования выбранных строк (Макросы/Sub)
макрос дублирования выбранных строк
Extybr Дата: Среда, 26.08.2020, 23:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3094
Репутация: 665 ±
Замечаний: 0% ±

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


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеВключаете рекордер, проделываете операцию, выключаете рекордер.
Смотрите код, корректируете под свой пример, который нет смысла выкладывать.

Автор - Hugo
Дата добавления - 26.08.2020 в 23:44
прохожий2019 Дата: Среда, 26.08.2020, 23:46 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 363
Репутация: 61 ±
Замечаний: 0% ±

365 Beta Channel
и вам здрасьте
ответ тоже не имеет смысла выкладывать - простой код, однотипные операторы...
 
Ответить
Сообщениеи вам здрасьте
ответ тоже не имеет смысла выкладывать - простой код, однотипные операторы...

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

Excel 2019
а как редактирровать макрос если применен фильтр
 
Ответить
Сообщениеа как редактирровать макрос если применен фильтр

Автор - Extybr
Дата добавления - 26.08.2020 в 23:47
gling Дата: Среда, 26.08.2020, 23:48 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2184
Репутация: 544 ±
Замечаний: 0% ±

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


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

Автор - gling
Дата добавления - 26.08.2020 в 23:48
прохожий2019 Дата: Среда, 26.08.2020, 23:56 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 363
Репутация: 61 ±
Замечаний: 0% ±

365 Beta Channel
как редактирровать макрос если применен фильтр
фильтр в таблице никак не влияет на процесс редактирования макроса
 
Ответить
Сообщение
как редактирровать макрос если применен фильтр
фильтр в таблице никак не влияет на процесс редактирования макроса

Автор - прохожий2019
Дата добавления - 26.08.2020 в 23:56
Extybr Дата: Среда, 26.08.2020, 23:57 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
короче пока не прилеплю файл помогать никто не хочет...проблема в том что сам в макросах ничего не смыслю....таблицу выложу.
 
Ответить
Сообщениекороче пока не прилеплю файл помогать никто не хочет...проблема в том что сам в макросах ничего не смыслю....таблицу выложу.

Автор - Extybr
Дата добавления - 26.08.2020 в 23:57
Extybr Дата: Четверг, 27.08.2020, 00:02 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
вот
К сообщению приложен файл: 9422194.xlsb(16.2 Kb)
 
Ответить
Сообщениевот

Автор - Extybr
Дата добавления - 27.08.2020 в 00:13
Extybr Дата: Четверг, 27.08.2020, 22:45 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
gling, подскажите пожалуйста, как макрос написать.....смысл прост-выделил строку(строки)-нажал на кнопку макроса и они скопировались в конце таблицы....
 
Ответить
Сообщениеgling, подскажите пожалуйста, как макрос написать.....смысл прост-выделил строку(строки)-нажал на кнопку макроса и они скопировались в конце таблицы....

Автор - Extybr
Дата добавления - 27.08.2020 в 22:45
Pelena Дата: Пятница, 28.08.2020, 08:57 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16638
Репутация: 3597 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЕсли сильно не вдаваться в логику макроса, то можно так

Автор - Pelena
Дата добавления - 28.08.2020 в 08:57
Extybr Дата: Вторник, 01.09.2020, 18:45 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, спасибо, то что нужно!
 
Ответить
СообщениеPelena, спасибо, то что нужно!

Автор - Extybr
Дата добавления - 01.09.2020 в 18:45
Extybr Дата: Вторник, 01.09.2020, 20:51 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
если фильтр применен
 
Ответить
Сообщениеесли фильтр применен

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

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПопробовала, всё скопировалось.
Что именно не работает?

Автор - Pelena
Дата добавления - 01.09.2020 в 21:36
Extybr Дата: Вторник, 01.09.2020, 21:53 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, да действительно....похоже с другим макросом как то не контачит...можно кину в личку...посмотрите,поможете?
 
Ответить
СообщениеPelena, да действительно....похоже с другим макросом как то не контачит...можно кину в личку...посмотрите,поможете?

Автор - Extybr
Дата добавления - 01.09.2020 в 21:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос дублирования выбранных строк (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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