excel - 到达现有数据的末尾并添加多个列标题

Question

我正在尝试在现有数据集的末尾添加多个列并添加多个列。以下是我现在正在工作的代码：-

Sub AddColumn()

Range("A1").Select
Selection.End(xlToRight).Select

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "RFQ 1"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "RFQ 2"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "RFQ 3"

End Sub

但是，第一个问题是代码看起来像是修补工作，我无法找到更好的解决方案。其次，如果列标题中有任何意外的空白，那么整个事情最终可能会弄乱现有的数据集。那么，您能否为此提供更好的可行解决方案。（对不起，我对 VBA 环境非常陌生）。

Answer 1

只是一个单行End(xlToLeft)用于获取最后一列并Offset引用Resize接下来的 3 个单元格：

Sub AddColumn()
    Cells(1, Columns.Count).End(xlToLeft).Offset(,1).Resize(,3).Value = Array("RFQ 1", "RFQ 2", "RFQ 3")
End Sub