求VBA代码

地道战

我有一个工作簿，记录了一个月（3月21日——4月20日）的产量数据，每天一张工作表，表中各工序的产量明细数据是用公式记录在单元格中的，具体见附件，比如：3.21工作表是指3月21日的产量，H3单元格过蒸汽松布工序的产量明细数据记录为=981+147（各表中产量明细数据个数不定，可能是1个，也可能是多个），现在想将全月每天各表中的数据全部拆分为流水账，记录到“流水”工作表中，其中3月21日的产量第一、第二位工人的产量作为示例已经做了人工拆分，请大神帮忙，按照此人工拆分的样式将全月所有数据全部拆分成流水账。关键语句请大神写一下注释，我还有很多个这样的工作簿，方便将程序复制到其它工作簿里用，也方便我学习。万分感谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr(1 To 10000, 1 To 5)
   
4.   Dim ws As Worksheet
   
5.   m = 0
   
6.   For Each ws In Worksheets
   
7.     If InStr(ws.Name, ".") <> 0 Then
   
8.       With ws
   
9.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.         arr = .Range("a2:o" & r).Formula
    
11.         For j = 1 To UBound(arr, 2)
    
12.           arr(1, j) = Replace(arr(1, j), vbLf, "")
    
13.         Next
    
14.         For i = 2 To UBound(arr)
    
15.           For j = 3 To UBound(arr, 2) - 1
    
16.             If Len(arr(i, j)) <> 0 Then
    
17.               crr = Split(Mid(arr(i, j), 2), "+")
    
18.               For k = 0 To UBound(crr)
    
19.                 m = m + 1
    
20.                 brr(m, 1) = arr(i, 2)
    
21.                 brr(m, 2) = arr(i, 1)
    
22.                 brr(m, 3) = ws.Name
    
23.                 brr(m, 4) = arr(1, j)
    
24.                 brr(m, 5) = Val(crr(k))
    
25.               Next
    
26.             End If
    
27.           Next
    
28.         Next
    
29.       End With
    
30.     End If
    
31.   Next
    
32.   With Worksheets("流水")
    
33.     .UsedRange.Offset(1, 0).ClearContents
    
34.     .Range("a2").Resize(m, UBound(brr, 2)) = brr
    
35.   End With
    
36. End Sub
    

复制代码

chxw68

附件供参考，不懂的问题百度吧，靠帮助者注释是学不会的。

地道战

chxw68 发表于 2018-6-6 21:58
附件供参考，不懂的问题百度吧，靠帮助者注释是学不会的。

高手，真正的高手，解决了我的大问题，万分感谢。
基本能看懂，再详细研究了一下，应该能搞通。