如果條件滿足，如何復制單元格並粘貼到另一個單元格中？

Question

我完全被困住了，需要有人提供一些新代碼，因為我什至還沒有弄清楚這一點。 我需要做兩件事。

1. 如果 M2>0，則復制 M2 並將其粘貼到 D2 中。 繼續這樣做，直到根據行數評估了“M”中的每個單元格。
2. 接下來，如果我最終根據滿足條件進行復制和粘貼，那么我還想將 F 列中的項目狀態更改為“FALSE”。 希望有人可以幫助我正在完成一個大型項目的尾聲。

Answer 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