完善数组，brr数组第三五列怎么生成

weiyingde

liulang0808 发表于 2017-11-5 13:11
看看是否满足需求吧

对不起，发完后，发现附件发错。再发送……

microyip

weiyingde 发表于 2017-11-5 12:47
在你的源代码中已经有了这一句，
ReDim vFill(1 To nFill, 1 To 5)
        oDic.RemoveAll

我的意思在

1. vData = Sheets(i).[A1].CurrentRegion.Value

复制代码

之后加多一句

1. oDic.RemoveAll

复制代码

weiyingde

microyip 发表于 2017-11-5 14:12
我的意思在之后加多一句

加上这一句之后，测试，依然如此，vfillB还是丢失了与vfillA等量的数据。
不知为何……
谢谢你！！

microyip

切换表的时候，对应要用到的参数都进行一次初始化处理

1. Sub 汇总()
   
2.     Dim vData As Variant, vRow As Variant, nCol As Integer
   
3.     Dim sName As String, vKey As Variant, oDic As Object, vFill As Variant, nFill As Long, nFillRow As Long, nOrder As Long
   
4.     Dim wSH As Worksheet
   
5.    
   
6.     Set oDic = CreateObject("Scripting.Dictionary")
   
7.    
   
8.     For Each wSH In Sheets
   
9.         If wSH.Name = "本次统计" Or wSH.Name = "全期统计" Then
   
10.             vData = wSH.[A1].CurrentRegion.Value
    
11.             oDic.RemoveAll
    
12.             nFill = 0
    
13.             nOrder = 0
    
14.             ReDim vFill(1 To 5, 1 To UBound(vData))
    
15.             If UBound(vData) = 1 Then Exit Sub
    
16.             
    
17.             For vRow = 2 To UBound(vData)
    
18.                 sName = Trim(vData(vRow, 1)) '姓名
    
19.                 vKey = sName & "|" & Trim(vData(vRow, 5)) '课内容
    
20.                 If Val(sName) > 0 Then sName = Application.Substitute(Replace(sName, Val(sName), ""), " ", "")
    
21.                 If Not oDic.Exists(sName) Then
    
22.                     nFill = nFill + 1
    
23.                     oDic(sName) = nFill
    
24.                     vFill(1, nFill) = sName
    
25.                 End If
    
26.                 nFillRow = oDic(sName)
    
27.                 vFill(2, nFillRow) = vFill(2, nFillRow) + 1 '答次次数
    
28.                 If Not oDic.Exists(vKey) Then
    
29.                     oDic(vKey) = 0
    
30.                     vFill(3, nFillRow) = vFill(3, nFillRow) + 1 '答次课数
    
31.                 End If
    
32.                 vFill(4, nFillRow) = vFill(4, nFillRow) + vData(vRow, 6) '总分
    
33.             Next
    
34.             If nFill > 0 Then
    
35.                 ReDim Preserve vFill(1 To 5, 1 To nFill)
    
36.                 vData = Application.WorksheetFunction.Transpose(vFill)
    
37.                 vFill = Empty
    
38.                 ReDim vFill(1 To nFill, 1 To 5)
    
39.                 oDic.RemoveAll
    
40.                 For vRow = 1 To nFill
    
41.                     If oDic.Exists(vData(vRow, 4)) Then
    
42.                         oDic(vData(vRow, 4)) = oDic(vData(vRow, 4)) & "|" & Trim(vRow)
    
43.                     Else
    
44.                         oDic(vData(vRow, 4)) = Trim(vRow)
    
45.                     End If
    
46.                 Next
    
47.                 nFillRow = 0
    
48.                 For nFill = 1 To oDic.Count
    
49.                     vKey = Split(oDic(Application.WorksheetFunction.Large(oDic.keys, nFill)), "|")
    
50.                     nOrder = nOrder + 1 '名次
    
51.                     For Each vRow In vKey
    
52.                         nFillRow = nFillRow + 1
    
53.                         For nCol = 1 To 4
    
54.                             vFill(nFillRow, nCol) = vData(Val(vRow), nCol)
    
55.                         Next
    
56.                         vFill(nFillRow, 5) = nOrder
    
57.                     Next
    
58.                 Next
    
59.                 wSH.[J2:N2].Resize(nFillRow) = vFill
    
60.             End If
    
61.         End If
    
62.     Next
    
63. End Sub

复制代码

microyip

附上附件以供参考

weiyingde

microyip 发表于 2017-11-5 14:38
切换表的时候，对应要用到的参数都进行一次初始化处理

谢谢你，运行代码生成了理想结果。
对比，前面的代码结果，发现我前面的结论不对：
只是在第二个数组的第五列名次不对，其他没有错误。应该是i循环每一次之后 nOrder应该清零。

weiyingde

microyip 发表于 2017-11-5 14:38
切换表的时候，对应要用到的参数都进行一次初始化处理

我在前面的代码加上一句红色的，有了结果。
Next
       nOrder = 0
    End If
  If i = 1 Then vFillA = vFill Else vFillB = vFill
  Next
  Sheets(1).[J2:N2].Resize(UBound(vFillA)) = vFillA
  Sheets(2).[J2:N2].Resize(UBound(vFillB)) = vFillB也完美解决问题了
再次谢谢你。

weiyingde

microyip 发表于 2017-11-5 14:38
切换表的时候，对应要用到的参数都进行一次初始化处理

在你的代码上加上一句，获取了两个数数组。
        Next
        wSH.[J2:N2].Resize(nFillRow) = vFill
       If wSH.Name = "本次统计" Then vFillA = vFill Else vFillB = vFill
   End If
很管用
   For Each wSH In Sheets
        If wSH.Name = "本次统计" Or wSH.Name = "全期统计" Then
这样的循环，比sheets(i)通用性更强。
学习了。
Excel Home论坛真是好地方！！

liulang0808

weiyingde 发表于 2017-11-5 14:06
对不起，发完后，发现附件发错。再发送……

看不明白，具体要做什么的，之前的代码解决问题了吧？

weiyingde

liulang0808 发表于 2017-11-5 15:54
看不明白，具体要做什么的，之前的代码解决问题了吧？

谢谢关心，两种解决方案都行，已经完美解决了。
谢谢你的指导。