Simone
因为代码错了，一遇到空行就停止了。要确定使用区域的话也可以这样：Functionselect_range()DimiAsLong,jAsLong,numAsLong'定义几个变量num=0'用来标识空行的个数i=Application.WorksheetFunction.CountA("A:A")+100'此处先调用函数输出A列的非空单元格数，但由于中间可能有空格，所以我再加100，以扩大收索范围，'您可根据实际情况再作调整......'以下通过for循环，把定位的1到i列依次遍历，如果有连续100行为空则认定下面就没有数据了，'返回实际列数,从而确定实际区间Forj=1ToiIfApplication.WorksheetFunction.Trim(Sheet1.Range("A"&j))=""Then'此处判断单元格经去空格处理后是否为空，位到a1单元格,算列数从此单元格开始....Ifnum=100Thenselect_range=j-numElsenum=num+1EndIfElsenum=0'有数，就清空，，，，EndIfNextjEndFunction
