Как скопировать строку в excel несколько раз

Пробовали ли вы в своей повседневной работе скопировать строку или каждую строку, а затем несколько раз вставить ее под текущей строкой данных на листе? Например, у меня есть диапазон ячеек, теперь я хочу скопировать каждую строку и вставить их 3 раза в следующую строку, как показано на следующем снимке экрана. Как бы вы справились с этой работой в Excel?

  • Скопируйте и вставьте определенную строку несколько раз с кодом VBA
  • Скопируйте и вставьте каждую строку несколько раз с кодом VBA
  • Скопируйте и вставьте каждую строку несколько раз на основе определенного числа с потрясающей функцией

Скопируйте и вставьте определенную строку несколько раз с кодом VBA

Если вы хотите дублировать только одну конкретную строку x раз, следующий код VBA может вам помочь, сделайте следующее:

1. Укажите строку, которую вы хотите скопировать и вставить несколько раз, а затем удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: несколько раз продублируйте одну конкретную строку:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. После вставки кода нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о необходимости ввести количество раз, которое вы хотите продублировать, см. снимок экрана:

4. Затем нажмите OK кнопку, и три новые скопированные строки были вставлены под выбранной строкой, см. снимок экрана:


Легко копируйте и вставляйте каждую строку несколько раз на основе определенного числа

Обычно нет хорошего метода для многократного копирования и вставки строк, за исключением ручного копирования и вставки. Но с Kutools for Excel‘s Повторяющиеся строки / столбцы на основе значения ячейки функция, вы можете легко решить эту проблему. Нажмите, чтобы скачать Kutools for Excel!

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 60 дней. Загрузите и бесплатную пробную версию прямо сейчас!


Скопируйте и вставьте каждую строку несколько раз с кодом VBA

Чтобы дублировать каждую строку несколько раз в диапазоне, вы можете применить следующий код VBA, сделайте следующее:

1. Удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: продублируйте каждую строку несколько раз:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее вам ввести количество раз, которое вы хотите продублировать для каждой записи, см. снимок экрана:

4. Затем нажмите OK, и каждая строка была скопирована и вставлена ​​в 3 раза ниже активных, см. снимок экрана:

Внимание: В приведенном выше коде A указывает, что диапазон данных начинается в столбце A, если ваши данные начинаются в столбце K, пожалуйста измените A в K как вам нужно.


Скопируйте и вставьте каждую строку несколько раз на основе определенного числа с потрясающей функцией

Возможно, вы не знакомы с кодом VBA или беспокоитесь о том, что код приведет к сбою ваших данных. Здесь я расскажу о полезной функции, Kutools for Excel‘s Повторяющиеся строки / столбцы на основе значения ячейки, с помощью этой утилиты вы можете быстро копировать и вставлять строки в зависимости от указанного вами числа.

Советы:Чтобы применить это Повторяющиеся строки / столбцы на основе значения ячейки функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Введите повторяющиеся числа, которые вы хотите дублировать строки в списке ячеек рядом с вашими данными, см. Снимок экрана:

2. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки, см. снимок экрана:

3. В Копировать и вставлять строки и столбцы диалоговое окно, выберите Копировать и вставлять строки вариант в Тип раздел, затем выберите диапазон данных, который вы хотите дублировать, а затем укажите время повтора для дублирования строк, см. снимок экрана:

4, Затем нажмите Ok or Применить кнопку, вы получите такой результат, как вам нужно:

Нажмите, чтобы скачать Kutools for Excel и бесплатная пробная версия прямо сейчас!


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

 

sergex

Пользователь

Сообщений: 5
Регистрация: 04.05.2013

Здраствуйте. Подскажите как скопировать строку заданное число раз, указанное в одной из ячеек данной строки? Т.е. имеется большой файл с названиями позиций и их количеством, а нужно пребразовать этот файл, чтобы если позиция имеет количество более единицы, то эта строка превращалась в соответствующее количество строк и количеством единица для каждой строки. В приложении привёл пример, что имею ввиду.

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Была уже точно такая тема.

 

sergex

Пользователь

Сообщений: 5
Регистрация: 04.05.2013

#3

04.05.2013 14:41:42

Спасибо, нашёл

http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=45432&MID=378140#message378140

И даже написал свой первый макрос

Код
Sub Копирование()
Rows(ActiveCell.Row).Copy
Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Resize(ActiveCell - 1, 1).Insert Shift:=xlDown
End Sub

Но не могу разобраться со смещением при копировании. Требуется чтобы при выделении ячейки с числом ниже добавлялись строки в количестве это число минус один, и добавлялись они сразу под этой строкой. А сейчас идут непонятные смещения вниз… А так вроде всё работает.

Прикрепленные файлы

  • Книга1.xlsm (19.16 КБ)

 

sergex

Пользователь

Сообщений: 5
Регистрация: 04.05.2013

#4

04.05.2013 19:44:29

Попробовал другой код:

Код
Sub Копирование()
 Dim i&
    Application.ScreenUpdating = False
    For i = 1 To (ActiveCell - 1)
        Rows(ActiveCell.Row).Copy Cells(Rows.Count, 1).End(xlUp)(2)
    Next
    Application.ScreenUpdating = True


End Sub

Всё аналогично присходит… Т.е. при выделении очередной ячейки (например B5) вставка строк происходит не начиная со следующей строки (т.е. с 6-й), а начиная со строки, котороя является последней заполненной в файле.

Т.е. исходные данные такие:
позицияраз 4
позициядва 1
позициятри 6

Хочу получить:
позицияраз 4
позицияраз 4
позицияраз 4
позицияраз 4
позициядва 1
позициятри 6
позициятри 6
позициятри 6
позициятри 6
позициятри 6
позициятри 6

Прикрепленные файлы

  • Книга2.xlsm (19.44 КБ)

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#5

04.05.2013 20:01:51

Цитата
sergex пишет:
Cells(Rows.Count, 1).End(xlUp)(2)

Вот здесь как раз и определяется последняя строка))
Вот такой макрос

Код
Rows(5).Resize(3).Insert

вставит три строки, начиная с пятой. Теперь меняем 5 на номер активной строки, а 3 на значение в нужной ячейке (сколько строк нужно вставить).
P.S. Тему Вы нашли похожую, но была ещё одна аналогичная…

 

sergex

Пользователь

Сообщений: 5
Регистрация: 04.05.2013

#6

04.05.2013 20:22:48

Уже почти получилось)
Код вышел такой

Код
Sub Копирование()
 Rows(ActiveCell.Row).Resize(ActiveCell - 1).Insert
End Sub

Но есть последняя проблемка, вставляет нужное количество в нужное место, но не активную строку, а пустую..

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#7

04.05.2013 20:48:14

Код
Sub TestCopy()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Resize(ActiveCell.Offset(0, -1) - 1).Insert 'Shift:=xlDown
Application.CutCopyMode = False
End Sub

количество копируемых строк в ячейке слева от активной.

 

sergex

Пользователь

Сообщений: 5
Регистрация: 04.05.2013

 

День добрый. Понимаю что тема уже старая, однако сейчас очень актуальная для меня.
Есть большой массив данных (более 10 000 ячеек) который нужно размножить на определенное количество раз. И последний код мне фактически подошел, если бы только он не множил по одной выбранной ячейке (на скриншоте показано что выделено было 3 ячейки, но после запуска макроса размножило только выбранную первой). Можно ли как то размножить сразу все ячейки в которых проставлено количество?

 

Hugo

Пользователь

Сообщений: 23253
Регистрация: 22.12.2012

#10

05.08.2018 11:42:39

goldenbrown244,  не понятно что хотите сделать, но исходя из написанного и не особо меняя код:

Код
Selection.EntireRow.Copy

Вот так попробуйте копировать после

Цитата
goldenbrown244 написал:
выделено было 3 ячейки
 

