满足条件时，在多个相同单元格中复制并粘贴值和格式

Question

我是初学者，我正在尝试创建一个 Excel 宏来执行以下操作。

当 AF 列中的任何单元格 =“Y”时，我想复制并粘贴同一行中单元格 M、T 和 AM:AO 中的值和数字格式。

目前所有这些单元格中都有公式。

非常感谢任何帮助。

Sub PasteContitionalSpecial()

Lastrow = .Range("AF" & Rows.Count).End(xlUp).Row

Range("AF" & r).Value = "Y"

Range("M").Copy = Range("M").xlPasteValues

我尝试了上述的变体，但没有成功。

Answer 1

我认为这就是你想要做的？

Option Explicit

Sub PasteContitionalSpecial()
    
    Dim lastrow As Long
    
    lastrow = .Range("AF" & Rows.Count).End(xlUp).Row
    
    With ThisWorkbook.ActiveSheet
    
        For r = 2 To lastrow
        
            If .Range("AF" & r).Value = "Y" Then
            
                .Range("M" & r).Copy = Range("M" & r).xlPasteValues
            
            End If
            
        Next r
        
    End With

End Sub