跪求大家帮忙借力下

15267944129 · 发表于 2019-6-28 18:58

本帖最后由 15267944129 于 2019-6-28 19:12 编辑

附件中“明细输入”工作表将输入大量的数据几万行，当中是客户的流水，标识了交易不同的交易类型

想用vba实现根据工作表“明细分类账”中的L2单元格客户中，自动生成该客户的明细，把交易类型横向呈现，样式如图并附手输效果。感谢感谢

清风竹- · 发表于 2019-6-29 09:41

请看附件。

15267944129 · 发表于 2019-6-29 12:21

非常感谢能克服二十万数据吗

15267944129 · 发表于 2019-6-29 12:34

兄弟太感谢了，你太牛逼了

清风竹- · 发表于 2019-6-29 19:11

15267944129 发表于 2019-6-29 12:21
非常感谢能克服二十万数据吗

Sub Macro1()
On Error Resume Next
mc = [l2]
If mc = "" Then Exit Sub
m = Range("A" & Rows.Count).End(3).Row 'm = [a65536].End(3).Row
m1 = Sheet1.Range("A" & Rows.Count).End(3).Row 'Sheet1.[a65536].End(3).Row
arr = Sheet1.Range("a3:h" & m1)
Range("a4:l" & m).ClearContents
ReDim brr(1 To UBound(arr), 1 To 12)
lx = Array("返利金额", "优惠金额", "赔付金额", "坏账金额", "押金", "实收金额")
   For i = 1 To UBound(arr)
      If arr(i, 4) = mc Then
         k = k + 1
         brr(k, 1) = arr(i, 2)
         brr(k, 2) = arr(i, 3)
         w = Application.Match(arr(i, 5), lx, 0)
         brr(k, 5 + w) = arr(i, 8)
      End If
   Next
   Range("a4").Resize(k, 12) = brr
End Sub

以上代码突破65536行数限制。

15267944129 · 发表于 2019-6-30 15:27

清风竹- 发表于 2019-6-29 19:11
Sub Macro1()
On Error Resume Next
mc = [l2]

你好感谢你的支持，谢谢，有以下三个问题1、你做的那个显示正确，但会时不时工作表“明细分类账”中标题栏动不动运行的时候会消失，不知道何故
2、因为我这表格以后要长期用，我想吃透你的中心意思，按你的大致思路，我自己做了一遍，但就是显示不正确，运行时也会出现时不时消失（不是每次）
3、帮忙看下按你的中心思路做的，我的代码哪里出现了问题

再次感谢！！