Excel макрос на добавление ячейки

Метод Range.Insert (Excel)

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

Синтаксис

expression. Insert (SHIFT, CopyOrigin)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Shift	Необязательный	Variant	Определяет способ сдвига ячеек. Может быть одной из следующих констант XlInsertShiftDirection : xlShiftToRight или xlShiftDown. Если этот аргумент опущен, Microsoft Excel принимает решение на основе формы диапазона.
CopyOrigin	Необязательный	Variant	Источник копирования; то есть, откуда копировать формат для вставленных ячеек. Может быть одной из следующих констант XlInsertFormatOrigin : xlFormatFromLeftOrAbove (по умолчанию) или xlFormatFromRightOrBelow.

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

Примечания

Для параметра CopyOrigin нет значения, эквивалентного значению Clear Formatting при вставке ячеек в Excel в интерактивном режиме. Для этого используйте метод ClearFormats .

Пример

В этом примере вставляется строка над строкой 2, копируя формат из строки ниже (строка 3), а не из строки заголовка.

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

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

Источник

Пример макроса для вставки и удаления строк или столбцов на нескольких листах в Excel

Аннотация

Эта статья содержит пример макроса Microsoft Visual Basic для приложений (вспомогательная процедура), который можно использовать для вставки или удаления строк или столбцов на нескольких листах в Microsoft Excel.

Дополнительная информация

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут объяснить функциональность отдельной процедуры. обязаны изменять примеры для реализации дополнительных возможностей или удовлетворения требований конкретных пользователей. Чтобы вставить или удалить строки или столбцы на нескольких листах, используйте команду For Each. Next statement для циклического прохода по всем необходимым листам или выберете строки или столбцы перед выполнением вставки или удаления.

Приведенные ниже примеры макросов работают только с непрерывным диапазоном столбцов или строк.

Пример макроса с использованием цикла для вставки строк на несколько листов

Пример макроса для выбора столбца и вставки нового столбца

Следующий пример макроса выбирает весь столбец перед вставкой новых столбцов:

Источник

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

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

Метод Range.Cut

Синтаксис

Параметры

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

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

Метод Range.Copy

Синтаксис

Параметры

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

Метод Worksheet.Paste

Синтаксис

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

Параметры

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

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

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

Примеры

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

Вырезание ячеек в буфер обмена и вставка методом 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, но строки на нем не удаляет, циклы пошагово проходят, но ничего не изменяется.)

Источник

Excel макрос на добавление ячейки

помогите создать макрос для вставки ячеек.

есть таблица данных от стролбца С до Y
заполненные строки от 1 до 10
11 строка таблицы пустая.

надо когда стоит курсор на С11
при нажатии кнопки
вставить ячейки перед 11 строкой с столбца С до Y,
а также скопировать данные тогда с строки 12 от столбцов М до Х
в строку которую вставил со столбца М.

спасибо за помощь.

а как тогда получается что мы вставили данные в вставленную строку,
а как потом вставить новую строку после этой вставленной.
и так далее.

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

и вообще ничего не получается, когда уточнения перечеркивают первоначальную постановку задачи.

извени Игор
поставленная первоначальная задача выполняется.

но мне бы хотелось чтобы когда мы вставим строчку с ячейки С11
СЛЕДУЮЩУЮ строчку уже можно было вставлять с ячейки С12
и так далее

а здесь получается что строчки вставляются только с С11

либо если мы знаем коры ячейки С11.
то можно перед этими корами вставлять условия первой поставленной задачи и тогда АКТИВНОЙ ДЛЯ ВСТАВКИ строки стает ячейка С12

я начал использовать через макрос.

а так тему можно закрывать.

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

и последняя строка данных есть конечными координатами для анализа данных в другом листе
когда вставляешь строку перед последней то и изменяеться граница анализа данных

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

Источник

Как средствами VBA добавить строку в таблицу Excel, но вставить так, чтобы новые ячейки были частью диапазона (Range) ?

Создается макрос для автозаполнения ведомости. При нажатии кнопки добавляется фамилия и данные. Как сделать так, чтобы диапазон имел переменное число ячеек в столбце, а ячейки ниже при добавлении строки соответственно смещались на одну ячейку вниз, и вместе с ними смещались имена диапазонов и формулы. Всяко уже перепробовал. И ещё, формулы, вставленные из макроса почему-то вычисляются не сразу, а после щелчка мышью по строке ввода формул (сверху) , сначала выдав ошибку. Вот предварительный макрос:

