Excel 通过更改来反转公式>；至<；

我写公式的代码有效

范围（“A2”）。选择
a=范围（选择，选择。结束（xlDown））。计数+1
范围（“N2”）。选择
ActiveCell.FormulaR1C1=_
“=如果（RC[-4]=”、“，”，如果（RC[-2]=”不适用“，”不适用“，”如果（RC[-2]=”不适用“，”_
“不适用”，如果（RC[-2]>=RC[-4]，“符合”、“未符合”）
Selection.AutoFill Destination:=范围（单元格（2，14），单元格（a，14））

我需要为F列中有特定文本的每一行使用一个反向公式

这些报告是：“AR17报告”、“CS02报告”、“HSCBD报告”、“KHG报告”

如果F列有任何这些文本，则N列中的公式应颠倒

---

而不是

，它应该是

一个反转公式的过程可能如下所示：

Sub ReverseFormula()

    Dim c As Range
    Dim sReversedFormula As String

    For Each c In ThisWorkbook.Worksheets("TypeProperName").Range("F1:F100").Cells
        Select Case c.Value
            Case "AR17-Report", "CS02-Report", "HSCBD-Report", "KHG-Report"

                '=IF(J2="","",IF(L2="NA","N/A",IF(L2="N/A","N/A",IF(L2<=J2,"Met","Not Met")))) 
                sReversedFormula = "=IF(J" & c.Row & "='',''IF(L" & c.Row & "='NA', 'N/A', IF(L" & c.Row & "<=J" & c.Row & ", 'Met', 'Not Met')))"
                c.Offset(ColumnOffset:=8).Formula = sReversedFormula
            Case Else
                'do nothing
        End Select
    Next

End Sub

子反向公式（）
调光范围
Dim SRERVERSED公式作为字符串
此工作簿中的每个c。工作表（“TypePropertName”）。范围（“F1:F100”）。单元格
选择案例c.值
案例“AR17报告”、“CS02报告”、“HSCBD报告”、“KHG报告”
如果（J2=“”，“”，（L2=“N/A”，“N/A”，如果（L2＝“N/A”，“N/A”），如果（L2＝“n/A”，“n/A”）是我的整个代码的一部分，它是在中间，所以我只需要添加某物。每一个都通过一次点击来执行。我添加了一个按钮并为它分配了一个宏。或者任何建议反转公式。我的代码中的默认公式是：（j2＝“”，”，如果（L2=“NA”，“N/A”）。，如果（L2=”N/A“，”N/A“，”如果（L2>=J2，“满足”，“未满足”）））。当F列中存在任何这些文本时，N列中的公式应为=如果（J2=”，“”如果（L2=”NA“，”N/A“，”如果（L2=”N/A“，”如果（L2不管您发布的代码的哪一部分。您可以在代码中使用上述过程的主体。正如您所看到的，我使用字符串变量来保存公式，因此您甚至可以在for循环中将其更改为
sReversedFormula=“=IF（L）”和c.Row&“=””…
尝试过它，但将公式替换为sReversedFormula=“=IF（J2=”后出现错误“，”，如果（L2=“不适用”，“不适用”，如果（L2=“不适用”，“不适用”，如果（L2>=J2，“符合”，“未符合”））"什么错误？什么地方出错了？你看到前面的评论了吗？为了得到正确的公式，你必须用当前行替换<代码> 2代码>代码。所以，当我把它放在上面时，你必须连接字符串和行号。你指的是当前行吗？我有成千上万的数据，要替换的公式都是在随机位置中间的某个地方。我的数据没有确定的计数，因为它每天都在变化。