复制条件格式化格式，但不复制规则/数字

Question

需要一些帮助来思考如何做到这一点。

最终，我想要达到的目的是根据另一个相应的单元格是0还是1来将单元格加在一起。这有点令人费解，但我会尽力解释。

表单1的数据按月显示当月的实际数据是否已进入。一列将显示需要添加的帐户/月的0。

表2有两张表。表1拉入0＆amp; 1表1并使用条件格式来突出显示需要添加的单元格。这个表中唯一的东西是0＆amp; 1.表2与表1完全相同，只是实际数字。

我最初的想法是将表1中的突出显示格式复制到表2上，然后使用宏来对突出显示的单元格求和。显然，我发现这是不可能的。

我试着四处寻找并且找不到任何可以让我复制突出显示格式的内容，而不会覆盖表2中的数字。

这可能吗？

Answer 1

试试这个。我不确定您的数据是如何布局的，但是如果它连续排列，您可以在该行末尾的新单元格上运行它（意思是，下一个空列）：

Function sumHighlighted(ByVal myRng As Range)
Dim cel As Range, iRow As Range
Dim fSum As Long, totalRows As Long

fSum = 0

For Each cel In Range(Cells(myRng.Row, 1), Cells(myRng.Row, myRng.Column))
    If cel.Interior.ColorIndex <> -4142 Then
        fSum = fSum + cel.Value
    End If
Next cel

Debug.Print "The total in this row is: " & fSum
sumHighlighted = fSum

End Function

Answer 2

步骤：
1.使用条件格式复制单元格。
2.粘贴到所需的单元格（按住ALT +按E + S + T）。

要生成代码，请先单击“录制宏”并执行上述两个步骤，并在完成后停止录制宏。