[已解决]不同表单数据汇总及显示

76260895 · 发表于 2015-7-16 17:35

本帖最后由 76260895 于 2015-7-17 08:34 编辑

不同表单数据汇总及合并问题，表达不好，求助内容见excel，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2015-7-18 13:40

3.rar (12.71 KB, 下载次数: 13)

爱疯 · 发表于 2015-7-17 08:52

用VBA完成可以吗

76260895 · 发表于 2015-7-17 16:23

爱疯发表于 2015-7-17 08:52
用VBA完成可以吗

VBA也可以啊，不管黑猫白猫，能抓老鼠就是好猫

爱疯 · 发表于 2015-7-17 17:44

Sub test1()
Dim i, r
Sheets(1).Range("a4:c65536").ClearContents
For i = 3 To Sheets.Count
      r = IIf(i = 3, 4, Cells(Rows.Count, 1).End(3).Row)
      Sheets(i).Range("a4").CurrentRegion.Copy Sheets(1).Cells(r, 1)
Next i
End Sub

Sub test2()
Dim d, i, j, A
Set d = CreateObject("scripting.dictionary")
For i = 3 To Sheets.Count
      A = Sheets(i).Range("a5").CurrentRegion
      For j = 2 To UBound(A)
         d(A(j, 1)) = d(A(j, 1)) + A(j, 3)
      Next j
Next i
With Sheets(2)
      .Range("a5:b65536").ClearContents
      .Range("a5").Resize(d.Count) = Application.Transpose(d.keys)
      .Range("b5").Resize(d.Count) = Application.Transpose(d.items)
End With
End Sub

2.rar (11.71 KB, 下载次数: 7)

76260895 · 发表于 2015-7-18 08:36

爱疯发表于 2015-7-17 17:44
Sub test1()
Dim i, r
Sheets(1).Range("a4:c65536").ClearContents

首先很感谢版主

不过貌似还没加载完全的，望指导

爱疯 · 发表于 2015-7-18 13:40

3.rar (12.71 KB, 下载次数: 13)

76260895 · 发表于 2015-7-18 17:17

爱疯发表于 2015-7-18 13:40
忘了+1，改好了

VBA好强大，但我就是学不会，哎

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