怎么筛选出相同单据

kuaile_xiawa

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

2019-10-10 14:37 上传

点击文件名下载附件

一个月的单据很多，有的单据需要分成-1，-2，-3的等式录入，有时又不需要，有没什么可以把相同单号的找出来预防重复录入
可以把原数量与 录错的数量区分开来

有人不？

chenyun1234

最简单的


就是筛选，复制到表二里面，


多思考一下！

yaozong

Sub test()
Dim arr, i&
arr = [a1].CurrentRegion.Value
For i = 1 To UBound(arr)
  If InStr(arr(i, 2), "-") > 0 Then
    arr(i, 2) = Left(arr(i, 2), InStr(arr(i, 2), "-") - 1)
  End If
Next
[m1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

kuaile_xiawa

yaozong 发表于 2019-10-7 17:17
Sub test()
Dim arr, i&
arr = [a1].CurrentRegion.Value

我不是很明白  能否帮忙上传个模板下？

kuaile_xiawa

chenyun1234 发表于 2019-10-7 16:51
最简单的

因为数据量较多，不知用筛选是怎么个操作方法？

yaozong

kuaile_xiawa 发表于 2019-10-8 13:46
我不是很明白  能否帮忙上传个模板下？

你应在表2提供个需要的结果。

chenyun1234

kuaile_xiawa 发表于 2019-10-8 13:48
因为数据量较多，不知用筛选是怎么个操作方法？

1、框框里输入【''-"】,确认
2、复制刚筛选的到【表2】

kuaile_xiawa

yaozong 发表于 2019-10-8 15:39
你应在表2提供个需要的结果。

好的，我重新上传了附件  麻烦帮忙看下，万分感谢。

kuaile_xiawa

chenyun1234 发表于 2019-10-8 17:28
1、框框里输入【''-"】,确认
2、复制刚筛选的到【表2】

你这个方法并不能把没“-”的与有“-”的  相同的工序 单号 整理在一起啊？

yaozong

kuaile_xiawa 发表于 2019-10-9 08:12
好的，我重新上传了附件  麻烦帮忙看下，万分感谢。

1. Sub test()
   
2. Dim d, arr, s$, i&, m&
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = Sheets("Sheet1").[a1].CurrentRegion.Value
   
5. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) + 1)
   
6. For i = 2 To UBound(arr)
   
7.   If InStr(arr(i, 2), "-") > 0 Then
   
8.     s = Trim(Left(arr(i, 2), InStr(arr(i, 2), "-") - 1))
   
9.     If Not d.exists(s) Then
   
10.       m = m + 1
    
11.       d(s) = m
    
12.       brr(m, 1) = arr(i, 1)
    
13.       brr(m, 2) = s
    
14.       brr(m, 3) = arr(i, 3)
    
15.       brr(m, 4) = 1
    
16.     Else
    
17.       brr(d(s), 3) = brr(d(s), 3) + arr(i, 3)
    
18.       brr(d(s), 4) = brr(d(s), 4) + 1
    
19.     End If
    
20.   End If
    
21. Next
    
22. With Sheets("2")
    
23.   .[a1].CurrentRegion.Offset(1).ClearContents
    
24.   If m > 0 Then .[a2].Resize(m, 4) = brr
    
25. End With
    
26. End Sub

复制代码