excel - 将上次使用的列复制并粘贴到下一个可用列中

Question

我知道这可能已经得到解答，但我已经搜索了以前的问题，但找不到适合我的答案。

基本上我有一个 excel 电子表格，可以根据工作流程每天/每周/每月更新。我需要的是一个宏，它可以找到最后一个“使用”列（标题在第 5 行），直接在该列的右侧插入一个空白列 - （我们最后有一个总计表需要继续移动）& 副本整个最后使用的列数据到新创建的列中。

这可能是一个非常简单的代码，但我才刚刚开始使用 VBA，希望有人能提供帮助！我希望一旦我开始做一些零碎的工作，我就可以积累我的知识！

提前致谢

艾玛

Answer 1

从这里： 将指定行上的最后一列数据复制到下一个空白列，然后在这里：Excel VBA-查找最后一列数据

Sub Test()

    Dim ws As Worksheet

    Set ws = ActiveSheet
    Dim rLastCell As Range
    Dim LastCol As Integer

    Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)

    LastCol = rLastCell.Column

    ws.Columns(LastCol).Copy ws.Columns(LastCol + 1)

End Sub

Answer 2

懒人极简解决方案：

Sub Macro1()
Dim col As Integer
col = Range("A5").End(xlToRight).Column
Columns(col).Copy
Columns(col + 1).Insert Shift:=xlToRight
End Sub

虽然如果单元格 A5 中没有任何内容，这会崩溃。