Попробовал, это уже ближе к истине, но теряется порядок.
Переделал немного табличку, так может быть будет понятнее мой вопрос. На 2м листе разместил скриншоты желаемого результата.  

 

Jack Famous

Пользователь

Сообщений: 10852
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Изменено: Jack Famous15.08.2018 10:35:09

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

Jack Famous, спасибо большое! Полистал тему, нашел подходящий мне макрос. Однако я не силен в этом всем. Не подскажите ли теперь как не просто подставлять пустые строки, а копировать их? (порядок подстановки вниз вполне устраивает) :)

 

Jack Famous

Пользователь

Сообщений: 10852
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#14

16.08.2018 14:52:04

Цитата
Man of Mayhem: не просто подставлять пустые строки, а копировать их

когда «размножили» строки по числу в ячейке, то остаётся заполнить образовавшиеся пустоты значениями из верхних ячеек. Ссылку я дал. Спрашивайте конкретнее

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#15

16.08.2018 15:18:14

Код
Sub qq()
    On Error Resume Next
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 2).End(xlUp).Row To 12 Step -1
        Rows(i).Copy
        Rows(i).Resize(Cells(i, 1) - 1).Insert
    Next
    Application.ScreenUpdating = True
End Sub
 

Большое спасибо всем участникам данной темы! Нашла решение для своего вопроса :)
:idea:  

 

gmb

Пользователь

Сообщений: 63
Регистрация: 15.04.2019

Юрий М, Подскажите пожалуйста, а есть ли обратное действие? у меня дублирующихся строк, справа от них количество, я хочу свернуть уникальные ячейки и чтобы макрос суммировал значение напротив каждой позиции?

 

Jack Famous

Пользователь

Сообщений: 10852
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

gmb, новая тема с файлом-примером

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

gmb

Пользователь

Сообщений: 63
Регистрация: 15.04.2019

#19

19.04.2021 10:41:55

Jack Famous, создал

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=139582&a…

Если ваша работа требует, чтобы вы практически жили в таблицах Excel, возможно, вы ищете способы упростить повторяющиеся задачи. Например, всякий раз, когда вы работаете с данными, которые необходимо регулярно обновлять, вам часто нужно добавлять несколько строк.

В этом руководстве мы расскажем, как вставить несколько строк в Excel за несколько простых и быстрых шагов. Выберите тот, который лучше всего подходит для вас.

Как вставить несколько строк, перетащив выделенную границу

Это самый быстрый способ вставить несколько пустых строк в лист Excel. Это просто и не требует использования каких-либо сочетаний клавиш.

  1. Выберите строку, ниже или выше которой вы хотите ввести пустые строки.
  2. Наведите указатель мыши на выделенную границу.
  3. Нажмите Shift, и вы увидите, что указатель изменится на точку со стрелками вверх и вниз. Перетащите выделение вниз на количество строк, которые вы хотите добавить.

Если вам не нравится идея несколько щелчков правой кнопкой мыши пока вы работаете с листом Excel, вы можете использовать два сочетания клавиш.

Сначала выберите количество строк, равное количеству пустых строк, которые вы хотите ввести. Используйте Shift + Пробел, чтобы выбрать все столбцы для выбранных строк, или выберите строки, используя номера строк слева.

Затем используйте любой из двух ярлыков:

  1. Alt + I и Alt + R: нажмите Alt + I, удерживая клавишу Alt, нажмите R.
  2. Ctrl + Plus: вам нужно использовать знак плюса на цифровой клавиатуре. Если вы хотите использовать знак плюса на основной клавиатуре, используйте Ctrl + Shift + Plus.

Метод быстрого доступа тоже масштабируемый. Нажатие F4 на листе Excel повторяет предыдущее действие. Вы можете использовать один из приведенных выше ярлыков, чтобы добавить, например, 10 строк, а затем нажать F4 10 раз, чтобы добавить 100 пустых строк.

Как вставить несколько скопированных строк с помощью сочетаний клавиш

Если вы хотите скопировать или вырезать несколько строк вместо добавления пустых строк, используйте сочетание клавиш Alt + I + E.

  1. Начните с копирования или вырезания строк.
  2. Выберите строку выше строки, которые вы хотите вставить, нажав номер строки слева.
  3. Нажмите Alt + I + E и выберите Сдвиг ячеек вниз.

Вы также можете использовать следующие сочетания клавиш вместо Alt + I + E (процесс одинаков, независимо от того, какой ярлык вы используете):

  • Ctrl + Shift + =
  • Control + Plus (знак плюса должен быть на цифровой клавиатуре)

Как вставить несколько строк с помощью параметра вставки

Чтобы использовать этот метод, все, что вам нужно сделать, это выбрать количество строк, которые вы хотите добавить, щелкнуть правой кнопкой мыши по выделенному фрагменту и выбрать «Вставить».

Если в ваших данных много столбцов, нажмите Shift + Пробел, чтобы выбрать все столбцы для выбранных строк, или выберите строки, используя номера строк в левой части листа.

Когда вы выбираете «Вставить», Excel вставляет строки над первой выбранной вами строкой.

Если вы хотите ввести относительно большее количество пустых строк, вы можете выбрать диапазон, а затем использовать параметр «Вставить». Например, вы хотите ввести 500 строк.

  1. Выберите диапазон в формате «начальная строка: последняя строка». Предполагая, что вы хотите ввести 500 строк после строки 5, выберите диапазон 5: 504, указав этот диапазон в поле имени ячейки.

  1. Щелкните правой кнопкой мыши и выберите Вставить.

Как вставить несколько строк с помощью макроса Excel

Если вы работаете с большим набором данных на листе, который предполагается использовать регулярно, вы можете автоматизировать вставку строк с помощью макросов. Вам не нужно быть экспертом, хотя знание основ VBA может дать вам много возможностей при использовании Excel.

Перед тем, как начать процесс, проверьте, есть ли на ленте Excel вверху вкладка с названием «Разработчик». Если это не так, перейдите в «Файлы»> «Параметры»> «Настроить ленту» и установите переключатель рядом с «Разработчик».

  1. Перейдите на вкладку Разработчик и выберите Visual Basic.

  1. Найдите меню «Вставка», когда откроется редактор Visual Basic, и выберите «Модуль».

  1. Введите в редакторе следующий код:

Подложка InsertRowsAtCursor ()
Answer = InputBox («Сколько строк нужно вставить? (Максимум 100 строк)»)
NumLines = Int (Val (ответ))

Если NumLines> 100, то
NumLines = 100
Конец, если

Если NumLines = 0, то
Перейти к концу
Конец, если

Делать
Selection.EntireRow.Insert
Счетчик = Счетчик + 1
Цикл пока счетчик

EndInsertLines:
Конец подписки

  1. Закройте редактор кода.
  2. На верхней ленте выберите «Разработчик»> «Макросы» или просто нажмите Alt + F8. Выберите только что созданный макрос и выберите Параметры. Установите сочетание клавиш для макроса, но убедитесь, что это не существующая комбинация клавиш, которую вы часто используете, например Ctrl + C. В этом случае мы использовали Ctrl + Shift + T. Когда вы закончите, нажмите OK, чтобы сохранить изменения и выйти.

  1. Вернитесь на рабочий лист и выберите ячейку, ниже которой вы хотите ввести строки.
  2. Используйте ярлык, который вы установили для макроса (в данном случае Ctrl + Shift + T). Вы увидите всплывающее окно на листе с просьбой ввести количество строк, которые вы хотите добавить. Например, предположим, вы хотите ввести пять строк. Введите 5 и нажмите Enter.

  1. Это добавит 5 строк ниже ячейку, которую вы выбрали.

Каждый раз, когда вы хотите вставить несколько строк в Excel, просто используйте ярлык, введите количество строк, и все готово.

