所以我有一个程序循环遍历文件夹中的所有excel文件并将公式应用于单元格 . 这样可行 . 如果公式恢复正确，我还想将所有细胞染成黄色 . 这样可行 . 当我把它们放在一起时，所有单元格都返回False，并以红色阴影显示 . 但是，当我独立运行颜色代码时，它可以工作 . 我的猜测是，在着色循环时，公式不会应用 .

有关如何确保在For循环之前应用公式的任何想法？

lastRow = wb.Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row

        wb.Worksheets(1).Range("H2").Select
        ActiveCell.FormulaR1C1 = "=NOT(ISNA(MATCH(RC[-6],'\\netdrv00\pcps\PlannerReports\BSO Planners\New Automation Line\[_MyDataFilePrep.xlsm]CarrierDB'!C5:C5,0)))"
        Range("H2").Select
        Selection.AutoFill Destination:=Range("H2:H" & lastRow), Type:=xlFillDefault

    For j = wb.Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If wb.Worksheets(1).Cells(j, "H") = True Then
            wb.Worksheets(1).Cells(j, "H").Interior.ColorIndex = 6
            Else: wb.Worksheets(1).Cells(j, "H").Interior.ColorIndex = 3
                End If

    Next j
vba colors formula