到达现有数据的末尾并添加多列 headers

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

但是，第一个问题是代码看起来像是一个修补工作，我找不到更好的解决方案。其次，如果 headers 列中有任何意外的空白 space 那么整个事情最终可能会弄乱现有的数据集。那么，您能否为此提供一个更好的可行解决方案。（抱歉，我对 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

到达现有数据的末尾并添加多列 headers

Reach to the end of the existing data and add multiple column headers

excel

vba

multiple-columns

excel-365