求助：用VBA实现每周自动复制BX:BZ数据至右侧首空列

你的原始代码问题在于固定了目标列（CC:CE），无法自动适配每周的空白列位置。以下是修改后的代码，能自动找到工作表右侧首个空白列并完成数据复制：

Sub Copy_Latest()
'
' Copy_Latest Macro
' 自动复制BX:BZ列最新数据到右侧首个空白列
' Keyboard Shortcut: Ctrl+Shift+L
'
    Dim ws As Worksheet
    Dim lastUsedCol As Long
    Dim targetStartCol As Long
    
    ' 指定操作的工作表（可改为Sheet1、"数据记录"等具体名称）
    Set ws = ActiveSheet
    
    ' 获取工作表中已使用的最后一列编号
    lastUsedCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 计算目标起始列：最后一列的下一列
    targetStartCol = lastUsedCol + 1
    
    ' 复制BX:BZ列的值到目标起始列
    ws.Range("BX:BZ").Copy
    ws.Cells(1, targetStartCol).PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板，避免影响后续操作
    Application.CutCopyMode = False
End Sub

关键代码说明 #

• 摒弃Select/Selection操作：直接通过对象操作单元格，比手动选择更高效、更不容易出错
• 自动定位空白列：ws.Cells(1, ws.Columns.Count).End(xlToLeft) 从第一行最右侧向左查找首个非空单元格，以此确定已使用的最后一列，加1后就是第一个空白列的起始位置
• 仅粘贴数值：保留你原代码的xlPasteValues，确保只复制数据值，不携带公式或格式（如果需要复制格式，可改为xlPasteAll）
• 固定工作表（可选）：如果你的数据在指定工作表（比如"历史趋势"），可以把ActiveSheet改成ThisWorkbook.Sheets("历史趋势")，避免切换工作表时出错

内容的提问来源于stack exchange，提问作者Toxic_Turtle