Вставка нескольких строк в Excel

если ты часто использую Excel, стоит узнать, как можно сэкономить время на повторяющихся механических задачах, таких как вставка строк. Поскольку есть несколько способов вставить несколько строк в Excel, все зависит от того, какой метод вам удобнее. Если вы добавили много пустых строк в набор данных, есть несколько способов удалить пустые строки.

В этой статье описаны некоторые хитрые способы, которые помогут вам быстро и удобно скопировать каждую вторую строку в Microsoft Excel.

Копировать каждую вторую строку в Excel с маркером заливки

Копировать каждую вторую строку в Excel с помощью команды «Фильтр»

Копировать каждую другая строка в Excel с помощью Kutools for Excel

Вкладка Office Включите редактирование и просмотр с вкладками в Office и сделайте вашу работу намного проще …

Подробнее … Скачать бесплатно …

Kutools for Excel Решает Большинство ваших проблем и увеличивает вашу производительность на 80%.

  • Повторное использование чего угодно: добавьте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное, и быстро использовать их в будущем.
  • Более 20 текстовых функций: извлечение числа из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: несколько книг и листов в одну; Объединить несколько ячеек/строк/столбцов без потери данных; Объедините повторяющиеся строки и суммируйте.
  • Инструменты разделения: разделение данных на несколько листов в зависимости от значения; Из одной книги в несколько файлов Excel, PDF или CSV; Один столбец в несколько столбцов.
  • Вставить пропуск скрытых/отфильтрованных строк; Подсчет и сумма по цвету фона; Массовая отправка персонализированных писем нескольким получателям.
  • Суперфильтр: создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделе, дню, частоте и т. Д. Фильтр жирным шрифтом, формулами, комментарием …
  • Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

Подробнее … Бесплатная загрузка …

Предположим, вам нужно скопировать каждую вторую строку из следующего диапазона:


Содержание

  1. Копировать каждую вторую строку в Excel с ручкой заливки
  2. Скопируйте каждую вторую строку в Excel с помощью фильтра команда
  3. Скопируйте каждую вторую строку в Excel с помощью Kutools for Excel

Копировать каждую вторую строку в Excel с ручкой заливки

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Сэкономьте 50% своего времени и уменьшите тысячи щелчков мышью каждый день!

Фактически, мы можем быстро скопировать и вставить любой контент из одного диапазона в другой. Мы поможем вам завершить его на основе приведенного выше примера:

Шаг 1. Введите формулу =A1 в ячейку E1. Затем щелкните ячейку E1 и перетащите маркер заливки в ячейку G1.

Шаг 2. Выберите и выделите диапазон E1: G2 и перетащите Маркер заполнения в диапазоне в соответствии с вашими потребностями.

Теперь он копирует и вставляет содержимое во все остальные строки:

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


Скопируйте каждую вторую строку в Excel с помощью фильтра команда

Если вы хотите скопировать не только содержимое, но и гиперссылки, стили форматирования во все остальные строки, вам следует попробовать команду Фильтр .
Шаг 1. В пустом столбце, помимо исходных данных, введите 0,1,0,1…,0,1 . в этом случае мы вводим числа в столбец E. см. следующий снимок экрана:

Шаг 2. Выберите и выделите столбец E и нажмите кнопку Фильтр на вкладке Данные .

Шаг 3: затем вернитесь к столбцу E, и нажмите кнопку со стрелкой рядом с ячейкой E1.

Шаг 4. В раскрывающемся меню снимите флажок Выбрать все и установите флажок 0 вариант. Затем он скрывает строки с 1 в Excel, см. Следующий снимок экрана.

Шаг 5: Теперь вы можете выбрать и выделить эти строки интервалов и скопировать их, нажав кнопку Копировать под Вкладка “Главная ” ( Ctrl + C ) легко.


Скопируйте каждую вторую строку в Excel с помощью Kutools for Excel

Если у вас установлен Kutools for Excel, вы можете легко скопировать каждую вторую строку быстро без потери гиперссылок или стилей форматирования с помощью инструмента Выбрать интервальные строки и столбцы .

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас .

Шаг 1. Выберите диапазон, с которым вы будете работать, и нажмите Kutools > Выберите “Инструменты” > Выберите интервальные строки и столбцы… .

Шаг 2. В диалоговом окне Выбрать строки и столбцы интервала укажите параметры, как показано на следующем снимке экрана, и нажмите ОК .

Затем каждый второй выбранная строка выделена и выделена.

Шаг 3 : Теперь вы можете легко скопировать эти выбранные строки интервала, нажав кнопку Копировать на вкладке Главная ( Ctrl + C ). .

Нажмите, чтобы узнать больше об этой функции выбора интервальных строк и столбцов..


  • Выбрать каждый n-й столбец в Excel.
  • Выбрать каждую вторую или n-ю строку в Excel.
  • Удалить каждую вторую строку
  • Скрыть каждую вторую строку

Копирование строки определенное количество раз

fyx

Дата: Вторник, 01.04.2014, 12:17 |
Сообщение № 1

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2003

Добрый день.
Есть строки с указанием количества позиций.
Нужно сделать столько копий этой строки, сколько указанно в столбце количество.
То есть 5 брюк, должно стать 5 строк с брюками.

К сообщению приложен файл:

2599370.xls
(34.0 Kb)

 

Ответить

Dмитрий

Дата: Вторник, 01.04.2014, 12:34 |
Сообщение № 2

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

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

Сообщений: 91


Репутация:

9

±

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


Excel 2010

Цитата

Нужно сделать столько копий этой строки, сколько указанно в столбце количество.

Копий куда??? На новый лист? В новую книгу? Туда же?

 

Ответить

fyx

Дата: Вторник, 01.04.2014, 12:38 |
Сообщение № 3

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2003

Туда же, под данною строку.
Далее следующую строку, копируем вниз столько раз сколько указано в строке «Кол-во»
И строк может быть до 200.

 

Ответить

Wasilich

Дата: Вторник, 01.04.2014, 13:33 |
Сообщение № 4

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

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

Сообщений: 1232


Репутация:

326

±

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


2003

Так пойдет?
[vba]

Код

Sub КопияСтрок()
    Dim i&, x&
    Application.ScreenUpdating = False
    For i = Range(«A» & Rows.Count).End(xlUp).Row To 2 Step -1
      If Cells(i, 9) > 1 Then
         x = i + Cells(i, 9) — 1
         Rows(i + 1 & «:» & x).Insert Shift:=xlDown
         Rows(i).Copy
         Rows(i + 1 & «:» & x).Select
         ActiveSheet.Paste
      End If
    Next
    Application.CutCopyMode = False
    Range(«A2»).Select
    Application.ScreenUpdating = True
End Sub

[/vba]

 

Ответить

fyx

Дата: Вторник, 01.04.2014, 13:33 |
Сообщение № 5

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2003

Спасибо огромное, заработало

Сообщение отредактировал fyxВторник, 01.04.2014, 13:39

 

Ответить

AlexM

Дата: Вторник, 01.04.2014, 13:44 |
Сообщение № 6

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

Ранг: Участник клуба

Сообщений: 4257


Репутация:

1046

±

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


Excel 2003

Еще вариант
[vba]

Код

Sub CopyRows()
Application.ScreenUpdating = False
Dim i As Long
For i = Columns(9).End(xlDown).Row To 2 Step -1
Rows(i).Copy
Rows(i).Resize(Range(«I» & i) — 1).EntireRow.Insert
Range(«I» & i).Resize(Range(«I» & i)) = 1
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

[/vba]



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

fyx

Дата: Вторник, 01.04.2014, 13:56 |
Сообщение № 7

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2003

Что то у меня на него ругается на строку
Range(«I» & i).Resize(Range(«I» & i)) = 1

 

Ответить

AlexM

