Макросы в excel скопировать строку - Word и Excel - помощь в работе с программами

Вырезание, перемещение, копирование и вставка ячеек (диапазонов) в VBA Excel. Методы Cut, Copy и PasteSpecial объекта Range, метод Paste объекта Worksheet.

Метод Range.Cut

Range.Cut – это метод, который вырезает объект Range (диапазон ячеек) в буфер обмена или перемещает его в указанное место на рабочем листе.

Синтаксис

Параметры

Параметры	Описание
Destination	Необязательный параметр. Диапазон ячеек рабочего листа, в который будет вставлен (перемещен) вырезанный объект Range (достаточно указать верхнюю левую ячейку диапазона). Если этот параметр опущен, объект вырезается в буфер обмена.

Описание

Destination

Необязательный параметр. Диапазон ячеек рабочего листа, в который будет вставлен (перемещен) вырезанный объект Range (достаточно указать верхнюю левую ячейку диапазона). Если этот параметр опущен, объект вырезается в буфер обмена.

Для вставки на рабочий лист диапазона ячеек, вырезанного в буфер обмена методом Range.Cut, следует использовать метод Worksheet.Paste.

Метод Range.Copy

Range.Copy – это метод, который копирует объект Range (диапазон ячеек) в буфер обмена или в указанное место на рабочем листе.

Синтаксис

Параметры

Параметры	Описание
Destination	Необязательный параметр. Диапазон ячеек рабочего листа, в который будет вставлен скопированный объект Range (достаточно указать верхнюю левую ячейку диапазона). Если этот параметр опущен, объект копируется в буфер обмена.

Описание

Destination

Необязательный параметр. Диапазон ячеек рабочего листа, в который будет вставлен скопированный объект Range (достаточно указать верхнюю левую ячейку диапазона). Если этот параметр опущен, объект копируется в буфер обмена.

Метод Worksheet.Paste

Worksheet.Paste – это метод, который вставляет содержимое буфера обмена на рабочий лист.

Синтаксис

Worksheet.Paste (Destination, Link)

Метод Worksheet.Paste работает как с диапазонами ячеек, вырезанными в буфер обмена методом Range.Cut, так и скопированными в буфер обмена методом Range.Copy.

Параметры

Параметры	Описание
Destination	Необязательный параметр. Диапазон (ячейка), указывающий место вставки содержимого буфера обмена. Если этот параметр не указан, используется текущий выделенный объект.
Link	Необязательный параметр. Булево значение, которое указывает, устанавливать ли ссылку на источник вставленных данных: True – устанавливать, False – не устанавливать (значение по умолчанию).

В выражении с методом Worksheet.Paste можно указать только один из параметров: или Destination, или Link.

Для вставки из буфера обмена отдельных компонентов скопированных ячеек (значения, форматы, примечания и т.д.), а также для проведения транспонирования и вычислений, используйте метод Range.PasteSpecial (специальная вставка).

Примеры

Вырезание и вставка диапазона одной строкой (перемещение):

Range(«A1:C3»).Cut Range(«E1»)

Вырезание ячеек в буфер обмена и вставка методом ActiveSheet.Paste:

Range(«A1:C3»).Cut

ActiveSheet.Paste Range(«E1»)

Копирование и вставка диапазона одной строкой:

Range(«A18:C20»).Copy Range(«E18»)

Копирование ячеек в буфер обмена и вставка методом ActiveSheet.Paste:

Range(«A18:C20»).Copy

ActiveSheet.Paste Range(«E18»)

Копирование одной ячейки и вставка ее данных во все ячейки заданного диапазона:

Range(«A1»).Copy Range(«B1:D10»)

Источник

Despite many posts I have looked through being of along the same lines as my question, none of the answers satisfy what I am looking for. If you can link me to one I’d gladly read it.

I have a workbook with worksheets. For simplicity, let’s say my workbook has a worksheet. And in my worksheet which is called «Sheet1», there is data in cells A1 to A4.

What I want my VBA code to do is:

Copy row 1 (or specifically cells A1 to A4) of Workbook ‘A’ into Range variable ‘myRange’
Create a new workbook, let’s call this one Workbook ‘B’
Give Workbook ‘B’s default «sheet1» a new name to «Test Name»
Open Workbook ‘B’ (though I realise that VBA code «Workbooks.Add» opens a new book so this step may be redundant since Workbooks.Add covers half of point 2 and 3)
Paste ‘myRange’ into first row of ‘Workbook B’
Save ‘Workbook B’ with name «Test Book» and a timestamp enclosed in square brackets. The file must also be of the file extension «xls»
Close ‘Workbook B’ and return to ‘Workbook A’

What I have so far is this:

Sub OpenAndSaveNewBook()
    'Declarations
    Dim MyBook As String
    Dim MyRange As Range
    Dim newBook As Workbook

    'Get name of current wb
    MyBook = ThisWorkbook.Name
    Set MyRange = MyBook.Sheets("Sheet1").Range("A1,F1")

    'Create/Open new wb
    newBook = Workbooks.Add

    'Save new wb with XLS extension
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & "TEST-BOOK", _
                            FileFormat:=xlNormal, CreateBackup:=False

    '===NOTE: BEFORE THE FOLLOWING RUNS I NEED TO PERFORM ACTIONS ON CELLS VIA VBA ON
    '===WORKBOOK 'A'. DOES THE NEWLY CREATE WORKBOOK BECOME THE PRIMARY/ACTIVE WORKBOOK
    '===? AND SO THEN DO I NEED TO ACTIVATE WORKBOOK 'A'? 
    ActiveWorkbook.Close savechanges:=True

    'Return focus to workbook 'a'
    MyBook.Activate
End Sub

As you can see, I am lacking the code that will handle:

the pasting of my copied data to the new workbook
the changing of the new workbook’s sheet1 name to something else
adding a timestamp to the filename string on save

Lastly, I have included a question in my code as I think I may have a misunderstanding of the ActiveWorkbook method. AFAIK when the code «Workbooks.Add» runs this becomes the Active Workbook, i.e. one with the focus. Does this effect how the VBA code running on Workbook ‘A’? Does this mean that if I wanted to add code to manipulate cells of Workbook ‘A’ then I would need to use «MyBook.Activate» where ‘MyBook’ holds the string of Workbook ‘A’s actual title?

