如何根据Excel中另一个单元格的结果加粗给定单元格？

如果某行（从b6开始）上的任何数据有失败值，我希望A列从A6向下更改为粗体。然后我想要一个单元格，显示粗体单元格的计数。 下面是到目前为止我所拥有的

Sub Check_Results()
'
' Check_Results Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    Sheets("Macro (2)").Select
    Sheets("Macro (2)").Copy Before:=Sheets(1)
    Sheets("Macro (2)").Select
    Cells.Select
    Selection.Copy
    Sheets("Macro (3)").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Macro (2)").Select
    Cells.Select
    Selection.Copy
    Sheets("Macro (3)").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B20").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+IF(('Macro (2)'!R5C)>0,IF(ABS('Macro (2)'!RC)>400%,IF(AND(ABS(PRE!RC)<100E-9,ABS(POST!RC)<100E-9),""pass"",""FAIL""),""pass""),IF(ABS('Macro (2)'!RC)>20%,""FAIL"",""pass""))"
    Range("B20").Select
    Selection.Copy
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveSheet.Paste
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Macro (2)").Select
    Range("A1").Select

       Sheets("Macro (3)").Select
    Range("A1").Select
        Cells.Select
    Range("H15").Activate
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""pass"""
    Selection.FormatConditions(1).Interior.ColorIndex = 35
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""FAIL"""
    Selection.FormatConditions(2).Interior.ColorIndex = 3
        Range("A1").Select
End Sub

子检查结果（）
'
'检查结果宏
'
'键盘快捷键：Ctrl+Shift+C
'
工作表（“宏（2）”）。选择
工作表（“宏（2）”）。之前复制：=工作表（1）
工作表（“宏（2）”）。选择
单元格。选择
选择，复制
工作表（“宏（3）”）。选择
单元格。选择
Application.CutCopyMode=False
选择.ClearContents
工作表（“宏（2）”）。选择
单元格。选择
选择，复制
工作表（“宏（3）”）。选择
单元格。选择
Selection.Paste特殊粘贴：=xlPasteValues，操作：=xlNone，SkipBlank_
：=假，转置：=假
范围（“B20”）。选择
Application.CutCopyMode=False
ActiveCell.FormulaR1C1=“=+IF（（'Macro（2）'！R5C）>0，IF（ABS（'Macro（2）'！RC）>400%，IF（AND（ABS（PRE！RC）我能够使它工作，我在底部添加了下面的代码

Range("A1").Select
Columns("B:B").Insert Shift:=xlToRight
Range("A19").Select
Selection.FormatConditions.Delete
ActiveCell.FormulaR1C1 = "Fail"
Range("B20").Select
ActiveCell.FormulaR1C1 = _
   "=IF(COUNTIF(RC[+1]:RC[+51],R19C1),""F"","""")"
Range("B20").Select
Selection.AutoFill Destination:=Range("B20:B6000")
Range("B20:B6000").Select
ActiveCell.FormulaR1C1 = _
   "=IF(COUNTIF(RC[+1]:RC[+51],R19C1),""F"","""")"
Range("B19").Select
ActiveCell.FormulaR1C1 = "=countif(R20C2:R6000C2,""F"")"
Range("B1").EntireColumn.AutoFit

欢迎来到！我建议您首先查看（这样做可以获得徽章！）还有。然后，最好清理代码，而不是仅仅粘贴到录音中。请参阅。之后，如果您添加更多有关需要执行的操作、尝试的操作以及出现的错误的详细信息，这将非常有用。您尝试使用宏而不是使用
countif（）
和条件格式？我在宏中执行此操作，因此它将是自动的。我将每天使用模板。每次需要提取84行的数据。无论如何，我能够在代码中合并countif和条件格式。