Sub Кнопка1_Щелчок ()
Dim i, j As Integer

‘Range(«E18»).Value = Range(«E18»).Value + 1
ActiveSheet.Name = «Экзамен (1)»
Range(«A1»).Value = «ЭКЗАМЕНАЦИОННАЯ ВЕДОМAСТЬ»
Range(«A1»).Font.Bold = True
Range(«A1»).Font.Size = 14
Range(«A2»).Value = «Группа №»
Range(«C2»).Value = «Дисциплина»
Range(«A3»).Value = «№ п/п»
Range(«B3»).Value = «Ф. И. О. »
Range(«C3»).Value = «№ зачетной книжки»
Range(«D3»).Value = «Оценка»
Range(«E3»).Value = «Подпись экзаменатора»
Range(«F3»).Value = «5»
Range(«G3»).Value = «4»
Range(«H3»).Value = «3»
Range(«I3»).Value = «2»
Range(«J3»).Value = «Неявки»
Range(Cells(4, 1), Cells(4, 10)).ClearContents
If ActiveSheet.Range(«A5»).Value = «» Then ActiveSheet.Range(«A5»).Value = «1»

i = Range(«ИТОГО»).Value
Cells(i + 5, 1) = Cells(i + 4, 1) + 1
MsgBox (Str(Range(«ОТЛИЧНО»).Count))
Dim NewRange As Range
Set NewRange1 = Range(Cells(i + 7 + 7, 1), Cells(i + 12 + 7, 3))
Set NewRange2 = Range(Cells(i + 7 + 7, 3), Cells(i + 11 + 7, 3))
NewRange2.Name = «ТОГО»
NewRange1.Range(«A1») = «Отлично»
NewRange1.Range(«A2») = «Хорошо»
NewRange1.Range(«A3») = «Удовлетворительно»
NewRange1.Range(«A4») = «Неудовлетворительно»
NewRange1.Range(«A5») = «Неявки»
NewRange1.Range(«A6») = «ИТОГО»
NewRange1.Range(«C1») = «=СУММ (ОТЛИЧНО) »
NewRange1.Range(«C2») = «=СУММ (ХОРОШО) »
NewRange1.Range(«C3») = «=СУММ (УДОВЛЕТВОРИТЕЛЬНО) »
NewRange1.Range(«C4») = «=СУММ (НЕУДОВЛЕТВОРИТЕЛЬНО) »
NewRange1.Range(«C5») = «=СУММ (НЕЯВКИ) »
NewRange1.Range(«C6») = «=СУММ (ТОГО) »
‘NewRange.Select
‘Range(«A12»).Name.Delete **************** это закоментировано. было создано для отладки
‘Range(«A12»).Name.Delete
‘Range(Cells(19, 1), Cells(19, 3)).Name.Delete
‘Cells(i + 8, 1).Name = «New»
‘For i = 6 To 1 Step -1
‘Cells(i + 13, 1) = Cells(i + 12, 1)
‘Cells(i + 13, 3) = Cells(i + 12, 3)
‘Cells(i + 5, 1) = Cells(i + 4, 1) + 1
‘Next i
‘Cells(i + 15, 1) = ИТОГ
i = i + 1
‘Range(«ИТОГО»).Value = Range(«ИТОГО»).Value + 1
‘Range(«J3»).Value =

End Sub

Не поняла Ваших проблем.
Выделим диапазон вручную, меню Вставка -Имя -Присвоить (имя Diap) — Ok,
то диапазон поименуется.
Если например, ячейкам D5 и D10 присвоены имена А и В cоответственно,
а выделенный диапазон лежит в тех же строках, например Diap (В5:В10),
то при вставке кучи строк между 5-й и 10-й диапазон удлиняется,
ячейки А и В разъезжаются, можно попрежнему правильно определить сумму
от А до В или по увеличенному диапазону.
Разумеется при вставке строк вы должны в новых строках и формулы заполнить,
но это не проблема )))

Программно можно поименовать диапазон так:
Range(«D5:D19»).Select
ActiveWorkbook.Names.Add Name:=»Diap», RefersToR1C1:=»=Лист1!R5C4:R19C4″
А выделить так
Range(«Diap»).Select
При удалении нескольких строк (в пределах разумного) всё работает точно также.

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

Получается, что именованные ячейки или диапазоны могут плавать по Листу.

Спасибо за вопрос, я и сама час назад этого не умела )))

Источник