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

VBA / Excel如果......那么...... ElseIf ... Else Statement copy copy column issue

1 个答案: