VBA - 在最后一列

Question

我想在填充的最后一列之后插入一个新列。我怎样才能找出最后一列填充的内容？

e.g。我有以下标题：

Name , Date , Address 

我想在地址后插入'test1','test2','test3'。这怎么可能？

Answer 1

这假设您的标题位于第一行。

Dim x as Integer
x = ActiveSheet.UsedRange.Columns.Count
ActiveSheet.Cells(1, x+1) = "Test1"
ActiveSheet.Cells(1, x+2) = "Test2"
ActiveSheet.Cells(1, x+3) = "Test3"

我建议添加代码进行测试，并确保您的最后一个列标题已经不是“Test3”（表示您要添加三个不需要的额外列）。

Answer 2

Dim cNext as Range

Set cNext = Activesheet.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)

cNext.resize(1, 3).value = Array("Name","Date","Address")