Any help will be greatly appreciated.

Thanks,
QF

Источник

Содержание

VBA Copy / Paste Rows & Columns
Rows & Columns – Paste vs. Insert
Copy & Paste Over Existing Row / Column
Copy & Insert Row / Column
Copy Entire Row
Cut and Paste Rows
Copy Multiple Rows
VBA Coding Made Easy
Copy Entire Column
Cut and Paste Columns
Copy Multiple Columns
Copy Rows or Columns to Another Sheet
Cut Rows or Columns to Another Sheet
VBA Code Examples Add-in
VBA Excel. Вырезание, копирование и вставка ячеек (диапазонов)
Метод Range.Cut
Синтаксис
Параметры
Метод Range.Copy
Синтаксис
Параметры
Метод Worksheet.Paste
Синтаксис
Параметры
Примеры
43 комментария для “VBA Excel. Вырезание, копирование и вставка ячеек (диапазонов)”
VBA Excel. Буфер обмена (копирование, вставка, очистка)
Копирование и вставка ячеек
Буфер обмена и переменная
Объект DataObject
Копирование текста из переменной в буфер обмена
Копирование текста из буфера обмена в переменную
Очистка буфера обмена
Функции для работы с буфером обмена
8 комментариев для “VBA Excel. Буфер обмена (копирование, вставка, очистка)”
Метод Range.Copy (Excel)
Синтаксис
Параметры
Возвращаемое значение
Пример
Поддержка и обратная связь
Способы VBA работы с ячейками Excel
Копировать и вставить: наиболее распространенное действие Excel
Вставить данные ниже последней заполненной строки

VBA Copy / Paste Rows & Columns

In this Article

This tutorial will teach you how to copy (or cut) entire Rows or Columns using VBA. We cover copying and pasting ranges of cells in another article.

First we will show you how to paste or insert copied rows/columns and discuss the differences. Then we will show you all of the different ways to references rows and columns when copying or cutting.

Rows & Columns – Paste vs. Insert

When pasting rows and columns you have two options: You can paste over the existing row (or column) or you can insert a new row (or column).

Let’s look at the difference…

Copy & Paste Over Existing Row / Column

This will copy row 1 and paste it into the existing row 5:

This will copy column C and paste it into column E:

Copy & Insert Row / Column

Instead you can insert the copied row or column and shift the existing rows or columns to make room.

This will copy row 1 and insert it into row 5, shifting the existing rows down:

This will copy column C and insert it into column E, shifting the existing columns to the right:

Copy Entire Row

Below we will show you several ways to copy row 1 and paste into row 5.

Cut and Paste Rows

Simply use Cut instead of Copy to cut and paste rows:

Copy Multiple Rows

Here are examples of copying multiple rows at once:

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Copy Entire Column

You can copy entire columns similarily to copying entire rows:

Cut and Paste Columns

Simply use Cut instead of Copy to cut and paste columns:

Copy Multiple Columns

Here are examples of copying multiple columns at once:

Copy Rows or Columns to Another Sheet

To copy to another sheet, simply use the Sheet Object:

Cut Rows or Columns to Another Sheet

You can use the exact same technique to cut and paste rows or columns to another sheet.

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

Источник

VBA Excel. Вырезание, копирование и вставка ячеек (диапазонов)

Метод Range.Cut

Синтаксис

Параметры

Параметры	Описание
Destination	Необязательный параметр. Диапазон ячеек рабочего листа, в который будет вставлен (перемещен) вырезанный объект Range (достаточно указать верхнюю левую ячейку диапазона). Если этот параметр опущен, объект вырезается в буфер обмена.

Описание

Destination

Метод Range.Copy

Синтаксис

Параметры

Параметры	Описание
Destination	Необязательный параметр. Диапазон ячеек рабочего листа, в который будет вставлен скопированный объект Range (достаточно указать верхнюю левую ячейку диапазона). Если этот параметр опущен, объект копируется в буфер обмена.

Описание

Destination

Метод Worksheet.Paste

Синтаксис

Параметры

Параметры	Описание
Destination	Необязательный параметр. Диапазон (ячейка), указывающий место вставки содержимого буфера обмена. Если этот параметр не указан, используется текущий выделенный объект.
Link	Необязательный параметр. Булево значение, которое указывает, устанавливать ли ссылку на источник вставленных данных: True – устанавливать, False – не устанавливать (значение по умолчанию).

В выражении с методом Worksheet.Paste можно указать только один из параметров: или Destination, или Link.

Примеры

Вырезание и вставка диапазона одной строкой (перемещение):

Вырезание ячеек в буфер обмена и вставка методом ActiveSheet.Paste:

Копирование и вставка диапазона одной строкой:

Копирование ячеек в буфер обмена и вставка методом ActiveSheet.Paste:

Копирование одной ячейки и вставка ее данных во все ячейки заданного диапазона:

43 комментария для “VBA Excel. Вырезание, копирование и вставка ячеек (диапазонов)”

Странно, что не рассмотрено копирование ячеек, которые Cells.
Например, следующая строка копирует ячейку A1 в B2

а эта делает тоже самое, но демонстрирует,
как можно добавить размер и смещение:

Здравствуйте!
Скажите, как можно копировать на Лист 1, а вставить на Лист 2 диапазон ячеек целиком, либо отсортированный по 1 признаку диапазон(например по какому-то определенному значению, скажем, числу «500» в одном столбце Листа 1)?

Привет, Максим!
Вот пример сортировки таблицы по значению 500 в первом столбце на «Лист6» и копирования диапазона с «Лист6» на «Лист4» :

Спасибо большое, только я, наверно, неправильно описал ситуацию.
Сперва из эталонной таблицы Лист 1 копируем весь список на существующий Лист4.
Затем, пропускаем шапку, и, начиная со строки7, уже на Лист4 ищем строку, у которой в столбце 5 стоит число 500.
Вырезаем эту строку и вставляем на позицию строки 7. т.е первая после шапки.
Ищем следующую строку — вырезаем, потом вставляем на позицию строки 7+1=8 и т.д.
В итоге оставим только те строки, у которых в столбце 5 стоит число «500», остальные удаляются строки.

