VBA-Excel在最后一列后插入值

Question

我要在填充的最后一个列之后插入新列。 我如何找出填充的最后一列？

例如我有以下标题：

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")