=TEXT(
EDATE(DE2,
(DAY(DE2)>20)+(DT2<>""))
,"yyyy""_""m")
の並び順で

For cnt = 2 To i

Range("HJ1") =

Format( _'「=TEXT(」にあたる部分

**********'「EDATE(DE2,」EDATEにあたる部分

'「(DAY(DE2)>20)+(DT2<>""))」にあたる部分
DateSerial(Range("DE" & cnt) > 20 + (Range("DT" & cnt) <> "")　

,"yyyy""_""m" '「,"yyyy""_""m")」にあたる部分

Next cnt