(пробовал менять местами строки в предыдущем коде, ошибок нет, копирует, переходит на лист 4, но строки на нем не удаляет, циклы пошагово проходят, но ничего не изменяется.)

Источник

VBA Excel. Буфер обмена (копирование, вставка, очистка)

Работа с буфером обмена в VBA Excel: копирование и вставка ячеек, копирование текста из переменной, очистка буфера обмена. Объект DataObject. Примеры.

Копирование и вставка ячеек

Копирование содержимого и форматов ячеек (диапазона) в буфер обмена осуществляется методом Range.Copy, а вставка – методом Worksheet.Paste:

При вставке диапазона ячеек из буфера обмена на рабочий лист достаточно указать верхнюю левую ячейку места (диапазона) вставки.

Для вставки из буфера обмена отдельных компонентов скопированных ячеек (значения, формулы, примечания и т.д.), а также применения к диапазону транспонирования или вычислений, используется метод Range.PasteSpecial (специальная вставка).

Буфер обмена и переменная

Передача текста между переменной и буфером обмена в VBA Excel осуществляется с помощью объекта DataObject. Стоит иметь в виду, что на некоторых компьютерах DataObject может некорректно работать при открытом окне проводника.

Объект DataObject

Подробнее об элементе DataObject вы можете прочитать на сайте разработчиков.

Методы объекта DataObject:

Метод	Описание
GetFromClipboard	Копирует данные из буфера обмена в DataObject
GetText	Извлекает текстовую строку из объекта DataObject в указанном формате
PutInClipboard	Перемещает данные из DataObject в буфер обмена
SetText	Копирует текстовую строку в DataObject, используя указанный формат

Копирование текста из переменной в буфер обмена

Копирование текста из буфера обмена в переменную

Очистка буфера обмена

Специального метода для очистки буфера обмена в VBA Excel нет. Для решения этой задачи можно использовать выход из режима вырезания-копирования:

Следующий пример демонстрирует вставку скопированной ячейки «A1» в ячейки «A2» и «A3» и отсутствие вставки в ячейки «A4» и «A5» после строки Application.CutCopyMode = False :

Оператор On Error Resume Next необходим для обработки (пропуска) ошибки, возникающей при вставке из пустого буфера обмена.

Функции для работы с буфером обмена

В некоторых системах, начиная с Windows 8, метод DataObject.PutInClipboard не работает правильно: если открыт хотя бы один экземпляр Проводника (папка), в буфер обмена записываются два квадратика. Следующие функции должны решить эту проблему:

Пример использования функций для работы с буфером обмена:

8 комментариев для “VBA Excel. Буфер обмена (копирование, вставка, очистка)”

Код — не работает ▼

В А1 вставляется какой-то непечатаемый символ и всё. При переходе к другому приложению и попытке вставить содержимое буфера — фиаско.

Добрый день, Михаил!
Такое встречается, начиная с Windows 8, когда открыта хотя бы одна папка в Проводнике. Я добавил в статью функции для работы с буфером обмена, они должны работать.

В Win 8.1 такой проблемы не наблюдаю, уж по всякому погонял, пытаясь вызвать ошибку — всегда правильно отрабатывает ))
А за статью большое спасибо!

Нашёл такую информацию на случай получения ошибки относительно типа данных DataObject.
Чтобы заработал тип данных «DataObject» нужно подключить инструмент «Microsoft Forms Object Libraries». Для этого необходимо выполнить действия в редакторе макросов Эксель:
1. Открыть Tools/References;
2. Через кнопку Browse открыть файл C:WINDOWSSYSTEM32FM20.DLL. Файл «FM20.DLL» может оказаться в другой подпапке Windows, поискать по названию. Может быть в «SysWOW64» или в «System».

Источник

Метод Range.Copy (Excel)

Копирует диапазон в указанный диапазон или в буфер обмена.

Хотите создавать решения, которые расширяют возможности Office на разнообразных платформах? Ознакомьтесь с новой моделью надстроек Office. Надстройки Office занимают меньше места по сравнению с надстройками и решениями VSTO, и вы можете создавать их, используя практически любую технологию веб-программирования, например HTML5, JavaScript, CSS3 и XML.

Синтаксис

выражение.Copy (Destination)

выражение: переменная, представляющая объект Range.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Destination	Необязательный	Variant	Указывает новый диапазон, в который будет скопирован заданный диапазон. Если этот аргумент опущен, Microsoft Excel копирует диапазон в буфер обмена.

Возвращаемое значение

Пример

В следующем примере кода копируются формулы ячеек A1:D4 с листа Sheet1 в ячейки с E5:H8 на листе Sheet2.

В приведенном ниже примере кода проверяется значение столбца D для каждой строки на листе Sheet1. Если значение в столбце D равно «A», вся строка копируется на лист SheetA в следующую пустую строку. Если значение равно «B», строка копируется на лист SheetB.

Поддержка и обратная связь

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

Источник

Способы VBA работы с ячейками Excel

Итог: Изучите 3 различных способа копирования и вставки ячеек или диапазонов в Excel с помощью макросов VBA. Это серия из трех частей, также вы сможете скачать файл, содержащий код.

Уровень мастерства: Начинающий

Копировать и вставить: наиболее распространенное действие Excel

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

Есть несколько различных способов выполнить эту задачу, и устройство записи макросов не всегда дает вам наиболее эффективный код VBA.

В следующих трех видео я объясняю:

Самый эффективный метод для простого копирования и вставки в VBA.
Самый простой способ вставить значения.
Как использовать метод PasteSpecial для других типов вставок.

Видео № 1: Простой метод «Копировать-вставить»

Видео лучше всего просматривать в полноэкранном HD.

Видео № 2: Простой способ вставить значения

Видео № 3: Метод PasteSpecial

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

Один из самых распространенных вопросов, которые я получаю о копировании и вставке с помощью VBA: «Как мне вставить данные в конец таблицы? «

Сначала нужно найти последнюю заполненную строку данных, а затем скопировать и вставить ниже неё.

Источник

Medium

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

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

Здравствуйте, уважаемые форумчане! Помогите пожалуйста.

