VBA 报错1004 未选定分列的数据

musicspa

需求如图

大六九

1. Sub 汇总个银行工作表()
   
2. Dim brr()
   
3. For Each sht In Sheets
   
4. If sht.Name <> "汇总" Then
   
5. Mrow = sht.Cells(Rows.Count, 1).End(xlUp).Row
   
6. Arr = sht.Range("a2:d" & Mrow)
   
7. For i = 1 To UBound(Arr)
   
8. n = n + 1
   
9. ReDim Preserve brr(1 To 4, 1 To n)
   
10. If sht.[b1] = "交易日期" Then
    
11. sht.[a:a].NumberFormatLocal = "G/通用格式"
    
12. brr(1, n) = Arr(i, 2)
    
13. brr(2, n) = Arr(i, 1)
    
14. Else
    
15. sht.[a:a].NumberFormatLocal = "G/通用格式"
    
16. brr(1, n) = Arr(i, 1)
    
17. brr(2, n) = Arr(i, 2)
    
18. End If
    
19. brr(3, n) = Arr(i, 3)
    
20. brr(4, n) = Arr(i, 4)
    
21. Next i
    
22. End If
    
23. Next
    
24. If Not n = 0 Then
    
25. [a1].CurrentRegion.Offset(1).ClearContents
    
26. [a2].Resize(n, 4) = Application.Transpose(brr)
    
27. [a:a].NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
    
28. Else
    
29. MsgBox "各工作表没有数据，如有问题可以联系我"
    
30. End If
    
31. End Sub

复制代码

注意事项
第一，其中A银行中的 B列，日期格式是数字，一般日期没有这边表达的，所以改不过来

第二，可以删除你所谓 替换原则，分类报表，好像用不着了