如何根据当前周实现Excel自动复制列、删数据及隐藏列操作？

针对你的需求，我们可以修改VBA宏，实现动态匹配当前周对应列、复制数据到G列、清空并隐藏AY列这三个核心功能，修改后的代码如下：

Sub WeeklyUpdate()
    Dim currentWeek As Integer
    Dim targetCol As Range
    Dim lastRow As Long
    
    ' 1. 获取当前周数（以周一为一周起始，若需其他规则可调整参数）
    currentWeek = DatePart("ww", Date, vbMonday, vbFirstFourDays)
    
    ' 2. 查找第一行中对应"第X周"格式的列（假设表头在第1行）
    On Error Resume Next
    Set targetCol = Rows(1).Find(What:="第" & currentWeek & "周", LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    ' 检查是否找到对应列
    If targetCol Is Nothing Then
        MsgBox "未找到第" & currentWeek & "周对应的列，请检查表头格式！", vbExclamation
        Exit Sub
    End If
    
    ' 3. 复制目标列数据到G列（从第2行开始，仅复制值）
    lastRow = Cells(Rows.Count, targetCol.Column).End(xlUp).Row
    Range(Cells(2, targetCol.Column), Cells(lastRow, targetCol.Column)).Copy
    Range("G2").PasteSpecial Paste:=xlPasteValues
    
    ' 4. 清空AY列数据并隐藏该列
    Columns("AY:AY").ClearContents
    Columns("AY:AY").EntireColumn.Hidden = True
    
    ' 取消复制模式
    Application.CutCopyMode = False
    MsgBox "更新完成！", vbInformation
End Sub

关键逻辑说明 #

• 动态匹配周列：通过DatePart获取当前周数，再用Find方法在表头行查找对应"第X周"的列，彻底摆脱固定列号的限制。
• 精准复制数据：先获取目标列的最后一行有效数据行号，只复制有内容的区域，避免选中整列的冗余操作。
• AY列处理：用ClearContents清空数据后直接隐藏列，完成需求中的收尾操作。

注意事项 #

• 确保表头行（默认第1行）的周数格式为第X周（例如"第44周"），否则Find方法无法匹配到目标列。
• 若你的周数计算规则不同（比如以周日为一周起始），可修改DatePart的参数：将vbMonday改为vbSunday即可。
• 若表头不在第1行，需将代码中的Rows(1)改为对应行号（比如Rows(2)）。

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