如果满足条件，如何复制单元格并粘贴到另一个单元格中？

【问题标题】：How to copy cell if condition is met and paste in another cell?如果满足条件，如何复制单元格并粘贴到另一个单元格中？
【发布时间】：2019-11-22 22:11:54
【问题描述】：

我完全陷入困境，需要有人提供一些新代码，因为我什至还没有弄清楚这一点。我需要做两件事。

如果 M2>0 则复制 M2 并将其粘贴到 D2 中。继续这样做，直到“M”中的每个单元格都根据行数进行了评估。
接下来，如果我最终根据满足条件进行复制和粘贴，那么我还想将 F 列中的项目状态更改为“FALSE”。希望有人可以帮助我正在完成一个大型项目的尾声。

【问题讨论】：

检查此StackOverflow question checklist 并相应地编辑您的问题。照原样，您的问题可能会被否决或更糟糕的是，已关闭。

标签： vba excel

【解决方案1】：

对于#1，放入 D2

=IF(M2>0,M2,"")

然后单击并向下拖动整列

然后在F2放

=IF(M2>0,"FALSE","TRUE")

然后单击并向下拖动整个列（假设“TRUE”是其中的其他内容。

在 VBA 中，有一种方法：

For i = 2 to ActiveSheet.UsedRange.Rows.Count
  If Range("M"&i).Value > 0 Then
    Range("D"&i).Value = Range("M"&i).Value
    Range("F"&i).Value = "FALSE"
Next i

【讨论】：