同个工作表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