将If / End If添加到宏中

Question

我正在尝试向复制和粘贴宏添加条件，在该条件下，如果table1中的行为红色，它将复制table1中的一行并将其粘贴到table2中。

我尝试过：

Sub ColdLake1()

If Range("B55").Interior.ColorIndex = 3 Then

    Range("B55:H55").Select
    Selection.Copy
    Range("C140").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False      
        End If
End Sub

它什么也不返回。有任何想法吗？

谢谢（我对此很陌生。）>

我正在尝试向复制和粘贴宏添加条件，在该条件下，如果table1中的行为红色，它将复制table1中的一行并将其粘贴到table2中。我试过了：Sub ColdLake1（）If Range（“ B55”）....

Answer 1

这对我有用：