数据合并自动合并

小神001

现在框架已经做好了，简单的东西弄好了，需要增加一个按钮，按钮点了之后就自动把数据保存在汇总表格里面。

grf1973

中间有个合并单元格。。。。。

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()  '//2025.12.1
   
2.     ReDim brr(1 To 100, 1 To 10)
   
3.     With Sheets("出货单")
   
4.         For i = 8 To 13
   
5.             If .Cells(i, 7).Value Then
   
6.                 m = m + 1
   
7.                 brr(m, 1) = CDate(.[j5].Value)
   
8.                 brr(m, 2) = .[j4].Value
   
9.                 brr(m, 3) = .[e3].Value
   
10.                 brr(m, 4) = .Cells(i, 3).Value
    
11.                 brr(m, 5) = .Cells(i, 4).Value
    
12.                 brr(m, 6) = .Cells(i, 6).Value
    
13.                 For j = 7 To 10
    
14.                     brr(m, j) = .Cells(i, j).Value
    
15.                 Next
    
16.             End If
    
17.         Next
    
18.     End With
    
19.     With Sheets("汇总信息")
    
20.         .UsedRange.Offset(2).ClearContents
    
21.         .Columns(2).NumberFormatLocal = "@"
    
22.         .[a3].Resize(m, 10) = brr
    
23.     End With
    
24. End Sub
    

复制代码

WANT-T

很多vba的教程里都有，简单的出入库程序，一大堆

洋务德雷

。。。。。。。。。。。

小神001

ykcbf1100 发表于 2025-12-1 16:30
附件供参考。。。

感谢，但是他的汇总会顶替上一次的数据。汇总里面就没有用了

小神001

grf1973 发表于 2025-12-1 16:27
中间有个合并单元格。。。。。

感谢这个最实用，能不加一个增加和减少的按钮，现在汇总保存的只有6行内有数据的，如果是10行的话还是直保存6行

小神001

洋务德雷 发表于 2025-12-1 16:47
。。。。。。。。。。。

感谢！汇总的时候，没有数据的行不用汇总，然后客户和单号时间也没有汇总

ykcbf1100

小神001 发表于 2025-12-1 16:55
感谢，但是他的汇总会顶替上一次的数据。汇总里面就没有用了

需求在求助时就要一次性说清楚，不要等别人写好了代码又再来提要求。
这次改一下吧，下不为例。