两个方法可以实现：

假设条件：原来的数据放在sheet1里面，sheet1名称就是sheet1：

向右拖动到空白（sheet1里面最后一列UC），然后向下拖动到空白（最后一行3500+）。

完成你的要求

Sub chouqu()

For i = 1 To 655

Rows(i &