同個工作表ok 不同工作表指定要用range(sheet.[a2],sheet.[a65536].end(xlup))的方式
http://goo.gl/MliGzy連結重下sheet.[A2].Resize(sheet.[A:A].Find("").Row-2) 試試或是sheet.Range("A2:A" & sheet.[a65536].End(xlUp).Row)那是因為迴圈myRange.Row要改寫myRange.Rows.count是指取代還是從第一列找嗎?如果是的話這是因為迴圈起始值為1的關係For RangeIndex = 1