[Excel] エクセルマクロのVBAで「Else に対応する If がありません」というエラーの原因

現象：Ifがあるのに、エラーが出る。

原因： If文を下記のように１行で書いている。

　　　例：If Range("E1").Value > 10 Then Range("F1").Value = "X"

解決策：以下のように、Thenの後で改行する。

If Range("E1").Value > 10 Then
Range("F1").Value = "X"
ElseIf Range("E1").Value > 5 Then
Range("F1").Value = "Y"
Else
Range("F1").Value = "Z"
End If

--------------------------

【参考記事】http://kenkitagawa.cocolog-nifty.com/blog/2023/01/post-d8cf2d.html

[Excel] エクセルマクロのVBAで「Next に対応する For がありません」というエラーの原因

現象：Forがあるのに、エラーが出る

解決策：多くの場合、For～Nextのループ内にIf文があり、対応する End If がないのが原因