Дата: Вторник, 01.04.2014, 14:03 |
Сообщение № 8

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

Ранг: Участник клуба

Сообщений: 4257


Репутация:

1046

±

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


Excel 2003

Проверил на файле, который в 6-ом сообщении. У меня не ругается.
Строка проставляет количество 1 шт в размноженных строках.



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

iramikla

Дата: Пятница, 02.05.2014, 12:06 |
Сообщение № 9

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

Ранг: Прохожий

Сообщений: 6


Репутация:

0

±

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


Excel 2007

Все работает, единственный вопрос: если в столбце с количеством есть цифра 1, выскакивает ошибка! можно ли избавиться от этого таким образом, чтобы строка, которая должна повторяться только один раз, оставалась в единственном экземпляре, а другие строки копировались согласно указанному количеству?

 

Ответить

AlexM

Дата: Пятница, 02.05.2014, 12:35 |
Сообщение № 10

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

Ранг: Участник клуба

Сообщений: 4257


Репутация:

1046

±

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


Excel 2003

можно так[vba]

Код

Sub CopyRows()
Application.ScreenUpdating = False
Dim i As Long
For i = Columns(9).End(xlDown).Row To 2 Step -1
If Range(«I» & i) > 1 Then
Rows(i).Copy
Rows(i).Resize(Range(«I» & i) — 1).EntireRow.Insert
Range(«I» & i).Resize(Range(«I» & i)) = 1
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

[/vba]



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

iramikla

Дата: Пятница, 02.05.2014, 12:45 |
Сообщение № 11

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

Ранг: Прохожий

Сообщений: 6


Репутация:

0

±

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


Excel 2007

Огромнейшее спасибо!!!! все прекрасно работает!) :D

 

Ответить

Перемещение и копирование ячеек, строк и столбцов

​Смотрите также​​ Like «;;» Then​ из функции (берут​ сделать. Чтобы получить​ на Excel приложение​ срабатывал на странице?​ их на отдельный​Полезный совет! Самый быстрый​ простой инструмент, который​, нужно воспользоваться функцией​ крестиком) ведем вниз.​Если выделим три​ удерживая левую кнопку​ активной ячейку, куда​ столбца, в которую​ щелкните правой кнопкой​Буфер обмена​Примечание:​Миха73​ значения с другия​ значение ячеек вроде​

​ private Excel.Workbooks excelappworkbooks;​ Поскольку идет импорт​ лист. Еще момент​ способ скопировать сложную​ позволяет быстро решить​ Excel «Специальная вставка».​Копировать перетаскиванием можно​ пустые ячейки с​ мыши нажатой.​ будем копировать, нажимаем​

​ нужно вставить данные)​ мыши строку или​нажмите кнопку​ Мы стараемся как можно​: попробую с этим​ ячеек), диапозон которых​ бы вот так:​ // Создаём ссылку​ данных извне и​ — данные в​ и большую таблицу,​ сложные задачи и​ У нас есть​ как по столбикам,​

​ датой, то даты​

​Отпускаем мышку. Формулы скопировались,​ правой мышью и​ для строк или​ столбец снизу или​​Копировать​​ оперативнее обеспечивать вас​​ разобраться​​ я не включала​excelcells=sheet.get_Range(«A7″,»Y7»);​ на рабочие книги​ обновляются с периодичностью​

​ excel-файле периодически обновляются.​ сохранив ее ширину​

  1. ​ освоить общие принципы​ такая таблица.​ так и по​ скопируются через три​

  2. ​ в них изменились​ выбираем функцию «Вставить».​

    • ​ столбцов, которые транспонирования.​ справа от того​​.​​ актуальными справочными материалами​​Юрий М​​ для копирования, так​​, а как теперь​ Изображение кнопки​ Excel-приложения private Excel.Workbook​

      Изображение ленты Excel

      ​ 5 минут. То​

    • ​ Файл прикрепляю. Уточняю,​ столбцов и высоту​​ его использования. Использование​​Если мы скопируем ее​​ строкам.​​ пустые ячейки. Получится​​ адреса ячеек относительно​ Изображение кнопки​Когда значения ячеек,​

      ​На вкладке​

  3. ​ места, куда требуется​Сочетание клавиш: CTRL+C.​ на вашем языке.​: А смысл? Результат​ как эти ячейки​ вставить в новую​ excelappworkbook; // Создаём​ есть, чтобы макрос​ пользуюсь Ecxel 2003,​

    • ​ строк – это​ этого простого инструмента​ как обычно: «Копировать»​​Еще несколько способов,​​ так.​

    • ​ нового места. Таблица​ в которых стоят​Главная​​ переместить или скопировать​​Щелкните правой кнопкой мыши​

      ​ Эта страница переведена​​ будет тот же​ мне не нужны.​ строку?​​ ссылку на рабочую​ Изображение кнопки​ для «Статистики» срабатывал​​ можно Excel 2007​​ копировать ее целым​​ позволяет вам быстро​​ -> «Вставить», то​ как писать одинаковый​Если нужно перенести​

Перемещение и копирование строк и столбцов с помощью мыши

  1. ​ формулами заполнена.​ формулы (цифры) не​в группе​

  2. ​ выделенный элемент, а​ строку или столбец​

    • ​ автоматически, поэтому ее​ самый. Берите что​Как можно скопировать​es_​ книгу Excel-приложения private​ автоматически.​Указатель перемещения Excel​Юрий М​ листом. О том,​ приводить все таблицы​

    • ​ получится так.​ текст, формулы в​ ячейки с формулами,​Как скопировать формулу​ копируются, делаем так:​Редактирование​ затем в контекстном​ снизу или справа​Указатель копирования​ текст может содержать​ дают, а то​ именно то число​

      ​:​​ Excel.Sheets excelsheets; //​Hugo​: roadtomoney, Вам, как​ как это сделать​ к однообразному формату​Ширина столбцов не сохранилась.​ нескольких ячейках, т.д.,​

    ​ но​ в Excel таким​ выделяем ячейки как​щелкните стрелку рядом​ меню выберите команду​ от того места,​ неточности и грамматические​ скачаю обратно.​ что мне нужно,​lexus-tikhvin​ Создаём ссылку для​: А мне вариант​ новичку, скажу по​ читайте: копирование и​ и получать тот​Чтобы сохранить ширину​ смотрите в статье​адреса в формулах Excel​​ способом, чтобы не​​ обычно-> «Копировать». Появится​​ с кнопкой​​Вставить вырезанные ячейки​

    ​ куда необходимо переместить​​ ошибки. Для нас​Миха73​ а не функцию?​, Нужно брать значение​

Перемещение и копирование ячеек

  1. ​ работы со страницами​ Карена нравится больше​ секрету: мало кто​

  2. ​ перемещение листов.​ результат, который необходим.​ столбцов, делаем так.​

  3. ​ «Как заполнить ячейки​Указатель ​ должны остаться прежние​ копировался формат, смотрите​ вокруг ячеек, которые​

​Вставить​

​или​

​ или скопировать выделенный​

​ важно, чтобы эта​: Смысл есть, при​

​Спасибо за ответ​

​ из каждой ячейки​ Excel-приложения private Excel.Worksheet​Если конечно всегда​

​ захочет возиться с​​Специальная вставка хоть и​Допустим, у нас есть​ Сначала выделяем таблицу,​ в Excel одновременно»​(не привязывать к​ в статье «Как​

Перемещение и копирование строк или столбцов

  1. ​ мы копируем, пульсирующая​и нажмите кнопку​Вставить скопированные ячейки​

  2. ​ элемент, а затем​ статья была вам​ изменении уже скопированных​

  3. ​ )​Указатель ​ от А7 до​ excelworksheet; // Создаём​ применим.​

​ файлом в 510К.​

​ не идеальна, все​

​ такая таблица, формат​

