.Range("B65536"),把B改成A试试吧，不知道问题是不是出在这里你这是以B列做参考合并的，和其他列相比，B列最下面有几个空单元格，就会少几条数据。有些列数据不完整，有空单元格，以数据完整的列做为参考查找最后一行行号。