Имеется таблица Excel с данными (заявками клиента), где каждая строка это отдельная заявка (название клиента, адрес, телефон, и т.д.).
На данный момент при оформлении новой заявки от уже имеющегося клиента (есть в таблице) я произвожу такие действия:
— с помощью «CTRL+F» делаю поиск по названию клиента или адресу, копирую строку с предыдущей заявкой этого клиента.
— нажатием «CTRL+стрелка вниз» перехожу к последней записи в таблице.
— еще раз нажимаю «стрелку вниз» и вставляю скопированную строку.
— исправляю необходимые данные в заявке.

Хотелось бы автоматизировать эти монотонные тыканья по клавиатуре, но я к сожалению очень далек от макросов и VBA.
Думаю для разбирающихся не составит труда составить код.

Изменено: Medium — 07.07.2017 10:16:02

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	Здравствуйте. Нужен файл-пример, достаточно 20-50 строк (не надо весь рабочий файл). Покажите, что есть и что хотите получить на выходе. «..Сладку ягоду рвали вместе, горьку ягоду я одна.»

Ігор Гончаренко

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

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

07.07.2017 10:50:14

Цитата
Medium написал: — исправляю необходимые данные в заявке.

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

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Medium

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

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

Владимир, в приложении файл с несколькими записями.

Я хочу добавить в файле кнопку, к которой будет привязан макрос, который выделенную мной строку скопирует в первую свободную строку снизу. Например, в моем файле получится, что скопированную строку мы вставим в сроку №8 (она первая пустая).

Владимир

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

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

07.07.2017 11:21:53

Цитата
Владимир написал: покажите, что есть и что хотите получить на выходе.

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

kuklp

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

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

E-mail и реквизиты в профиле.

07.07.2017 11:54:32

Код
Public Sub www() Cells(ActiveCell.Row, 1).Resize(, 9).Copy Cells(Rows.Count, 1).End(xlUp)(2) End Sub

Я сам — дурнее всякого примера! …

Medium

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

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

07.07.2017 12:27:23

Я сделал следующее своими кривыми руками:

Код

Sub Скопировать_вставить()

' Скопировать_вставить макрос


    With ActiveCell
    Range(Cells(.Row, 1), Cells(.Row, 10)).Copy
End With
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
    ActiveCell(2).Activate
    ActiveSheet.Paste

End Sub

В принципе работает.
Ошибка только в случае если я выделяю последнюю занятую ячейку, так как в этом случае ActiveCell(2).Activate не возможен.

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

kniga_zayavok.xlsm (64.78 КБ)

Medium Пользователь Сообщений: 8 Регистрация: 07.07.2017	kuklp, спасибо! У вас получилось гораздо компактнее и без ошибки что есть в моем макросе! Изменено: Medium — 07.07.2017 12:38:20

Владимир

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

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

07.07.2017 12:56:32

В этом случае вообще кнопка не нужна. Только макрос нужно поместить в модуль листа.

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lstr&
If Target.Cells.Count <> 10 Then Exit Sub  'если выделено НЕ 10 ячеeк, то выходим
    lstr = Cells(Rows.Count, 1).End(xlUp).Row 'получаем номер последней заполненной строки
    If Not Intersect(Target, Range([A4], Cells(lstr, 10))) Is Nothing Then
        Application.EnableEvents = False
            Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Cells(Rows.Count, 1).End(xlUp)(2)
        Application.EnableEvents = True
    End If
End Sub

Изменено: Владимир — 07.07.2017 13:40:16

«..Сладку ягоду рвали вместе, горьку ягоду я одна.»

jeka-irbis

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

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

#10

23.02.2023 13:37:35

Цитата
написал: Public Sub www() Cells(ActiveCell.Row, 1).Resize(, 9).Copy Cells(Rows.Count, 1).End(xlUp)(2)End Sub

Спасибо, подходит под мою задачу)
Подскажите, пожалуйста, есть ли вариант макроса для копирования в конец таблицы НЕСКОЛЬКО выделенных (последовательно) строк?

Источник

How to copy and paste data using a Macro in Excel. I’ll show you multiple ways to do this, including across worksheets and workbooks.

Sections:

Simple Copy/Paste

Copy Entire Range

Copy between Worksheets

Copy between Workbooks

Notes

Simple Copy/Paste

Range("A1").Copy Range("B1")

This copies cell A1 to cell B1.

Range(«A1»).Copy is the part that copies the cell.

Range(«B1») is the cell where the data will be copied.

This is a simple one line piece of code and it’s very easy to use.

Notice that there is a space between these two parts of the code.

Copy Entire Range

Range("A1:A5").Copy Range("B1:B5")

Range(«A1:A5»).Copy is the part that copies the range.

Range(«B1:B5») is the range where the data will be copied.

You can also write it like this:

Range("A1:A5").Copy Range("B1")

Notice that the range to where you will copy the data has only a reference to cell B1.

You only have to reference the very first cell to which the range will be copied and the entire range will copy in the cells below there.

NOTE: if you do it like this, you may end up overwriting data and Excel will not give you a warning about this; the data will simply be filled down as far as it needs to go to copy the first range.

Copy between Worksheets

Sheets("Sheet1").Range("A1").Copy Sheets("Sheet2").Range("B1")

This follows the same pattern as the above examples except that we need to tell the macro from which sheet we want to get the data and to which sheet we want to copy the data.

Sheets(«Sheet1»). is placed in front of the first range and that means to get the data from Sheet1, which is the name of a worksheet in the workbook.

Sheets(«Sheet2»). is placed in front of the range to which we want to copy the data and Sheet2 is the name of the worksheet where the data will be copied.

Copy between Workbooks

Workbooks("Copy and Paste Data using Macro VBA in Excel.xlsm").Sheets("Sheet1").Range("A1").Copy Workbooks("Copy and Paste Data using Macro VBA in Excel.xlsm").Sheets("Sheet3").Range("A1")

Here, we follow the above examples and, this time, add a reference to the workbooks from which we want to get the data and to which we want to place the data.

Workbooks(«Copy and Paste Data using Macro VBA in Excel.xlsm»). is the code that says in which workbook we want to place the data. Copy and Paste Data using Macro VBA in Excel.xlsm is the name of the workbook. In this example I used this for both parts, the workbook from which the data comes and where it goes. This allows you to run this macro within a single workbook and still show you how it works. In a real-world example, the first part contains the name of the workbook where you get the data from and the second contains the name of the workbook where you want to place the data.