​ выбираем из контекстного​ тут.​ новым ячейкам), то​

​ скопировать в Excel».​

​ рамка, еще раз​транспонировать​.​ выполните одно из​

​ полезна. Просим вас​ строк на Листе3​Почтальон​

​ Y7 ?​ ссылку на рабочую​Как сделать чтоб​ Ведь можно же​ же не стоит​ которой необходимо сохранить​ меню «Копировать». Ставим​

Преобразование столбцов в строки и строк в столбцы

  1. ​Как cкопировать лист в​ это снова в​

  2. ​Третий вариант.​ нажимаем правой мышью​.​Примечание:​ указанных ниже действий.​ уделить пару секунд​

  3. ​ и последующем выполнении​​:​​C# excelcells =​​ страницу Excel-приложения private​​ срабатывало на обновление​ делать пример не​​ недооценивать ее возможности.​​ при копировании:​​ курсор в новое​​ Excel -​

    Вкладка

    ​ статье «Относительные и​​Как копировать формулы в​ на выделенную ячейку​Примечание:​ С помощью мыши невозможно​Чтобы переместить строки или​ и сообщить, помогла​ макроса измененные данные,​moon-beauty​ excelworksheet.get_Range(«A1», «A1»); //​ Excel.Range excelcells; excelapp​ — зависит как​ на​ Например, как вставить​

support.office.com

Копирование в Excel.

​При копировании на другой​​ место, куда будем​правой мышью нажимаем​ абсолютные ссылки в​ Excel на весь​​ и в диалоговом​ Не удается перекрываться столбцов​ переместить или скопировать​ столбцы, выберите в​​ ли она вам,​​ на Листе3, будут​
​, не лезьте в​ Устанавливаем ссылку ячеек​ = new Excel.Application();​ обновляете.​такое​ значение формулы в​ лист привычным методом​ вставлять таблицу и​ на ярлык листа.​ формулах Excel». Ссылка​ столбец​ окне​ и строк. Например​ несмежные строки или​ контекстном меню команду​ с помощью кнопок​ переписаны и нужно​
​ чужие темы​ на ячейку A1​ excelappworkbook = excelapp.Workbooks.Open(textBox1.Text,​Можно на третьем​количество строк. Да​ таблицу Excel и​ Ctrl+C – Ctrl+V.​
​ из контекстного меню​ В диалоговом окне​ на статью в​
​.​выбираем команду «Специальная вставка»​ если выбрать значения​ столбцы.​Вставить вырезанные ячейки​ внизу страницы. Для​
​ будет либо по​Миха73​​ string s =​
​ // Устанавливаем ссылку​ листе прописать формулу,​ и какие строки​ сохранить формат ячеек.​ Получаем нежелательный результат:​ выбираем «Специальная вставка»​ выбираем «Переместить/скопировать».​ статье выше.​
​Нам нужно скопировать​, выбираем — «Значение».​ в столбце C​Выделите ячейки или диапазон​.​ удобства также приводим​ новой вносить изменения​: Доброе время суток,​ Convert.ToString(excelcells.Text); excelcells =​ рабочей книги на​ завязанную на первый,​ считать «нужными» -​Чтобы решить такую задачу​​Поэтому приходится вручную «расширять»​​ и там, в​
​Ставим галочку у слов​Если нужно​ формулу из ячейки​Затем, как обычно -​ и пытаетесь вставить​ ячеек, которые нужно​Чтобы скопировать строки или​ ссылку на оригинал​ или дублировать полученные​ уважаемые форумчане! Столкнулся​
​ excelworksheet.get_Range(«B1», «B1»); //​ книгу по пути​ и по событию​ пока только Вы​ следует выполнить 2​ ее, чтобы привести​ разделе «Вставить» отмечаем​ «Создать копию». Выбираем​не копировать, а перенести​ F24. Наводим на​
​ «Вставить». С помощью​ их в строку,​
​ переместить или скопировать.​
​ столбцы, выберите в​​ (на английском языке).​ данные на другом​​ с проблемой, которая,​ Устанавливаем ссылку ячеек​ взятого из TextBox.​ пересчёта запускать макрос.​ знаете. Как должен​ операции, используя специальную​ в удобный вид.​ — «ширины столбцов».​ куда переместить скопированный​ ячейку с формулой​ квадратик в правом​
​ функции «Специальная вставка»​
​ перекрывающая столбца C,​​Установите курсор на границе​​ контекстном меню команду​При перемещении или копировании​ листе.​ откровенно говоря, привела​ на ячейку B1​ Параметры(FileName(Имя открываемого файла​Но не вполне​ выглядеть желаемый результат​ вставку в Excel.​ Если таблица большая,​Нажимаем «ОК». В таблице​ лист (в эту​, то не копируем​ нижнем углу ячейки.​ можно не только​ Excel отображает сообщение​ ячейки или диапазон,​Вставить скопированные ячейки​ строк и столбцов​Юрий М​ меня в некий​ excelcells.Value2 = s;Берём​
​ файла), Type.Missing, Type.Missing,​ понятно — куда​ — тоже никто​Операция I:​ то «возиться» придется​
​ изменилась ширина столбцов.​ или другую книгу,​ её, а через​ Указатель мышки приобретает​ копировать данные, но​ об ошибке. Конечная​
​ который был выбран.​
​.​ приложение Excel перемещает​: Изменяют строки обычно​​ ступор.​
​ текст из ячейки​ Type.Missing, // UpdateLinks(Способ​ копировать? Всегда в​ не знает…​Выделяем исходную таблицу с​ долго. Но есть​Место для новой таблицы​ перед каким листом)​ контекстное меню «Вырезать»​ вид черного крестика.​ и складывать их,​ область вставленного столбца​Когда указатель примет вид​Примечание:​ или копирует все​
​ в исходных данных,​
Как копировать формулу в Excel. ​Есть таблица на​
​ А1 и помещаем​ обновления ссылок в​ A1?​roadtomoney​ формулами и копируем.​ способ существенно сократить​ выделено. Теперь снова​
​ или оставляем так​ -> «Вставить». Формула​ Нажимаем два раза​ вычитать, умножать, т.​ или строки должны​, выполните одно​ Если вместо выбора команды​ содержащиеся в них​ а по ним​ Листе1, которая ежедневно​ в B1.​ файле), ReadOnly(При значении​roadtomoney​: Спасибо. Сейчас исправлюсь)​В месте где нужно​
​ временные потери.​ правой мышкой на​
​ и нажимаем «ОК».​ удалится из первой​ подряд левой мышкой​ д. Подробнее, смотрите​ быть из-за пределов​ из указанных ниже​ в контекстном меню​ данные, в том​ уже строится отчёт.​ заполняется, необходимо из​lexus-tikhvin​
​ true открытие только​: Копирование на соседний​roadtomoney​
​ вставить диапазон данных​​ это выделенное место​ Затем, у скопированного​ ячейки и перенесется​ на этот крестик.​​ в статье «Суммирование​ исходные значения.​ действий.​ нажать кнопку​ числе формулы и​ Если Вы планируете​
​ нее скопировать строки​:​ для чтения), Format(Определение​​ лист, всегда в​: Прикладываю новый файл.​​ со значениями (но​Выделяем исходную таблицу, которую​ (на рисунке -​ листа, можно изменить​ в новое место.​ Формула скопируестя до​ в Excel» здесь.​Здесь рассмотрим,​
​Задача​​Вставить​ значения их результатов,​​ изменять сам отчёт​ по условию значения​es_​ формата символа разделителя)​ A1 Вопрос в​ Проблема описана в​ уже без формул),​
​ нам необходимо скопировать,​ ячейка Е3) и​ название, переместить его​Ещё варианты копирования​ конца заполненного столбца.​Если копируем числа​как копировать в Excel​
​Необходимые действия​на вкладке​
​ примечания, форматы ячеек​ — делайте это​ в ячейке столбца​, это для ячейки?​ «WWWWW», «WWWWW», Type.Missing,​ том, что на​ нем снизу) Суть​ выбираем опцию «значения».​ нажимаем на Ctrl+C.​ выбираем «Вставить».​ на другое место,​ формул, чтобы ссылки​ У нас, в​ с точками -​ формулыячейки, как скопировать​Перемещение ячеек​Главная​ и скрытые ячейки.​
​ на копии листа​ C (он же​ А как строку​ Type.Missing, Type.Missing, //​ первом листе данные​
​ проблемы в том,​ Жмем ОК.​Выделяем новую (уже скопированную)​Всё. У нас​​ изменить цвет ярлычка.​ в них не​ примере, в ячейки​ разделителями всместо запятой​​ лист в Excel,​Перетащите ячейки в другое​в группе​
​Если ячейка содержит формулу,​​ 3.​ 3)и вставить (добавлял)​ скопировать со всеми​​ Password(Пароль доступа к​ динамические и меняются​ что необходимо, чтобы​Операция II:​
​ таблицу, куда нам​ скопирована таблица с​Как скопировать лист в​ менялись, описаны в​
​ F25:F26.​ (1.23), то вставив,​ таблицу,значениеформат​ место.​Буфер обмена​ не подбираются ссылка​Миха73​ удовлетворяющую условию строку​
​ форматами? Я наверно​ файлу до 15​​ автоматически каждые 5​ копировались именно строки​Так как скопированный диапазон​ необходимо формат ширины​
​ шириной столбцов из​ новую книгу Excel​ статье «Как скопировать​Получилось.​ эти числа превратятся​, т.д. Одна из​Копирование ячеек​(или нажать клавиши​ на ячейку. Таким​: да, обычно так​ на Лист3. условием​ не правильно задал​ символов), WriteResPassword(Пароль на​
​ минут, а макрос​ с информацией, как​​ у нас еще​
​ столбцов и нажимаем​ первоначальной таблицы. Получилось​.​ формулу в Excel​Внимание!​
​ в дату. Чтобы​ многих возможностей таблицы,​Удерживая нажатой клавишу OPTION​​ CTRL+V), содержимое конечных​ образом содержимое перемещенные​ и происходит, в​ является шестизначное число​ вопрос: строка в​
​ сохранение файла), IgnoreReadOnlyRecommended(При​ для обновления статистики​ (к примеру, в​ находится в буфере​ на ячейку правой​ так.​Для этого в​ без изменения ссылок».​Формула скопируется в​
​ этого избежать ,​ облегчающих работу –​ и перетащите ячейки​ ячеек будет заменено.​ или скопированные ячейки​ смысле изменение данных​ (от 000000 до​

excel-office.ru

Копировать таблицу Excel, сохраняя ширину столбцов.

​ данном вопросе -​ значении true отключается​ приходится запускать вручную.​ 3 и 40​ обмена после копирования,​ кнопкой мыши, после​Теперь в этой таблице​ диалоговом окне в​Как заполнить таблицу в​ таблице, если ячейки​ есть несколько способов.​ это​
​ в другое место.​​Выделите строки или столбцы,​ и все ячейки,​​ в исходном документе,​ 999999).​ это строка excel,​ вывода запроса на​
СОХРАНИТЬ ШИРИНУ СТОЛБЦОВ EXCEL ПРИ КОПИРОВАНИИ.​ Можно сделать так,​ строках) — остальная​ то мы сразу​ чего в выпадающем​​ можно закрепить шапку​
​ разделе «Переместить выбранные​ Excel.​ столбца слева таблицы​ Смотрите статью «Автозамена​копирование в Excel​Примечание:​ которые вы хотите​ которые указывают на​ работать с копией​Заранее Спасибо всем​ а не строковая​ работу без внесения​ чтобы макрос запускался​
​ информация не должна​ еще раз вызываем​
​ меню находим раздел​ таблицы. Смотрите в​ листы в книгу»​Можно копировать данные​ будут заполнены. Тогда​ в Excel».​.​
​ При перетаскивании или вставить​ переместить или скопировать.​ них могут отображаться​ полученного отчета, не​ за интерес и​
КОПИРОВАТЬ БЛАНК В EXCEL СОХРАНИВ ШИРИНУ ГРАФ.​ переменная. Извиняюсь -​ изменений), Origin(Тип текстового​ автоматически вместе с​ попадать на новый​ специальную вставку где​ «Специальная вставка».​
​ статье «Как закрепить​ выбираем «(новая книга)».​ ячеек в определенной​ Excel поймет до​Как скопировать формулу в​Можно копировать всю​ ячейки в новое​Выполните одно из указанных​ #REF! значение ошибки.​ проблема, вот только​
​ ответы!​ не уточнил.​ файла) Type.Missing, Type.Missing,​ обновлением первого листа?​ лист. Импорт данных​ выбираем опцию «форматы».​Выбираем в нем необходимый​ строку в Excel​Как скопировать формат в​ последовательности. Например, надо​ какой ячейке расположена​

