如何快速从第一行选到最后一行？

可是如果内容里面有重复的可不可以去掉重复的数据呢？

Sheets(1).Range("A65536").End(xlUp)    'A列最后一个非空单元格怎么样才能定位到这一个单元格呢？

Sheets(1).Range("A65536").End(xlUp)  这一句就是定位到最后一个非空单元格，这个操作就是你可以在工作表中做一下试验，先选中A65536单元格，然后按位CTRL+向上键。这句语句就是对应的这个操作。

至于要去除重复的数据的话，你可以搜索一下论坛中有很多的相关帖子，如果要我做的话，我会用ADO+SQL，或者字典的方法来做，其他的做法一下子想不出，在论坛里搜索一下，应该能找到方法的。由于一下子没时间做，如果你找不到的话，再联系我，我再帮你做。