Перенос таблицы, Нумерация

@mikatilar · Регистрация: 08.08.2021

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

Есть таблица A1 : D18, написать макрос который перенесёт таблицу вправо на 1 (B1:E18), и пронумерует столбик А.
Условие: конструкция For — Next.
(A1 = '№'
А2 = 1
А3=2
...
А18=17)
Буду благодарен за помощь.

@elixi · 24.06.2022, 19:53

mikatilar, например можно так:

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

Visual Basic

Sub Перенос_и_Нумерация_таблицы()
    Dim Rw&, RwL&
    RwL = [A1].CurrentRegion.Rows.Count
    [A1].CurrentRegion.Cut
    [A1].Offset(0, 1).Select
    ActiveSheet.Paste
    Columns(1).HorizontalAlignment = xlCenter
    [A1] = "№"
    For Rw = 1 To RwL - 1
        [A1].Offset(Rw, 0).Value = Rw
    Next
End Sub

@mikatilar 3 / 3 / 0 Регистрация: 08.08.2021 Сообщений: 23
		1
	Excel Перенос таблицы, Нумерация 24.06.2022, 17:39. Показов 652. Ответов 1 Метки нет (Все метки) Есть таблица A1 : D18, написать макрос который перенесёт таблицу вправо на 1 (B1:E18), и пронумерует столбик А. Условие: конструкция For — Next. (A1 = '№' А2 = 1 А3=2 ... А18=17) Буду благодарен за помощь. 0

	24.06.2022, 19:53

Перенос таблицы, Нумерация

Решение