excel - 复制并插入新列后隐藏原始列

Question

以下 VBA 代码复制红色边框单元格(蓝色)并将它们插入到绿色边框单元格中。

Sub ColumnCopyInsert()
    Range("D:E").Copy
  Range("D2").End(xlToRight).Offset(-1, 1).Insert xlToRight
End Sub

我想添加一个函数来隐藏 D 和 E 列。

如果我隐藏这两列并使用我的 VBA 按钮复制/插入新列，它们也会被隐藏。

目标是隐藏 D、E 而不是新列。

Answer 1

复制最后一列之后的连续列

Option Explicit

Sub ColumnCopyInsert()
    
    Const ColumnsAddress As String = "D:E"
    Const LastColumnRow As Long = 2
    
    With Columns(ColumnsAddress)
        .EntireColumn.Hidden = False
        .Copy
        Dim cCount As Long: cCount = .Columns.Count
        .Cells(LastColumnRow, 1).End(xlToRight) _
            .Offset(1 - LastColumnRow, 1).Insert xlShiftToRight
        .EntireColumn.Hidden = True
    End With
    
End Sub