将If / End If添加到宏中

问题描述 投票:-1回答:1

我正在尝试向复制和粘贴宏添加条件,在该条件下,如果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”)....

excel vba
1个回答
0
投票

这对我有用:


推荐问答