我想在Excel中创建一个“插入列”宏 .
工作簿使用公式和条件格式来显示时间轴上的进度 . 我需要为用户提供一种向时间轴添加其他列的方法 .
我正在尝试构建的宏定位最后一列,并将整个列lastColumn复制到newColumn列中 . 但是,我在网上找到并尝试改编的所有内容都会给我一个对象错误或者什么都不做 . 请帮我弄清楚如何做到这一点 .
到目前为止,这是我的代码 .
Sub InsertColumn()
Dim lastColumn As Long
Dim newColumn As Long
With ActiveSheet
lastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).column
End With
newColumn = lastColumn + 1
Selection.AutoFill Destination:=Columns(lastColumn & ":" & newColumn), Type:=xlFillDefault
End Sub
1 回答
如果您只是想将一列复制到另一列,那么这将有效: