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

Question

У меня есть таблица:

Используя vba, мне нужно добавить столбец после UsedRange, добавить заголовок и заполнить ячейки после заголовка тем же значением до последней ячейки UsedRange:

Я добавил новый столбец и заголовок:

Worksheets(ii).Cells(, Worksheets(ii).UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1).Value2 = "Column 4"

Как заполнить значения в столбце (игнорируя заголовок)?

Answer 1

Вы можете сделать это таким образом.Я думаю, CurrentRegion более устойчив, чем SpecialCells(xlCellTypeLastCell).

Sub x()

Dim r As Range

Set r = Range("A1").CurrentRegion
r.Cells(1, r.Columns.Count + 1).Value = "Column 4"
r.Cells(2, r.Columns.Count + 1).Resize(r.Rows.Count - 1).Value = 2

End Sub