如果满足条件，将值复制到另一个单元格的宏

Question

我需要编写一个宏，例如，它将从满足奶酪条件的A列复制值，然后将该值粘贴到下一列的相邻单元格中。 您将从何处开始？

Answer 1

没有宏：

在B2中输入：

=IF(A2="CHEESE",A2,"")

然后抄下来

使用宏：

Sub Cheesey()
    For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A"))
        If r.Text = "CHEESE" Then
            r.Offset(0, 1) = "CHEESE"
        End If
    Next r
End Sub