Read this tutorial to copy values from another workbook, even if it’s closed.

Notes

All examples in the attached workbook have been commented out. Simply remove the single quote from the line of code you want to test and then run the macro.

Download the attached file to get these examples in Excel.

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!

Источник

Господа нужен маленький макрос…
Скопировать текущую строку на другой лист(АрхивИзм) 1-ю непустую…?

А что значит текущую строку? Имеется ввиду выделенная строка или конкретный номер строки? Чем лучше объясняете, тем быстрее помогут.

Sub Copy_Paste()
Dim iRow As Range
Set iRow = Worksheets(«Лист1»).Rows(1)
Worksheets(«Лист2»).Rows(1).Value = iRow.Value
End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453

Спасибо но мне надо сначала найти 1-ю не пустую на листе 2…

Цитата: Микки от 17.11.2008, 10:43
Нужен маленький макрос…
Скопировать текущую строку на другой лист

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

.Rows(n & ":" & n).Insert 'вставляем перед
… и раскомментируйте остальные.

Sub Copy_Add_or_Paste_Row() Application.ScreenUpdating = 0 ActiveCell.EntireRow.Copy With Sheets("Лист2") While i = 0 n = n + 1 i = Len(Join(Application.Transpose(Application.Transpose(.Range(.Cells(n, _ 1), .Cells(n, 256)))), "")) Wend .Rows(n & ":" & n).Insert 'вставляем перед ' tmp = ActiveSheet.Index ' ' .Select 'вставить ' .Rows(n & ":" & n).Select 'строку ' ActiveSheet.Paste 'с заменой ' Sheets(tmp).Select ' Application.CutCopyMode = False End With Application.ScreenUpdating = 1 End Sub

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Как всегда в точку, но 1 «но» у меня там заголовочек есть на 3-ей строке мне бы их ПОСЛЕ заголовка вставлять…

И еще одна фигня выявилась мне не строку надо а только 6 первых столбцов это как сделать…?

Короче вопрос Выглядит так я выбираю строку включаю форму…
По кнопке «изменить» надо скопировать текущие 6 столбцов строки в «АрхивИзм» после заголовка а лучше в конец файла… и добавляю в седьмом столбце «Было»
Потом вношу изменения и копирую новую версию 6 столбцов этой строки следом туда-же….. в 7-м пишу «Стало»
столбец 8 зарезервирован под ввод системной даты изменения..

Цитата: Микки от 17.11.2008, 14:58
надо скопировать текущие 6 столбцов строки

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

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Цитата: Микки от 17.11.2008, 19:24
Не совсем то, что я хотел…

Поменял кое-что: ключевой столбец с первого на второй; кнопочку переместил с рабочего листа на форму. Что именно вызывает у Вас проблему?

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Вобщем все хорошо и почти понятно… Ваша идея с ключевым столбцом тоже..
Но была логика другая немного. Архив на пуст в нем отслеживаются только изменения внесенные на листе данные!, поэтому никого сравнивать не надо. Я закладывал в форму следющую логику нажал человек кнопочку Изменить.. скопировалось то что «Было» , внес изменения то что «Стало» и дата этого изменения, хорошо бы еще Юсера подоткнуть 9-й колонкой , но этого я пока не умею. Та же ситуация будет с режимом удалить строка скидывается в архив, а потом удаляется. Я попробую адаптировать Ваш код под себя если не получится спрошу… Спасибо. Как трудно писать грамотно..

Цитата: Микки от 18.11.2008, 17:02
Я закладывал в форму следющую логику:
нажал человек кнопочку Изменить…
скопировалось то что «Было»,
внес изменения
то что «Стало» и дата этого изменения.
Та же ситуация будет с режимом удалить строка скидывается в архив, а потом удаляется.

Можно поподробнее – каким образом происходит изменение. Наводящие вопросы:

1) Юзер меняет данные непосредственно в ячейках или производит все действия из формы?
2) Каким образом срабатывает событие «изменение закончено». Пользователь давит ещё на кнопочку, может нужна реакция на закрытие формы?
3) То, что строки в архиве нарастают по две штуки, а не перетираются это верно?

ЦитироватьКак трудно писать грамотно…

Если грамотность даётся трудно, то скорее всего Вы делаете что-то не так… Например, прописную букву можно ввести несколькими способами, и самый верный из них – удерживать Shift мизинцем свободной руки. Но, как бы то ни было, это сыграет Вам хорошую службу, ведь Вы взялись за VBA, а там ляпы чреваты неработоспособностью кода.

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Цитата: Шпец Докапыч от 18.11.2008, 17:59

Цитата: Микки от 18.11.2008, 17:02
Я закладывал в форму следющую логику:
нажал человек кнопочку Изменить…
скопировалось то что «Было»,
внес изменения
то что «Стало» и дата этого изменения.
Та же ситуация будет с режимом удалить строка скидывается в архив, а потом удаляется.

Можно поподробнее – каким образом происходит изменение. Наводящие вопросы:

1) Юзер меняет данные непосредственно в ячейках или производит все действия из формы?

2) Каким образом срабатывает событие «изменение закончено». Пользователь давит ещё на кнопочку, может нужна реакция на закрытие формы?

3) То, что строки в архиве нарастают по две штуки, а не перетираются это верно?

ЦитироватьКак трудно писать грамотно…

Все действия выполняются формой и работают по текущей строке.
1.Нажатие ИЗМЕНИТЬ сразу вносит в архив строку «Было»
После этого вызывается форма для заполнения куда и вносяться изменения (хотя он гад может ничего и не изменить, но черт с ним он же не идиот) По окончании кнопка ЗАПОЛНИТЬ изменяет запись в листе и копирует данные в архив «Стало» Т.е. две записи.
2.Нажатие УДАЛИТЬ просто вносит текущую запись в архив с пометкой «удалено» дата подпись(кстати не знаю как вставить Юзера в столбец 9 архива), и удаляет текущую строку.
3. Режим «Добавить производителя работает» он в этом листе ничего не меняет.
По моему ответил на все вопросы.. кстати во вложенном мной файле Обе формы есть
Спасибо.

