直接复制有值

xing_chen

老师！有表，我希望直接复制有值区域，而不是复制区域后再通过查找，定位空值方法删除空行。敬请老师赐教。谢谢！

sdytsxd991122

先判断一下是否为空就可以了

sdytsxd991122

参与一下

z865593849

查收。。。。。。。。。。

cyq4896

参与一下，请试试。

xing_chen

cyq4896 发表于 2023-6-5 11:53
参与一下，请试试。

谢谢老师！运行如愿

xing_chen

sdytsxd991122 发表于 2023-6-5 10:47
参与一下

谢谢老师！运行如愿

xing_chen

z865593849 发表于 2023-6-5 11:44
查收。。。。。。。。。。

谢谢老师！运行不理想

xing_chen

z865593849 发表于 2023-6-5 11:44
查收。。。。。。。。。。

Sub a()
Sheets("&#187;&#227;×ü").Range("F2:i2").AutoFilter Field:=1, Criteria1:="<>"
Range("F2:i" & [i2].End(xlDown).Row).Copy Sheets(2).[b65536].End(xlUp).Offset(2, 0)
Sheets("&#187;&#227;×ü").Range("F2:12").AutoFilter
End Sub

z865593849

xing_chen 发表于 2023-6-5 13:20
Sub a()
Sheets("&#187;&#227;×ü").Range("F2:i2").AutoFilter Field:=1, Criteria1:=""
Range("F2:i ...

没修改，保存为xlsm，我这能运行，楼上那位的代码有点不足，不能判断文本格式