求助：多个工作表送货单汇总到一张总表

38180203

使用软件为WPS
就是把每天送货的单汇总到一个总表。上次有求助过但是后面送货单改动较大，所以重新求助。日期可能会有几种样式。谢谢

ykcbf1100

我用的是office版本写的代码，不知道在WPS环境下能不能用，仅供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.29
   
2.     Set sh = ThisWorkbook.Sheets("总表")
   
3.     ReDim brr(1 To 10000, 1 To 12)
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 r = .Cells(Rows.Count, 1).End(3).Row
   
8.                 arr = .[a1].Resize(r, 10)
   
9.                 yf = Split(.[i5].Value, ".")(1) & "月份"
   
10.                 For i = 7 To UBound(arr)
    
11.                     If Val(arr(i, 2)) Then
    
12.                         m = m + 1
    
13.                         brr(m, 1) = .[a1]
    
14.                         brr(m, 2) = .[i4]
    
15.                         brr(m, 3) = .[i5]
    
16.                         For j = 2 To UBound(arr, 2)
    
17.                             brr(m, j + 2) = arr(i, j)
    
18.                         Next
    
19.                     End If
    
20.                 Next
    
21.             End With
    
22.         End If
    
23.     Next
    
24.     With sh
    
25.         .UsedRange.Offset(3) = ""
    
26.         .[e2] = yf
    
27.         .[a4].Resize(m, 12) = brr
    
28.     End With
    
29.     MsgBox "OK！"
    
30. End Sub
    
31. 
    

复制代码

38180203

ykcbf1100 发表于 2024-4-29 15:38
我用的是office版本写的代码，不知道在WPS环境下能不能用，仅供参考。。。

老师您好，就是日期有两种格式，会出现下标越界。

ykcbf1100

38180203 发表于 2024-4-29 15:51
老师您好，就是日期有两种格式，会出现下标越界。

改好了。。。

38180203

ykcbf1100 发表于 2024-4-29 18:38
改好了。。。

老师您好，试用后发现物料名称只能纯数字才可以，但是我们的物料名称是中文加数字加字母的就无法识别。谢谢

ykcbf1100

38180203 发表于 2024-4-30 09:02
老师您好，试用后发现物料名称只能纯数字才可以，但是我们的物料名称是中文加数字加字母的就无法识别。谢 ...

按理是没影响的，我还是改一下吧。

ykcbf1100

代码更新一下。。。

1. Sub ykcbf()  '//2024.4.29
   
2.     Set sh = ThisWorkbook.Sheets("总表")
   
3.     ReDim brr(1 To 10000, 1 To 12)
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 r = .Cells(Rows.Count, 1).End(3).Row
   
8.                 arr = .[a1].Resize(r, 10)
   
9.                 yf = Split(Replace(.[i5].Value, "/", "."), ".")(1) & "月份"
   
10.                 For i = 7 To UBound(arr)
    
11.                     If Val(arr(i, 2)) Then
    
12.                         m = m + 1
    
13.                         brr(m, 1) = .[a1]
    
14.                         brr(m, 2) = .[i4]
    
15.                         brr(m, 3) = .[i5]
    
16.                         brr(m, 4) = CStr(arr(i, 2))
    
17.                         For j = 3 To UBound(arr, 2)
    
18.                             brr(m, j + 2) = arr(i, j)
    
19.                         Next
    
20.                     End If
    
21.                 Next
    
22.             End With
    
23.         End If
    
24.     Next
    
25.     With sh
    
26.         .UsedRange.Offset(3) = ""
    
27.         .Columns(4).NumberFormatLocal = "@"
    
28.         .[e2] = yf
    
29.         .[a4].Resize(m, 12) = brr
    
30.     End With
    
31.     MsgBox "OK！"
    
32. End Sub
    

复制代码

38180203

ykcbf1100 发表于 2024-4-30 09:10
按下是没影响的，我还是改一下吧。

老师，试了不行。物料名称如果是中文或者纯中文加数字符号就无法识别。辛苦了

ykcbf1100

38180203 发表于 2024-4-30 09:15
老师，试了不行。物料名称如果是中文或者纯中文加数字符号就无法识别。辛苦了

一个判断语句改一下就行，现在可以了。