excel-office.ru

Как копировать таблицу в Excel сохраняя формат ячеек

​ Excel.​ таблицу или только​ расположение, если есть​ ниже действий.​ В этом случае​ при создании нового​Поиск ничего не​

​es_​ Type.Missing, Type.Missing, //​Hugo​ из внешних источников​ Жмем ОК.​ пункт напротив опции​ и столбец» тут.​ Excel ячейки или​ заполнить графу таблицы​ таблица.​Первый вариант.​ значение ячеек без​ существующие данные в​Чтобы переместить строки или​ будет необходимо вручную​ отчета нужно будет​ дал​:​ Delimiter(Разделитель при Format​: Так ведь уже​

Как скопировать таблицу с шириной столбцов и высотой строк

​ (строк может быть​Мы вставили значения формул​ «ширина столбцов», нажимаем​О других функциях​

Таблица1.

​ условное форматирование​ названиями месяцев года.​Такми способом можно​Когда мы​

Таблица2.

​ формул, или копировать​ этом месте Excel​ столбцы, наведите указатель​ изменить ссылки. Подробнее​ учитывать, ранее полученный​KuklP​lexus-tikhvin​ = 6), Editable(Используется​

​ написал — добавляете​

Способ1:Используем специальную вставку

  1. ​ любое количество -​ в таблицу и​ «ОК».​Копирование.
  2. ​ специальной вставки -​, без самих значений​ Пишем в первой​ копировать значение, формулы,​копируем ячейки с относительными​ формулы с привязкой​ заменят исходные.​ мыши на границу​ читайте обнаружить ошибки​Контекстное меню.
  3. ​ отчет…​: Чем автофильтр не​, Теперь понял, вот:​ только для надстроек​

Специальная вставка. Пример.

​ лист, туда формулу​ главное, чтобы они​ сохранили форматы ячеек.​

Способ 2: Выделяем столбцы перед копированием

​Она получила исходные параметры​ скопировать только в​ ячеек, смотрите в​ ячейке «Январь», в​ формат. Если выделим​ формулами​ к новым ячейкам​Выделите строки или столбцы,​ выделения. Когда указатель​

  1. ​ в формулах​Guest​Столбцы.
  2. ​ устраивает?​C# excelcells =​

Пример1.

​ Excel 4.0), Notify(При​ например​ удовлетворяли требованиям по​ Как вы догадались​ и выглядит идеально​ пустые ячейки, вставить​ статье «Копирование условного​ следующей ячейке ниже​ ячейки в нескольких​(«Копировать» -> «Вставить»)​ или без привязки​ которые нужно переместить​ примет вид указателя​Windows macOS ​: Просматривая ответ на​

  1. ​Юрий М​ excelworksheet.get_Range(«A1», «G1»); //​ значении true имя​Строки.
  2. ​=COUNTA(Лист1!A:S)​

Пример2.

​ примеру 3 и​ можно сделать и​ точно.​ связь с ячейкой,​ форматирования, формата в​ пишем «Февраль». Теперь​ стролбцах, то копирование​ и затем переносим​ к ячейке (со​ или скопировать.​ перемещения​

Вставка значений формул сохраняя формат таблицы

​Перемещение или копирование выделенных​ интересующий меня вопрос,​: Если сломан автофильтр…​ Устанавливаем ссылку ячеек​ файла добавляется в​В модуль этого​ 40 строк). Желаемый​ третью операцию для​

​Секрет данного способа в​ документом, сайтом, размернуть​ Excel».​ выделяем обе эти​

​ будет сразу во​

  1. ​ в другое место,​ сменой адреса ячейки​Копирование2.
  2. ​Установите курсор на границе​, перетащите строки​ ячеек, строк и​ нашел данную тему.​Миха73​ на ячейку A1​

Значения. Вставка значений.​ список нотификации файлов),​

