求大神帮助写一个合并EXCEL表格的VBA

yangling1975

grf1973 发表于 2024-1-17 14:03
两个问题：
1、“用途”不是每张表都有，所以不能统一提取
2、“交易日期”因为各表格式混乱，会出现数据 ...

VBA能帮我粘贴到文本框中，方便复制吗？

grf1973

yangling1975 发表于 2024-1-17 19:31
VBA能帮我粘贴到文本框中，方便复制吗？

1、已上传了附件，里面有代码。
2、日期格式不一致的问题，编段代码统一一下。或者干脆用数组，通过查找标题列的方法得到结果。

yangling1975

grf1973 发表于 2024-1-18 10:12
1、已上传了附件，里面有代码。
2、日期格式不一致的问题，编段代码统一一下。或者干脆用数组，通过查找 ...

运行出现错误，显示如图

grf1973

我这自己运行没问题。看看你源数据里是不是某个标题不存在。

yangling1975

grf1973 发表于 2024-1-18 13:23
我这自己运行没问题。看看你源数据里是不是某个标题不存在。

是的，有个标题不一致，谢谢大神~~

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.19
   
2.     Dim arr, brr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("汇总")
   
5.     For x = 1 To 8
   
6.         s = sh.Cells(1, x)
   
7.         d(s) = x
   
8.     Next
   
9.     ReDim brr(1 To 10000, 1 To 8)
   
10.     For Each sht In Sheets
    
11.         If sht.Name <> sh.Name Then
    
12.             arr = sht.UsedRange
    
13.             For i = 2 To UBound(arr)
    
14.                 If arr(i, 1) <> Empty Then
    
15.                     m = m + 1
    
16.                     For j = 1 To UBound(arr, 2)
    
17.                         s = arr(1, j)
    
18.                         If d.exists(s) Then
    
19.                             brr(m, d(s)) = arr(i, j)
    
20.                         End If
    
21.                     Next
    
22.                 End If
    
23.             Next
    
24.         End If
    
25.     Next
    
26.     With sh
    
27.         .UsedRange.Offset(1).Clear
    
28.         With .[a2].Resize(m, 8)
    
29.             .Value = brr
    
30.             .Borders.LineStyle = 1
    
31.             .HorizontalAlignment = xlCenter
    
32.             .VerticalAlignment = xlCenter
    
33.         End With
    
34.     End With
    
35.     Set d = Nothing
    
36.     MsgBox "OK！"
    
37. End Sub
    

复制代码

ykcbf1100

yangling1975 发表于 2024-1-17 12:13
已上传有数据的示例，请大神有空时看看，表格中只添加了四家银行数据，工作中有三十多家。

附件供参考，原则上银行多少都不用改代码。

yangling1975

ykcbf1100 发表于 2024-1-19 08:37
附件供参考，原则上银行多少都不用改代码。

大神，感谢感谢！！！，膜拜！！！

yangling1975

ykcbf1100 发表于 2024-1-19 08:37
附件供参考，原则上银行多少都不用改代码。

把三十多张卡银行流水粘贴过去后，点击汇总，显示下标越界，请问大神如何处理？

yangling1975

ykcbf1100 发表于 2024-1-19 08:37
附件供参考，原则上银行多少都不用改代码。

我上传了三个会出现下标错误的银行流水（会出现问题的不只三个卡号），请大神看一看，怎么解决？