部分重复的条件格式设置可以通过使用VBA代码进行解决。以下是一个简单的示例，演示如何使用代码在Excel中设置部分重复的条件格式：

Sub ApplyConditionalFormatting()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置需要应用条件格式的区域
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格的值是否包含重复的部分
        If Len(cell.Value) - Len(WorksheetFunction.Substitute(cell.Value, "重复", "")) > 0 Then
            ' 如果有重复的部分，设置条件格式
            cell.Interior.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub

在上述代码中，我们首先设置了需要应用条件格式的区域（在这里是A1:A10）。然后，我们使用一个For Each循环遍历每个单元格，并检查其值是否包含重复的部分。我们使用Len函数和Substitute函数来计算单元格值中重复部分的长度。如果长度大于零，说明有重复的部分，我们就可以设置相应的条件格式（在这里是将单元格的背景色设置为红色）。

请根据实际情况修改代码中的区域范围和条件格式设置。