求帮助 将满足条件的区域复制到新表

aellu

将框架以及订单复制到新建的一张新表里面，   在每个框架前面表明有  “本次无” 的条件则不进行复制，每个小计最好是能保留相应的公式，方便检查
最后的合计也能保留公式，方便检查。
分类测试.rar (13.04 KB, 下载次数: 2)

2018-9-22 12:22 上传

点击文件名下载附件

lsc900707

copy，删掉含有“本次无”的行！

1. Sub gj23w98()
   
2.     Sheet52.Copy after:=Sheets(Sheets.Count)
   
3.     ActiveSheet.Name = "副本"
   
4.    With Sheets("副本")
   
5.         arr = .UsedRange
   
6.         For i = UBound(arr) To 2 Step -1
   
7.             If InStr(arr(i, 3), "本次无") Then .Rows(i).Delete
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

lsc900707

代码需要审核，先测试附件吧：

aellu

lsc900707 发表于 2018-9-22 14:10
代码需要审核，先测试附件吧：

非常的感谢