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

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

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

Macro to copy a value into another cell if a criteria is met

excel

vba

excel-formula