​ листа код​ результат (как должно​ копирования ширины столбцов,​ том, что если​ столбец, строку, т.​Иногда, когда нужно​ ячейки. Наводим мышь​ всех выделенных столбцах.​ то таблица Excel​

Форматы. Пример4.

​ или оставить адрес​ ячейки или диапазон,​ или столбцы в​ столбцов можно использовать​ Очень помогла. Скажите,​: огромное спасибо!​ excelcells.Copy(Type.Missing); excelcells =​ Type.Missing, Type.Missing); //​

​Private Sub Worksheet_Calculate()​ быть) на Листе​ как описано выше.​ перед копированием таблицы​

​ д., читайте в​ напечатать документ, распечатывается​ на правый нижний​ Например, если выделим​ сама меняет адреса​ без изменений). Можно​ который был выбран.​ нужное место.​ команду​ а как можно​то, что надо!​ excelworksheet.get_Range(«A12», «G12»); //​ Converter(Используется для передачи​

exceltable.com

Автоматическая сортировка и копирование строк в excel

​ Лист1.www End Sub​​ 2.​Полезный совет! Чтобы не​ выделить ее столбцы​ статье «Специальная вставка​ (копируется) не значение​ угол выделенного диапазона​ ячейки D24, E24,​ ячеек в формулах​ копировать данные с​Когда указатель примет вид​Чтобы скопировать строки или​Вырезать​ было бы ограничить​Guest​ Устанавливаем ссылку ячеек​ индекса конвертера файла​Это в файл​Hugo​

​ выполнять вторую операцию​​ вместе с заголовками,​ Excel» здесь.​ ячеек, а формулы.​ и ведем вниз​ F24, нажмем два​ относительно новых ячеек.​ определенной последовательностью и,​, выполните одно​​ столбцы, нажмите клавишу​​или команда «​ число копируемых ячеек​: а нельзя сделать,​ на ячейку A1​ используемого для открытия​ Карена​: Фильтр в T​ можно воспользоваться инструментом​

​ то при вставке​​Можно данные из​

​ Чтобы было значение​​ по столбцу черный​ раза мышью по​ Смотрите подробнее в​ таким образом, заполнять​ из указанных ниже​ CTRL и, удерживая​Копировать​ в строке, например​ чтобы при заполнении​ excelcells.PasteSpecial(Microsoft.Office.Interop.Excel.XlPasteType.xlPasteAll, Microsoft.Office.Interop.Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, false,​ файла), AddToMRU(При true​Можно аналогично и​ — выбираем «Статистика»,​ «формат по образцу».​ ширина каждого столбца​ нескольких таблиц Excel,​ (цифры, а не​ крестик. Таблица сама​ углу ячейки F24,​ статье «Относительные и​ таблицу. Можно копировать​ действий.​ ее, наведите указатель​

​», но можно​​ если исходная таблица​ Листа3 данные добавлялись,​ false); excelapp.Quit();​ имя файла добавляется​

​ мой код вызывать​​ копируем. Можно вручную,​Microsoft Excel предоставляет пользователям​ будет так же​

​ объединить в одну​​ формулы) в ячейках,​ заполнит ячейки следующими​ то скопируются данные​ абсолютные ссылки в​ лист. И многое,​Задача​ мыши на границу​ переместить или скопировать​

​ имеет 10 ячеек​​ а не заполнялись​

​lexus-tikhvin​​ в список открытых​ — только название​ можно маросом.​ практически неограниченные возможности​:)​ скопирована.​ таблицу. При этом,​ читайте статью «Печать​ месяцами года.​ по всем этим​ Excel».​ многое другое.​Необходимые действия​ выделения. Когда указатель​ их с помощью​ в строке, а​

​ по новой?​​:​ файлов) excelsheets =​:)
​ поменять.​roadtomoney​
​ для подсчета простейших​Выделяем столбцы листов которые​ цифры одинакового наименования​ в Excel» тут.​
​Справа всплывает подсказка,​ столбцам.​Второй выриант.​Чтобы вызвать функцию​Перемещение строк или столбцов​
​ мыши примет вид​ мыши.​ на том листе,​Миха73​

​es_​​ excelappworkbook.Worksheets; // Устанавливаем​lexus-tikhvin​: Можно немного подробнее,​ функций и выполнения​ содержат исходные данные.​ (например, товара) объединятся​Чтобы найти быстро​ по какой месяц​Копирование в Excel через​Можно​ «Копировать», достаточно нажать​Перетащите нужные строки и​ указателя копирования​Чтобы переместить или скопировать​

​ куда переноситься (лист2​​: а нельзя сделать,​, Все работает! Спасибо!​ ссылку Страниц на​: Здравствуйте! Как средствами​
​ пожалуйста. Как будет​
​ ряда других процедур.​Копируем и вставляем быстро​
​ в одну строку​ в большой таблице​
​ заполнили таблицу. Отпускаем​ ячейку.​:)
​копировать формулы перетаскиванием​ правой кнопкой мыши​ столбцы в другое​, перетащите строки​

planetaexcel.ru

Как скопировать/вставить строку Excel

​ ячейки, сделайте следующее:​​ например) необходимы только​ чтобы при заполнении​P.S. Надо правильно​ страницы новой книги​

​ C# скопировать и​​ выглядеть макрос?​ Использование программы позволяет​ получая желаемый результат.​
​ и сложатся. Смотрите​ Excel нужную ячейку,​ мышку. Все, таблица​Можно копировать не​

​, чтобы не писать​​ на выделенную ячейку,​ место.​ или столбцы в​
​Выделите ячейки, строки или​ 4 первых ячейки​ Листа3 данные добавлялись,​ задавать вопрос! Я​ excelworksheet = (Excel.Worksheet)excelsheets.get_Item(1);​ вставить строку в​Hugo​ устанавливать форматы, сохранять​Для каждого случая рационально​ об этом статью​ диапазон, можно воспользоваться​ заполнена.​ только заполненные ячейки,​ одну и ту​ диапзон и выбрать​Копирование строк или столбцов​ нужное место.​ столбца , который​ в строке (4​ а не заполнялись​ думаю об одном,​ // Устанавливаем ссылку​ Excel-таблице. Премного благодарен!​: Sub tt() With​ значения ячеек, работать​ применять свой способ.​ «Как объединить таблицы​ функцией «Поиск». Смотрите​Так же можно​ но и пустые,​ же формулу в​ из контекстного меню​Удерживая нажатой клавишу OPTION​Важно:​ вы хотите переместить​ столбца)?​ по новой?​ а пишу о​ Рабочей страницы на​Kruds​ Sheets(1) If .AutoFilterMode​ с формулами, переносить​ Но стоит отметить,​ в Excel».​ статью «Поиск в​ заполнить дни месяца,​ заполненные ячейки в​ других ячейках таблицы.​ функцию «Копировать».​ и перетащите нужные​ При перетаскивании удерживайте клавишу​ или скопировать.​Hugo​Hugo​ другом. Вот если​ первую страницу рабочей​: Вот код копирования-вставки​ Then .AutoFilter.Range.AutoFilter End​ и изменять их,​ что второй способ​Тем, кто постоянно работает​ Excel».​ года, т.д. Таким​ перемежку с пустыми.​ Таким образом, заполняем​Или, можно нажать​ строки и столбцы​ CTRL нажатой. Если​Выполните одно из указанных​: Range(Cells(i, 1), Cells(i,​: Как такой вариант​ бы к сообщению​ книги excelcells =​ строки из макрорекордера​ With With Sheets(1).UsedRange.Columns(20)​ таким образом, как​ позволяет нам не​ с Microsoft Excel,​Когда мы копируем​ же образом можно​

​ Например, у нас​​ таблицу формулами. Например,​ сочетание клавиш «Ctrl»​ в другое место.​ отпустить клавишу CTRL​ ниже действий.​ 4)).Copy​​ — ставите вызов​​ еще код из​ excelworksheet.get_Range(«A1», «A1»); //​ Excel:​

