怎么筛选出相同单据

yaozong

With Sheets("2")
  .[a11].CurrentRegion.ClearContents
  If m > 0 Then .[a11].Resize(m, 4) = brr
End With
改为：
With Sheets("2")
  .[a1].CurrentRegion.ClearContents
  If m > 0 Then .[a1].Resize(m, 4) = brr
End With

kuaile_xiawa

yaozong 发表于 2019-10-9 19:55
With Sheets("2")
  .[a11].CurrentRegion.ClearContents
  If m > 0 Then .[a11].Resize(m, 4) = brr

很不好意思  我具体实践了下  觉得应该再多加一列原数量  要不数据一整月刷下来   次数为2的有好多（不是错的，是直接录为-1，-2的）  我重新更新了下附件  你再帮忙修改下

kuaile_xiawa

yaozong 发表于 2019-10-9 19:55
With Sheets("2")
  .[a11].CurrentRegion.ClearContents
  If m > 0 Then .[a11].Resize(m, 4) = brr

筛选相同工序单号.zip (18.23 KB, 下载次数: 1)

2019-10-13 14:06 上传

点击文件名下载附件

多加一列原数量的情况 要怎么处理呢