Можно вопрос по этой же теме

Мне надо скопировать список с листа1, все строки на лист 2 но чтобы при копировании строки в которых единица товара была 1шт скопировалась 1 раз…а где более одного 2,3,5,10 шт и тд. скопировалось 2,3,5,10 и более раз, и у каждой такой строки значение шт. стало единицей.

Путей к вершине — множество. Этот один из многих!

Источник

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

Копирование строки из одной книги в другую

05.10.2011, 17:50. Показов 52429. Ответов 19

Необходимо скопировать строку под номером 10 с активного листа активной книги, открыть книгу например С:test.xls (с одним листом) и вставить скопированные данные в 5 строку.
Помогите пожалуйста. Темы о копировании строк на форуме нашел, но не разобрался что к чему.
Заранее благодарен.

Памирыч

Почетный модератор

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

05.10.2011, 18:38

Visual Basic

Dim I As Integer
For I = 1 To 20
Cells(5, I).Value = Cells(10, I).Value
Next I

Но это уже совсем по-самодельному

Хотя мне это нравится больше, чем

Visual Basic

Rows("10:10").Copy
Rows("5:5").Select
    ActiveSheet.Paste
Application.CutCopyMode = False

nt_dmn

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

05.10.2011, 18:43

[ТС]

я делал очень похоже, но на строку

Visual Basic

1	ActiveSheet.Paste

ругается, в чем причина не пойму…

Памирыч

Почетный модератор

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

05.10.2011, 18:45

Visual Basic

1	Rows("5:5").Select

Это присутствует?

nt_dmn

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

05.10.2011, 18:48

[ТС]

Присутствует, а ругается потому что нечего вставлять, значит не копирует оператор

Visual Basic

1	Rows("10:10").Copy

, может перед ним тоже поставить

Visual Basic

1	Rows("10:10").Select

Добавлено через 1 минуту
Выделило, но опять ничего не скопировало, буфер пустой

Почетный модератор

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

05.10.2011, 18:51

Прикрепил книгу

nt_dmn

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

06.10.2011, 10:23

[ТС]

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

Добавлено через 15 часов 18 минут
Вот собственно кусок кода:

Visual Basic

'открываем книгу
Workbooks.Open(incoming)
'копируем строку
        Rows("10:10").Select
        Rows("10:10").Copy
        'открываем сводный отчет
        Workbooks.Open (report)
        'выбираем номер начальной строки для поиска последней записи
        nss = 2
        'ищем последнюю запись
        Do While nss <> "1"
            If Range("B" & nss).Value <> "" Then
                'увеличиваем номер строки на 1
                nss = nss + 1
            Else
                'вставляем строку из буфера
                Rows("5:5").Select
                ActiveSheet.Paste
                'присваиваем переменной номера строки значение конца цикла
                nss = 1
            End If
        Loop

Для этого поста я присвоил статичную величину при вставке (5 строка), а вообще надо вставлять в строку nss.
В чем моя ошибка может быть?

~~Busine2009~~

Заблокирован

06.10.2011, 15:43

Visual Basic

Sub Процедура1()
'Обращаться с книгами будем через переменные
'(кода меньше писать и не промахнёшься мимо нужной книги)
Dim Исходная As Excel.Workbook, Конечная As Excel.Workbook
Dim nss As Long
Set Исходная = ActiveWorkbook
'открываем книгу
Set Конечная = Workbooks.Open("C:Documents and SettingsПользовательРабочий столКнига2.xlsx")
'копируем строку
        Исходная.Worksheets(1).Rows("10:10").Copy
        'выбираем номер начальной строки для поиска последней записи
        nss = 2
        'ищем последнюю запись
        Do While Конечная.Worksheets(1).Range("B" & nss).Value <> ""
            'увеличиваем номер строки на 1
            nss = nss + 1
        Loop
        'вставляем строку из буфера
        Конечная.Worksheets(1).Rows(nss).PasteSpecial
        Конечная.Close SaveChanges:=True
End Sub

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

06.10.2011, 16:11

[ТС]

Так работает, спасибо!

Добавлено через 24 минуты
А ещё нюансик один остался… как добиться что бы происходило копирование только значений, а формулы не копировались в новый документ?

~~Busine2009~~

Заблокирован

06.10.2011, 16:17

Visual Basic

1	Конечная.Worksheets(1).Rows(nss).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

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

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

06.10.2011, 16:48

[ТС]

Спасибо огромное, я просто не спец, сижу разбираюсь, второй день как с vba связался

Добавлено через 23 минуты

Сообщение от Busine2009

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

…а что такое макрорекодер?

~~Busine2009~~

Заблокирован

06.10.2011, 17:01

nt_dmn,
Excel какого года у вас?

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

06.10.2011, 17:04

[ТС]

Сейчас в 2007 сижу…
А не подскажете ещё где мне отключить оповещение при закрытии файлов «в буфере обмена осталось.. бла бла бла» Чет все настройки перерыл, нету…

~~Busine2009~~

Заблокирован

06.10.2011, 17:16

Сообщение от nt_dmn

…а что такое макрорекодер?

Круглая кнопка — Параметры Excel — Основные — Показывать вкладку «Разработчик на ленте» — OK;
вкладка Разработчик — группа Код — Запись макроса;
проделайте какие-нибудь действия (например, введите букву А и нажмите клавишу Enter);
группа Код — Остановить запись;
в VBA будет код, который надо подкорректировать.

Сообщение от nt_dmn

А не подскажете ещё где мне отключить оповещение при закрытии файлов «в буфере обмена осталось.. бла бла бла» Чет все настройки перерыл, нету…

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

Visual Basic

1	Application.DisplayAlerts = False

а эту после закрытия книги:

Visual Basic

1	Application.DisplayAlerts = True

0 / 0 / 0

Регистрация: 28.04.2011

Сообщений: 60

06.10.2011, 17:32

[ТС]

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

gera_vip

0 / 0 / 0

Регистрация: 13.06.2014

Сообщений: 5

13.06.2014, 15:35

Форумчане, подскажите, пожалуйста, как в 12 строчке кода, вместо Rows(«10:10») указать копировать заполненный диапазон, начиная от второй строчки и до конца, где есть записи.
И есть ли возможность, этот макрос привязать к какой-то новой кнопке на ленте? А то с этим еще не разбирался.
Заранее спасибо!

