求助各位老师简化VBA，提升运行效率，非常感谢

不知道为什么 · 发表于 2018-6-21 21:53

zhycl 发表于 2018-6-21 21:51
老师您的代码，能给发个能剪切的吗？谢谢了

建议先照着写写，感觉这样会理解的快哦

乐乐2006201505 · 发表于 2018-6-22 22:21

Sub 分类汇总()
Set dic = CreateObject("scripting.dictionary")
Dim brr()
arr = Sheets("sheet1").[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 10)
For i = 2 To UBound(arr)
      ms = arr(i, 2) & arr(i, 3)
      If Not dic.exists(ms) Then
         x = x + 1
         dic(ms) = x
         For j = 1 To 5
            brr(x, 1) = arr(i, j)
         Next j
      Else
         brr(dic(ms), 1) = brr(dic(ms), 1) & "," & arr(i, 1)
         brr(dic(ms), 5) = brr(dic(ms), 5) + arr(i, 5)
      End If
Next i
With Sheets("sheet2")
      .Cells.ClearContents
      Sheets("sheet1").[a1].Resize(1, 5).Copy .[a1]
      .Columns(1).NumberFormatLocal = "@"
      .[a2].Resize(dic.Count, 5) = brr
End With
Set dic = Nothing
End Sub

zhycl · 发表于 2018-6-25 18:36

不知道为什么发表于 2018-6-21 21:53
建议先照着写写，感觉这样会理解的快哦

首先感谢老师的帮助，但我把代码写进VBA后，运行得不到最终结果，我按照两种方式进行的。
第一种，将VBA放到Sheet2表下面，运行后直接清屏了。如下图结果。
第一种情况.jpg

第二种，将VBA放到模块下面，运行后提示错误，如下图。
第二种情况.jpg

还得请老师给解决一下，非常感谢。附上测试附件

示例-调测.rar (17.72 KB, 下载次数: 3)

lsc900707 · 发表于 2018-6-25 18:50

zhycl 发表于 2018-6-25 18:36
首先感谢老师的帮助，但我把代码写进VBA后，运行得不到最终结果，我按照两种方式进行的。
第一种，将VBA ...

Sheets("Sheet1").[a1].Resize(1, 5).Copy [a1]改成：
Sheets("Sheet1").[a1].Resize(1, 5).Copy .[a1]

不知道为什么 · 发表于 2018-6-25 18:52

zhycl 发表于 2018-6-25 18:36
首先感谢老师的帮助，但我把代码写进VBA后，运行得不到最终结果，我按照两种方式进行的。
第一种，将VBA ...

称不上老师哦，我也是和你差不多。你的代码出错的地方：
Sheets("sheet1").[a1].Resize(1, 5).Copy .[a1]‘copy 和 .[a1] 之间有空格。

lsc900707 · 发表于 2018-6-25 18:55

zhycl 发表于 2018-6-25 18:36
首先感谢老师的帮助，但我把代码写进VBA后，运行得不到最终结果，我按照两种方式进行的。
第一种，将VBA ...

参考附件：

zhycl · 发表于 2018-6-25 19:22

lsc900707 发表于 2018-6-25 18:50
Sheets("Sheet1").[a1].Resize(1, 5).Copy [a1]改成：
Sheets("Sheet1").[a1].Resize(1, 5).Copy .[a1 ...

非常感谢老师的帮助

zhycl · 发表于 2018-6-25 19:22

不知道为什么发表于 2018-6-25 18:52
称不上老师哦，我也是和你差不多。你的代码出错的地方：
Sheets("sheet1").[a1].Resize(1, 5).Copy .[a1 ...

非常感谢老师的帮助

zhycl · 发表于 2018-6-25 19:24

liulang0808 发表于 2018-6-21 20:58
建议楼主上传代码文件
提速，可以考虑关闭屏幕更新
再可以考虑使用数组的

老师，如果我上传代码文件，还需要里面的数据吗？因为源数据涉及到单位经营，不方便上传带有源数据的附表，可以吗？

zhycl · 发表于 2018-6-25 19:54

不知道为什么发表于 2018-6-25 18:52
称不上老师哦，我也是和你差不多。你的代码出错的地方：
Sheets("sheet1").[a1].Resize(1, 5).Copy .[a1 ...

老师，本来我想通过学习一下你的代码，自己改成自己实际需要的，但不知道该如何修改，能帮我改成我实际情况需要的代码吗，见附件。

需要把“项目付款明细”的黄色那几列源数据，汇总到“台账明细”表中的红色那几列中。源数据和汇总数据两张表的列是固定的。
非常感谢，非常感谢。

示例-实际.rar (44.6 KB, 下载次数: 1)

		自动登录	找回密码
密码			免费注册

[求助] 求助各位老师简化VBA，提升运行效率，非常感谢

评分

评分