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

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