如何将“序号”和“合计”之间的整行数据合并入《合并》表

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.13
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("合并")
   
4.     On Error Resume Next
   
5.     ReDim brr(1 To 10000, 1 To 6)
   
6.     For Each sht In Sheets
   
7.         If InStr(sht.Name, "期") Then
   
8.             With sht
   
9.                 r = .UsedRange.Find("合计").Row
   
10.                 arr = .[a1].Resize(r - 1, 6)
    
11.                 fn = .Name
    
12.             End With
    
13.             For i = 5 To UBound(arr)
    
14.                 If Val(arr(i, 1)) Then
    
15.                     m = m + 1
    
16.                     brr(m, 1) = fn
    
17.                     For j = 2 To UBound(arr, 2)
    
18.                         brr(m, j) = arr(i, j)
    
19.                     Next
    
20.                 End If
    
21.             Next
    
22.         End If
    
23.     Next
    
24.     With sh
    
25.         .UsedRange.Offset(4).Clear
    
26.         With .[a5].Resize(m + 1, 6)
    
27.             .Value = brr
    
28.             .Borders.LineStyle = 1
    
29.             .HorizontalAlignment = xlCenter
    
30.             .VerticalAlignment = xlCenter
    
31.         End With
    
32.         r = .Cells(Rows.Count, 1).End(3).Row
    
33.         .Cells(r + 1, 4).Resize(1, 3).FormulaR1C1 = "=SUM(R5C:R" & "[-1]C)"
    
34.         .Cells(r + 1, 1) = "合并"
    
35.         .Cells(r + 1, 1).Resize(1, 3).Merge
    
36.     End With
    
37.     Application.ScreenUpdating = True
    
38.     MsgBox "OK！"
    
39. End Sub
    

复制代码

jjmysjg

yanglinzi 发表于 2024-5-13 12:54
参与一下。。

谢谢，过后补花

jjmysjg

ykcbf1100 发表于 2024-5-13 13:27
参与一下。。。

谢谢，过后补花。