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

我完全被卡住了，需要有人提供一些新的代码，因为我甚至还没有弄清楚这一点。我需要做两件事

如果M2>0，则复制M2并将其粘贴到D2中。继续执行此操作，直到“M”中的每个单元格都已基于行计数进行计算

接下来，如果我最终根据满足条件进行复制和粘贴，那么我还想将F列中的项目状态更改为“FALSE”。希望有人能帮助我，我在一个大项目的尾声正在完成 对于#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

选中此复选框并相应地编辑您的问题。按原样，您的问题可能会被否决，或者更糟，被关闭。