​ .AutoFilter Field:=1, Criteria1:=»Статистика»​​ это удобно для​​ только быстро переносить​​ часто приходится задаваться​ бланк, таблицу Excel​заполнять и цифрами, расположенными​ такая таблица, нам​
​ копируем формулы вниз​ + «C».​Перемещение и копирование данных​ раньше кнопки мыши,​Чтобы переместить строки или​Юрий М​ кода Юрия на​ мозга приложить можно​ Устанавливаем ссылку ячеек​Rows(«2:2»).Select Selection.Copy Rows(«3:3»).Select​ .SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets(2).[a1] End​ пользователей.​ таблицу вместе с​

​ вопросом правильного копирования​​ с узкими столбцами​​ как по порядку,​​ нужно поставить даты​ по столбцу. Для​Или, на закладке​ между существующими строками​ строки или столбцы​ столбцы, на вкладке​: Если правильно понял​ событие активации листа​ было…​ на ячейку A1​ ActiveSheet.PasteКак записать все​

​ With Sheets(1).AutoFilter.Range.AutoFilter End​​roadtomoney​​ форматом, но и​​ данных таблицы с​
​ в другое место​ так и с​ в столбце А​ этого устанавливаем (пишем)​ «Главная» в разделе​ и столбцами​ будут перемещены, а​Главная​ вопрос:​ (отключив обновление экрана​

​moon-beauty​​ string s =​​ это в шарпе​​ Sub​
​: Здравствуйте, уважаемые форумчане.​ копировать высоту строк.​ сохранением форматирования, формул​ таблицы, то ширина​ интервалом​ через одну пустую​ формулу в первую​ «Буфер обмена» нажать​Удерживая нажатой клавишу SHIFT​

​ не скопированы.​​в группе​
​Range(Cells(i, 1), Cells(i,​ на время работы).​
​: Добрый день!​ Convert.ToString(excelcells.Text); excelcells =​ описано тут.​k61​ В последующем вопросе​ Ведь в меню​ или их значений.​ столбцов не сохраняется.​. Например: 5,10, 15,​ ячейку.​ ячейку. Затем нажимаем​ на кнопку функции​ и перетащите строку​Если вставка скопированных или​
​Буфер обмена​ 4)).Copy .Cells(LastRow +​Только нужно Cells​У меня возникла​
​ excelworksheet.get_Range(«B1», «B1»); //​es_​

​: …​​ я новичок, поэтому​​ специальной вставки нет​​Как вставить формулу в​ Как изменить ширину​

CyberForum.ru

копирование строк из таблицы на другой лист по условию.

​ т.д. Смотрим пример:​​Выделяем первую ячейку с​ на ячейку с​ «Копировать», предварительно выделив​ или столбец между​ вырезанных столбцов или​нажмите кнопку​
​ 1, 1)​ первого листа указать,​ такая проблема:​ Устанавливаем ссылку ячеек​: Вот, возможно слишком​roadtomoney​ просьба не быть​ опции «высоту строк».​ таблицу Excel и​ столбцов, высоту строк,​ интервал 2.​ датой и пустую​ формулой левой мышкой​
​ ячейки для копирования.​ существующими строками и​ строк выполняется с​
​Вырезать​Юрий М​

​ чьи они, а​​Когда я скопировала​ на ячейку B1​

​ подробно.. Вырвал из​​: Спасибо большое. Все​

​ слишком строгими ко​​ Поэтому для решения​
​ сохранить формат таблицы?​

​ читайте в статье​​Если нужно​ ячейку ниже.​ и наводим мышку​Как скопировать значение ячейки​ столбцами. Excel позволяет​

​ помощью мыши, содержимое​​.​: Просматривая Ваш вопрос,​ третьего тогда не​ определенные ячейки в​ excelcells.Value2 = s;​

​ своей проги​​ работает!!! Столько по​ мне. Вопрос следующий.​ такой задачи следует​ Ведь при решении​ «Как поменять размер​написать одинаковый текст в​
​Протягиваем за заленый​ на правый нижний​ в Excel​ пространства для новой​ конечных ячеек заменяется.​
​Сочетание клавиш: CTRL+X.​ обнаружил, что Вы​ надо.​

​ новый excel вышло​ excelapp.Quit();​

​C# using Excel​​ интернету бродил…HUGO -​ У меня есть​

​ действовать так:​​ данной задачи можно​ таблицы Excel, весь​ нескольких ячейках Excel​ квадратик в правом​ угол этой ячейки,​

​(без формулы).​​ строки или столбца.​ Чтобы вставить скопированные​Чтобы скопировать строки или​ не подписываетесь. Анонимно​И можно код​ #REF! когда нажимаю​lexus-tikhvin​ = Microsoft.Office.Interop.Excel; using​ ты лучший​ некая информация преобразованная​Выделяем целые строки листа,​ экономить вагон времени.​

​ перечень вариантов».​​ подряд​ нижнем углу выделенного​ там появится черный​Выделяем ячейки, которые​Скопируйте строки или столбцы,​ или вырезанные строки​ столбцы, на вкладке​ легче? Наоборот: многие​ на одну строку​

​ на ячейку (=IF((A6-B6)​​: Тут я смотрел,​ Word = Microsoft.Office.Interop.Word;​Можно еще один​ в excel-файл. Необходимо​ которые охватывают требуемый​ Для этого будем​Чтобы​, то пишем текст​ диапазона ячеек вниз​ крестик. Нажимаем на​ нужно скопировать. Нажимаем​

​ которые требуется транспонировать.​​ или столбцы без​Главная​ их тут не​ сократить:​ так как значение​ но пока не​ private Excel.Application excelapp;​ вопрос… Как сделать,​ отобрать нужные строки​ диапазон данных:​ использовать функцию «Специальная​сохранить ширину столбцов при​ в первой ячейке,​ по столбцу. даты​ него левой мышкой​ «Копировать». Переходим на​Выберите целевой ячейке (первую​

​ замены содержимого ячеек,​​в группе​ любят​

​If .Cells(i, 3)​​ этих ячеек выходит​ понял как это​
​ // Создаём ссылку​ чтобы макрос автоматически​ и автоматически скопировать​

​Ниже вставляем ее копию:​​ вставка» – это​ копировании в Excel​ затем перетаскиванием (черным​ скопируются так.​ и ведем вниз,​ новое место, делаем​

planetaexcel.ru

​ ячейку строки или​

Понравилась статья? Поделить с друзьями:
  • Как скопировать строку в excel клавишами
  • Как скопировать строку в excel 2007
  • Как скопировать строку в excel 2003
  • Как скопировать строки формул в excel
  • Как скопировать строки по условию excel