Excel 如何添加列并用值填充

我有一张桌子：

使用vba，我需要在UsedRange后添加一列，添加一个标题，并在标题后的单元格中填充相同的值，直到UsedRange的最后一个单元格：

我添加了新的列和标题：

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

---

如何向列中填充值（忽略标题）？

您可以这样做。我认为

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