如何用EXCEL批量自动生成对账单

jenny9420

由于每月要每个商户做一份对账单进行对账，工作繁琐耗时，在网上看到一个视频分享用EXCEL批量自动生成对账单，但按视频里的操作设置弄了几天都弄不成，在此求大神指点！！附上数据表，望大神给我弄个模板，然后我每月把数据粘到明细表后对账单就自动带出相应数据，万分感谢！！！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Application.ScreenUpdating = False
   
6.   Application.DisplayAlerts = False
   
7.   Set d = CreateObject("scripting.dictionary")
   
8.   With Worksheets("明细")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
11.     arr = .Range("a2").Resize(r - 1, c)
    
12.   End With
    
13.   For i = 1 To UBound(arr)
    
14.     If Not d.exists(arr(i, 5)) Then
    
15.       m = 1
    
16.       ReDim brr(1 To 6, 1 To m)
    
17.     Else
    
18.       brr = d(arr(i, 5))
    
19.       m = UBound(brr, 2) + 1
    
20.       ReDim Preserve brr(1 To 6, 1 To m)
    
21.     End If
    
22.     brr(1, m) = m
    
23.     brr(2, m) = arr(i, 2)
    
24.     brr(3, m) = arr(i, 3)
    
25.     brr(4, m) = arr(i, 4)
    
26.     brr(5, m) = brr(4, m) * 0.1
    
27.     brr(6, m) = brr(4, m) - brr(5, m)
    
28.     d(arr(i, 5)) = brr
    
29.   Next
    
30.   For Each aa In d.keys
    
31.     On Error Resume Next
    
32.     Worksheets(aa).Delete
    
33.     On Error GoTo 0
    
34.     brr = d(aa)
    
35.     ReDim crr(1 To UBound(brr, 2), 1 To UBound(brr))
    
36.     For i = 1 To UBound(brr)
    
37.       For j = 1 To UBound(brr, 2)
    
38.         crr(j, i) = brr(i, j)
    
39.       Next
    
40.     Next
    
41.     With Worksheets("模板")
    
42.       .UsedRange.Offset(4, 0).ClearContents
    
43.       .Range("b3") = aa
    
44.       .Range("a5").Resize(UBound(crr), UBound(crr, 2)) = crr
    
45.       .Copy after:=Worksheets(Worksheets.Count)
    
46.       ActiveSheet.Name = aa
    
47.     End With
    
48.   Next
    
49. End Sub
    

复制代码

chxw68

这个问题要用VBA解决。

rarnma

在坛子里学到了一种做法，楼主看看能用不

Lgxxxx

是这个意思吗?

有料大排档

数据透视表  以商铺名称列出相应的数据

jenny9420

chxw68 发表于 2021-8-27 19:56

感谢大神指点！！

jenny9420

Lgxxxx 发表于 2021-8-28 17:12
是这个意思吗?

感谢感谢！！

jenny9420

rarnma 发表于 2021-8-28 16:12
在坛子里学到了一种做法，楼主看看能用不

感谢感谢！

jenny9420

有料大排档 发表于 2021-8-28 19:19
数据透视表  以商铺名称列出相应的数据

真的太感谢了，一下子就解决了！