VBA 複数のIF構文を入れたい

Question

こんにちは。VBAにて分からない点がありまして、お知恵をお貸し頂けましたら幸いです。

IF構文を、最終セルまで入れたいです。

K列が判定結果を表示するようにしたいです。

①H列=I列　の時は”未着”
②J列＝０　の時は”OK”
③J列≠０　かつ　J＞０の時は”利益”
④J列≠０　かつ　J＜０の時は”損”
としたいですが、③・④の設定がうまくできません。

　 Dim maxrow As Long
maxrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row

Dim i
For i = 2 To maxrow

Range("J" & i).FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("K" & i).Formula = "=IF(RC[-3]=RC[-1], ""未着"" ,IF(RC[-1]=0, ""OK"" ),IF（AND（RC[-1]<>0,RC[-1]>0,""利益""))"

Next i

ご確認・ご指摘をお願い致します。

Answer 1

IF(RC[-3]=RC[-1], ""未着"" , IF(RC[-1]=0, ""OK"" ))

この部分で後半の IF は最初の IF の else （条件にマッチしなかった場合）に相当するのですから、

IF(RC[-3]=RC[-1], ""未着"" , IF(RC[-1]=0, ""OK"", IF(RC[-1] > 0, ""利益"", ""損
"")))

とすれば良いのではないでしょうか。

Comments

[yu_tommy]

早々にご回答頂きましてありがとうございました！
無事出来ました！助かりました！
本当にありがとうございました！