質問: コピペすれば動くコードを頂きたいのですが、どなたかお願いできませんでしょうか。
回答: 仕様通りに作ると「入力シート」の全てに色が付きます。 なぜなら「入力シート」を「保存シート」にコピペすれば、全て重複するからです。 条件付き書式で色付をして、新しくコピペした所は除外しました。 Option Explicit ' Sub Macro1() Dim O As Worksheet Dim REn1 As Long Dim REn2 As Long ' Sheets("入力シート").Select Set O = Sheets("保存シート") [A:F].FormatConditions.Delete REn1 = Cells(Rows.Count, "A").End(xlUp).Row REn2 = O.Cells(Rows.Count, "A").End(xlUp).Row Range("A4:F" & REn1).Copy O.Cells(REn2 + 1, "A") ' With Range("A4:F" & REn1).FormatConditions.Add(xlExpression, _ Formula1:="=COUNTIFS(" & O.Name & "!$A$4:$A$" & REn2 & _ ",$A4," & O.Name & "!$B$4:$B$" & REn2 & ",$B4)") .Interior.Color = vbRed End With End Sub