Вставить N количество столбцов справа от выделенной ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вставить N количество столбцов справа от выделенной ячейки (Макросы/Sub)

Aleksander777

Дата: Вторник, 21.01.2025, 13:14 | Сообщение № 1

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

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

Сообщений: 70

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

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

Excel 2021

Добрый день, есть макрос VBA для вставки N-го количества строк (выводится сообщение куда вводится нужное количество) вниз после выделенной ячейки.
Мне нужно подкорректировать сделать почти тоже самое, но только для столбцов, нужно: чтобы вставлялись столбцы справа от выделенной ячейки. Просьба помочь с решением. Заранее спасибо)

[vba]

Код

Sub Вставить_N_количество_строк_после_выделенной_ячейки()

Dim b As Range, i&

For Each b In Selection.Areas

n = Application.InputBox("Сколько строк вставлять?", "Запрос количества строк", "", Type:=1)
On Error Resume Next

For i = b.Rows.Count To 1 Step -1
b.Cells(i + 1).Resize(n).EntireRow.Insert Shift:=xlDown
Next
Next
End Sub

[/vba]