Excel宏需求：当AF列单元格为Y时，复制粘贴指定单元格的值与格式

原代码存在的问题 #

• 使用.调用Range但未搭配With语句，会触发编译错误
• 变量r未定义也无循环逻辑，无法遍历AF列的单元格
• Range("M")未指定行号，且复制粘贴语法错误，xlPasteValues是粘贴类型，不能直接赋值给Copy方法
• 未处理需要复制的多个目标区域（T列、AM:AO列），也未实现格式复制需求

修正后的代码 #

Sub PasteContitionalSpecial()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim r As Long
    
    ' 指定要操作的工作表，替换为你的实际工作表名称（如Sheet1）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取AF列最后一行的行号
    lastRow = ws.Range("AF" & ws.Rows.Count).End(xlUp).Row
    
    ' 遍历AF列所有行（若有表头，将起始行改为2）
    For r = 1 To lastRow
        ' 判断当前行AF列的值是否为"Y"
        If ws.Range("AF" & r).Value = "Y" Then
            ' 合并同行中需要复制的单元格区域：M、T、AM:AO
            Union(ws.Range("M" & r), ws.Range("T" & r), ws.Range("AM" & r & ":AO" & r)).Copy
            
            ' 粘贴值到原位置，覆盖公式
            ws.Range("M" & r).PasteSpecial Paste:=xlPasteValues
            ' 粘贴数字格式
            ws.Range("M" & r).PasteSpecial Paste:=xlPasteNumberFormats
            
            ' 清除复制状态，避免弹窗提示
            Application.CutCopyMode = False
        End If
    Next r
End Sub

代码说明 #

• 用ws指定工作表，避免依赖当前激活的工作表，提升代码稳定性
• Union函数合并不连续的单元格区域，实现一次性复制
• 两次PasteSpecial分别完成值和数字格式的粘贴，既保留计算结果，又维持原格式
• Application.CutCopyMode = False清除剪贴板状态，优化操作体验

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