Question

我正在尝试在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

Answer 1

如果您只是想将一列复制到另一列，那么这将有效：

Sub InsertColumn()
    Dim lastColumn As Long
    lastColumn = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Columns(lastColumn).Copy Destination:=Columns(lastColumn + 1)
End Sub

Excel宏查找使用的最后一列，插入新列并复制以前的公式

1 个答案: