Копирование строки с условиями

@6edyuh · Регистрация: 13.06.2020

Author24 — интернет-сервис помощи студентам

Всем привет! Помогите с написанием макроса для решения задачи: есть сводная таблица, где нужно последовательно копировать ячейку с порядковым номером А2 по возрастанию, и, аналогичная ячейка B2, т.е. при копировании изменялись 3 последние цифры по порядку .001, .002 и т.д. Ячейка D2 просто копируется на новую строку.

@AlexOld · 27.07.2021, 21:23

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

Visual Basic

Sub AddRow()
  EndRow = Cells(1, 1).CurrentRegion.Rows.Count
  Range(Cells(2, 1), Cells(EndRow, 5)).Select
  Selection.AutoFill Destination:=Range(Cells(2, 1), Cells(EndRow + 1, 5)), Type:=xlFillDefault
  Cells(EndRow + 1, 3).ClearContents
  Cells(EndRow + 1, 5).ClearContents
End Sub

@6edyuh · 28.07.2021, 20:48 **[ТС]**

Спасибо, реально работает!

@6edyuh 0 / 0 / 1 Регистрация: 13.06.2020 Сообщений: 73
	28.07.2021, 20:48 [ТС]	3
	Спасибо, реально работает! 0