Excel 根据If.Found=True结果执行多个操作

我想知道如何根据

If.Found=True

result？？ 在下面显示的

If.Found=True

之后的宏片段中，只执行了一个操作：

如果.Found=True，那么mySheet.Cells（x，5）=mySheet.Range（“AD17”）

我需要写4行不同的代码，如果.Found=True，我想执行它们

     If Application.WorksheetFunction.CountA(mySheet.Range("A12:D15")) = 2 And _
              mySheet.Range("E12") = "????" And _
              mySheet.Range("H12") = "k" Then
                rng.SetRange Start:=startPos, End:=endPos
                  With rng.Find
                   .Text = arr(0) & " " & arr(wrdCount1 - 1) & " oświadcza ponadto, że jest wdową."
                   .MatchWildcards = False
                   .MatchCase = False
                   .Forward = True
                   .Execute
                     If .Found = True Then mySheet.Cells(x, 5) = mySheet.Range("AD17")   
                                 'how to insert more actions after IF .Found here without repeating If statement;
                 End With
     ElseIf Application.WorksheetFunction.CountA(mySheet.Range("A12:D15")) = 2 And _
           mySheet.Range("E12") = "????" And _
           mySheet.Range("H12") = "m" Then
               rng.SetRange Start:=startPos, End:=endPos
               With rng.Find
                  .Text = arr(0) & " " & arr(wrdCount1 - 1) & " oświadcza ponadto, że jest wdowcem."
                  .MatchWildcards = False
                  .MatchCase = False
                  .Forward = True
                  .Execute
                   If .Found = True Then
                       mySheet.Cells(x, 5) = mySheet.Range("AD18")
                   Else
                       rng.SetRange Start:=startPos, End:=endPos
                       With rng.Find
                           .Text = "a przedmiotowego nabycia dokona do majątku osobistego za pieniądze pochodzące z jego majątku osobistego,"
                           .MatchWildcards = False
                           .MatchCase = False
                           .Forward = True
                           .Execute
                       If .Found = True Then mySheet.Cells(x, 6) = mySheet.Range("AE14")  
                                   'how to insert more actions after IF .Found here without repeating If statement;
                       End With
                   End If
             End With
     End If

我需要做的是根据

If.Found=True

结果填充3或4个不同的单元格，而不在每行重复

If.Found=True

我在寻找一些优雅的代码

     If .Found = True Then mySheet.Cells(x, 6) = mySheet.Range("AE14") And _
                       mySheet.Cells(x, 7) = "red" And _
                       mySheet.Cells(x, 8) = "100 000" And _
                       mySheet.Cells(x, 10) = mySheet.Range("AE25") * 0,23

---

这么简单就行了

If .Found = True Then 
          mySheet.Cells(x, 6) = mySheet.Range("AE14") 
          mySheet.Cells(x, 7) = "red" 
          mySheet.Cells(x, 8) = "100 000" 
          mySheet.Cells(x, 10) = mySheet.Range("AE25") * 0,23
End if

---

这么简单就行了

If .Found = True Then 
          mySheet.Cells(x, 6) = mySheet.Range("AE14") 
          mySheet.Cells(x, 7) = "red" 
          mySheet.Cells(x, 8) = "100 000" 
          mySheet.Cells(x, 10) = mySheet.Range("AE25") * 0,23
End if

“then”之后的所有内容都需要转到下一行，如果要结束if语句，则需要结束if语句“then”之后的所有内容都需要转到下一行，如果要结束if语句，则需要结束if语句