Visual Basic

Sub Процедура1()
'Обращаться с книгами будем через переменные
'(кода меньше писать и не промахнёшься мимо нужной книги)
Dim Исходная As Excel.Workbook, Конечная As Excel.Workbook
Dim nss As Long
Set Исходная = ActiveWorkbook
'открываем книгу
Set Конечная = Workbooks.Open("C:Documents and SettingsПользовательРабочий столКнига2.xlsx")
'копируем строку 
'Вот тут :)
Исходная.Worksheets(1).Rows("10:10").Copy
        'выбираем номер начальной строки для поиска последней записи
        nss = 2
        'ищем последнюю запись
        Do While Конечная.Worksheets(1).Range("B" & nss).Value <> ""
            'увеличиваем номер строки на 1
            nss = nss + 1
        Loop
        'вставляем строку из буфера
        Конечная.Worksheets(1).Rows(nss).PasteSpecial
        Конечная.Close SaveChanges:=True
End Sub

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

13.06.2014, 16:09

Попробуйте так (не проверял):

Visual Basic

Sub Процедура1()
'Обращаться с книгами будем через переменные
'(кода меньше писать и не промахнёшься мимо нужной книги)
    Dim Исходная As Excel.Workbook, Конечная As Excel.Workbook
    Set Исходная = ActiveWorkbook
    'открываем книгу
    Set Конечная = Workbooks.Open("C:Documents and SettingsПользовательРабочий столКнига2.xlsx")
    'копируем строку
    'Вот тут :)
    Исходная.Worksheets(1).Range("B2").CurrentRegion.Copy Конечная.Worksheets(1).Cells(Rows.Count, "B").End(xlUp)(2, 0)
    Конечная.Close SaveChanges:=True
End Sub

0 / 0 / 0

Регистрация: 13.06.2014

Сообщений: 5

13.06.2014, 16:19

Hugo, а что поменять, чтобы копировались не все данные, а начиная со второй строки и до конца, т.к. в первой строке идут названия столбцов?

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

13.06.2014, 16:50

Visual Basic

1	Исходная.Worksheets(1).Range("B2").CurrentRegion.Offset(1).Copy Конечная.Worksheets(1).Cells(Rows.Count, "B").End(xlUp)(2, 0)

Будет правда ещё снизу одну пустую строку прихватывать — но это ведь ерунда. Можно убрать ресайсом, но лень.

0 / 0 / 0

Регистрация: 13.06.2014

Сообщений: 5

13.06.2014, 18:16

Hugo, огромнейшая благодарность!!! Работает!

Источник

Копирование строки ниже выделенной

Maxon_R

Дата: Понедельник, 03.07.2017, 19:14 |
Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2016

Друзья, привет!
Уровень знаний VBA почти на нуле. Несколько дней пытаюсь сделать макрос, но безрезультатно. Прошу вашей помощи!

Суть:
При нажатии на кнопку должно производиться копирование активной (выделенной) строки со вставкой ниже, чтобы строки можно было вставлять между уже заполненными строками.
При этом важно, чтобы копировалось всё — значения, формулы, форматирование, условное форматирование
Но столбцы с B:G и с L по конец должны быть пустые.

Основная задача файла — создавать себе список задач на день.

Возможно?

Заранее благодарю!

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

4532522.xlsx
(19.8 Kb)

Сообщение отредактировал Maxon_R — Понедельник, 03.07.2017, 19:16

Ответить

buchlotnik

Дата: Понедельник, 03.07.2017, 19:41 |
Сообщение № 2

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Цитата

пытаюсь сделать макрос

и где эти попытки? почему файл .xlsx?

Ответить

InExSu

Дата: Вторник, 04.07.2017, 09:18 |
Сообщение № 3

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

Ранг: Ветеран

Сообщений: 646

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

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

Excel 2010

[vba]

Код

Sub КопированиеCтрокиНижеВыделенной()
Dim Столбец01 As Long, Столбец02 As Long, Строка As Long
Столбец01 = 7: Столбец02 = 12

        ActiveCell.EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range(«A1»).Select
    ActiveCell.EntireRow.Insert
    ActiveSheet.Paste
    Строка = ActiveCell.Row
    Range(Cells(Строка, 1), Cells(Строка, Столбец01)).Select
    Selection.Clear
    Range(Cells(Строка, Столбец01), Cells(Строка, 190)).Select
    Selection.Clear
End Sub

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel

Ответить

Maxon_R

Дата: Вторник, 04.07.2017, 10:50 |
Сообщение № 4

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

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

Сообщений: 6

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

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

Excel 2016

Sub КопированиеCтрокиНижеВыделенной()
Dim Столбец01 As Long, Столбец02 As Long, Строка As Long
Столбец01 = 7: Столбец02 = 12

ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range(«A1»).Select

ActiveCell.EntireRow.Insert

ActiveSheet.Paste
Строка = ActiveCell.Row
Range(Cells(Строка, 1), Cells(Строка, Столбец01)).Select
Selection.Clear
Range(Cells(Строка, Столбец01), Cells(Строка, 190)).Select
Selection.Clear
End Sub

Спасибо! Строку добавляет, но вываливается ошибка на ActiveCell.EntireRow.Insert

Сообщение отредактировал Maxon_R — Вторник, 04.07.2017, 10:57

Ответить

Maxon_R

Дата: Вторник, 04.07.2017, 10:54 |
Сообщение № 5

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

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

Сообщений: 6

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

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

Excel 2016

и где эти попытки? почему файл .xlsx?

Потому что копировал лист из другой книги.

У меня ранее была версия, которая добавляла ячейку. При этому всё работало, т.к. было форматирование как таблица.
Сейчас хочется немного расширить функционал и уйти от форматирования таблицей.
Сейчас я код уже испортил своими попытками и выглядит он примерно так.
[vba]

Код

Sub Макрос4()
Dim i As String, j As String
i = ActiveCell.Address
ActiveCell.Select
ActiveRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

[/vba]

Сообщение отредактировал Maxon_R — Вторник, 04.07.2017, 11:05

Ответить

