可以用下面的语句:
最后一个值 = Sheets("sheet1").Range("A65535").End(xlUp).Value
用 col=range("C1").end(xltoright).column '找到最后非空一列
语句可能存在问题:当A1至A5数据连续时,该语句能返回正确
的结果,但当不连续时,将得不到最后一个非空结果
如
1
2
4
5
将只得到2,而不是5(其中3是空白,如果3有数值,将得到5)
col=range("C1").end(xltoright).column '找到最后非空一列
cells(3,col)即为你所想要的单元格