如果符合条件，macros将值复制到另一个单元格中

我需要写一个macros，例如，将复制满足奶酪条件的列A中的值，然后将该值粘贴到下一列中的相邻单元格中。 你从哪里开始呢？

Answer 1

没有macros：

在B2中input：

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

并抄下来

用macros：

 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