如何写循环语句？

sampsonpon

如何表达以下这些句？


1、当E列空白时，如何取A列的起始行号(不能用2)和结束行号
    With Sheet5
        iRow2 = .Range("A" & Rows.Count).End(3).Row
        .Range("A2:A" & iRow2).Copy
    End With

2、当E列空白时，如何循环引用D列去重后值？按从小到大顺序引用直到结束
    session.findById("wnd[1]/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN003-LOW").Text = "2025446362"
    session.findById("wnd[1]/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN003-LOW").Text = "2025446363"
    session.findById("wnd[1]/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN003-LOW").Text = "2025446364"
    session.findById("wnd[1]/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN003-LOW").Text = "2025446365"

蓝桥玄霜

去重复的例子：