Sub dd()[A65536].End(xlUp).Offset(1, 0).SelectEnd Sub
Range("a1").End(xlDown).Offset(1, 0).Activate要看你源数据连续不连续，如果连续，这个公式没问题，不连续就不起作用