Manyasha

Дата: Вторник, 04.07.2017, 11:05 |
Сообщение № 6

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

Maxon_R, оформите код тегами (кнопка #)

ЯД: 410013299366744 WM: R193491431804

Ответить

InExSu

Дата: Вторник, 04.07.2017, 12:22 |
Сообщение № 7

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

Ранг: Ветеран

Сообщений: 646

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

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

Excel 2010

ошибка на ActiveCell.EntireRow.Insert

на Excel 2010 этой ошибки не появляется.

Улучшаю:
[vba]

Код

Sub КопированиеCтрокиНижеВыделенной()
Dim Столбец01 As Long, Столбец02 As Long, Строка As Long
Столбец01 = 7: Столбец02 = 12

        ActiveCell.EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range(«A1»).Select
    Selection.EntireRow.Insert ‘или запишите макрорекордером как у вас, в 2016, вставляется строка
    ActiveSheet.Paste
    Строка = ActiveCell.Row
    Range(Cells(Строка, 1), Cells(Строка, Столбец01)).Select
    Selection.ClearContents
    Range(Cells(Строка, Столбец01), Cells(Строка, 190)).Select
    Selection.ClearContents
End Sub

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel

Ответить

Maxon_R

Дата: Вторник, 04.07.2017, 12:36 |
Сообщение № 8

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

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

Сообщений: 6

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

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

Excel 2016

Selection.EntireRow.Insert ‘или запишите макрорекордером как у вас, в 2016, вставляется строка

в 16 добавление строки написалось так:

[vba]

Код

Selection.Insert Shift:=xlDown

[/vba]

Попробовал заменить строку в коде — появилась другая ошибка.

Сообщение отредактировал Maxon_R — Вторник, 04.07.2017, 12:37

Ответить

InExSu

Дата: Вторник, 04.07.2017, 15:50 |
Сообщение № 9

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

Ранг: Ветеран

Сообщений: 646

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

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

Excel 2010

почикано

Разработчик Битрикс24 php, Google Apps Script, VBA Excel

Сообщение отредактировал InExSu — Вторник, 04.07.2017, 15:51

Ответить

sboy

Дата: Вторник, 04.07.2017, 16:56 |
Сообщение № 10

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Проверяйте.
[vba]

Код

Sub дз()
r = ActiveCell.Row
c = Cells(8, Columns.Count).End(xlToLeft).Column
With Rows(r)
.Copy
.Insert
End With
Range(Cells(r + 1, 2), Cells(r + 1, 7)).ClearContents
Range(Cells(r + 1, 12), Cells(r + 1, c)).ClearContents
End Sub

[/vba]
[p.s.]Ну и защиту от «случайно» неправильной выбранной строки бы надо сделать

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

4532522.xlsm
(24.8 Kb)

Яндекс: 410016850021169

Ответить

InExSu

Дата: Вторник, 04.07.2017, 19:04 |
Сообщение № 11

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

Ранг: Ветеран

Сообщений: 646

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

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

Excel 2010

Хороший код,. Не заню зачем, но топикстартер хочет
А Ваш код вставляет ВЫШЕ активной ячейки.

Разработчик Битрикс24 php, Google Apps Script, VBA Excel

Ответить

KuklP

Дата: Вторник, 04.07.2017, 19:54 |
Сообщение № 12

Группа: Проверенные

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

Сообщений: 2369

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

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

2003-2010

Ну и напишите:
[vba][/vba]и будет Вам счастье.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Pelena

Дата: Вторник, 04.07.2017, 19:58 |
Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

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

Замечаний:
±

Excel 2016 & Mac Excel

Какая разница? Ведь строка копируется

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

RAN

Дата: Вторник, 04.07.2017, 20:39 |
Сообщение № 14

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

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

Сообщений: 5645

Цитата

И правую палочку делают так-же!

А если серьезно, для 1 строки разницы нет, или почти нет, для 2 появится (или не появится).

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

Ответить

Maxon_R

Дата: Среда, 05.07.2017, 09:54 |
Сообщение № 15

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

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

Сообщений: 6

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

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

Excel 2016

Sub дз()
r = ActiveCell.Row
c = Cells(8, Columns.Count).End(xlToLeft).Column
With Rows®
.Copy
.Insert
End With
Range(Cells(r + 1, 2), Cells(r + 1, 7)).ClearContents
Range(Cells(r + 1, 12), Cells(r + 1, c)).ClearContents
End Sub

Всё равно вылезает эта ошибка…(((

Сообщение отредактировал Maxon_R — Среда, 05.07.2017, 09:55

Ответить

AndreTM

Дата: Среда, 05.07.2017, 10:14 |
Сообщение № 16

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

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

Сообщений: 1762

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

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

2003 & 2010

Всё равно вылезает эта ошибка…(((

А у вас там объединенных ячеек по строке, где пытаетесь делать вставку — не наблюдается?

Вообще, если у вас ошибки в ВАШЕМ коде — то прикладывайте ВАШИ файлы.

Потому что копировал лист из другой книги.

вообще ни о чём — при чём здесь какой-то лист из какой-то книги?..

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Maxon_R

Дата: Среда, 05.07.2017, 10:16 |
Сообщение № 17

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

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

Сообщений: 6

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

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

Excel 2016

Всё заработало! Большое спасибо!

Ответить

sboy

Дата: Среда, 05.07.2017, 10:39 |
Сообщение № 18

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

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

Сообщений: 2566

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

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

Excel 2010

Maxon_R, сейчас еще раз посмотрел файл и возник вопрос, а точно Вам нужно

столбцы … с L по конец должны быть пустые

???
ведь там у Вас формула

Яндекс: 410016850021169

Ответить

Nordheim

Дата: Пятница, 07.07.2017, 12:32 |
Сообщение № 19

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

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

Сообщений: 6

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

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

Excel 2010

Еше вариантик
[vba]

Код

Sub test()
Dim i&
i = ActiveCell.Row
Rows(i + 1).Insert
Rows(i + 1).FillDown
Range(«d» & i + 1 & «:g» & i + 1).ClearContents
Range(«l» & i + 1).End(xlToRight).ClearContents
End Sub

[/vba]

Все гениальное просто и все простое гениально.

Ответить

Источник