求助，每天的送货单汇总到一张工作表

38180203

LIUZHU 发表于 2024-4-24 14:24
WPS什么版本的？是WPS2019吗？

是的，WPS2019

LIUZHU

38180203 发表于 2024-4-24 14:38
是的，WPS2019

我这里不报错，不过我是专业版的

ykcbf1100

参与一下，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.24
   
2.     Dim brr(1 To 10000, 1 To 14)
   
3.     Set sh = ThisWorkbook.Sheets("总表")
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 kh = .[b4]: dh = .[k4]
   
8.                 r = .Cells(Rows.Count, 1).End(3).Row
   
9.                 arr = .Range("a5:l" & r)
   
10.             End With
    
11.             For i = 2 To UBound(arr)
    
12.                 If Val(arr(i, 1)) Then
    
13.                     m = m + 1
    
14.                     brr(m, 1) = kh
    
15.                     brr(m, 2) = dh
    
16.                     For j = 1 To UBound(arr, 2)
    
17.                         brr(m, j + 2) = arr(i, j)
    
18.                     Next
    
19.                 End If
    
20.             Next
    
21.         End If
    
22.     Next
    
23.     With Sheets("总表")
    
24.         .UsedRange.Offset(2).Clear
    
25.         .[a2].Resize(1, 14).Interior.Color = 49407
    
26.         .Columns(4).NumberFormatLocal = "m月d日"
    
27.         With .[a3].Resize(m, 14)
    
28.             .Value = brr
    
29.             .Borders.LineStyle = 1
    
30.             .HorizontalAlignment = xlCenter
    
31.             .VerticalAlignment = xlCenter
    
32.         End With
    
33.     End With
    
34.     MsgBox "OK！"
    
35. End Sub
    

复制代码

38180203

ykcbf1100 发表于 2024-4-24 16:06
参与一下。。。

老师，，这行代表的是什么意思，没理解到

ykcbf1100

38180203 发表于 2024-4-24 16:53
才师，，这行代表的是什么意思，没理解到

你就说好不好用就行了。没理解的话，你慢慢理解。

38180203

ykcbf1100 发表于 2024-4-24 16:56
你就说好不好用就行了。没理解的话，你慢慢理解。

好用，没问题，就是到时想改动下列数行数。这样

ykcbf1100

38180203 发表于 2024-4-24 17:07
好用，没问题，就是到时想改动下列数行数。这样

行数不用改，列数改一下就行了，这个简单。

ykcbf1100

38180203 发表于 2024-4-24 16:53
老师，，这行代表的是什么意思，没理解到

看在你送花的份上，我解释一下吧，那行代码的意思是给标题行设置颜色。

38180203

ykcbf1100 发表于 2024-4-24 17:10
看在你送花的份上，我解释一下吧，那行代码的意思是给标题行设置颜色。

     谢谢你