如何添加列并用值填充

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