excel - 保持甘特图范围条件格式

Question

我有甘特图（Sheet1），想从（Sheet2）复制和粘贴预定义的任务。当前解决方案的问题是条件格式不适用于新粘贴的行，因为复制的单元格上没有条件格式。我曾尝试在 Sheet2 上应用条件格式，但是有很多条件格式，并且条件格式的公式已连接到 Sheet2，因此在 Sheet1 上复制后它无法正常工作。

Sheet2 = 数据

这是我当前的代码：

Sub InsertRev()

    Application.DisplayAlerts = False

    Dim c As Range
    Set Rng = ActiveSheet.Range("A1:A5000")
    For dblCounter = Rng.Cells.Count To 1 Step -1
        Set c = Rng(dblCounter)
        If c.Value Like "Last" Then
        ThisWorkbook.Worksheets("Data").Rows("26:27").Copy
        c.EntireRow.insert
    End If
    Next dblCounter

    Application.DisplayAlerts = True

End Sub 

标签： excelvba