VBA / Excel If ... Then ... ElseIf ... Else语句复制下栏问题

Question

好的，我已经弄清楚了声明，它可以按照我的需要工作。 当我运行它时，它几乎会寻找Interior.Color，如果匹配，它将为我提供所述单元格颜色的Text值。 只要有数据，如何在整个列中复制并粘贴此If语句？

我不知道这个的VBA版本。 所以我的VBA代码如下所示：

If Range("F2").Interior.Color = 255 Then
Range("AE2") = "Red"
ElseIf Range("F2").Interior.Color = 65252 Then
Range("AE2") = "Green"
Else
Range("AE2") = "New"
End If

我希望将整个语句复制到AE列下，直到F列中没有数据（复制/粘贴），但它会相应地更改，并跟随单元格向下移动。

希望我有道理。

谢谢

Answer 1

由于您没有提到哪一列保存数据，因此我假设它是F列 ，您可以根据需要轻松地修改代码。

我还将您的IFs切换为Select Case ，如果将来您有更多测试条件。

' assuming your column that has data is Column F >> modify it according to your needed column
lastRow = Cells(Rows.count, "F").End(xlUp).row

For lRow = 2 To lastRow
    Select Case Range("F" & lRow).Interior.Color
        Case 255
            Range("AE" & lRow) = "Red"

        Case 65252
            Range("AE" & lRow) = "Red"

        Case Else
            Range("AE" & lRow) = "New"

    End Select
Next lRow