[已解决]请高手帮助

shilisheng

file:///C:\Users\我的家庭\AppData\Roaming\Tencent\Users\35525157\QQ\WinTemp\RichOle\8_APMLXR)@H(P`X8G5IKSMN.jpg
吉它曲谱表_试验.rar (18.2 KB, 下载次数: 23)

2012-1-14 12:00 上传

点击文件名下载附件

请各位高手帮助，我做不好了，公式肯定错误了，如何将序列自动添加，数量自动添加等，具体表中有说明，请高手看附件。谢谢

最佳答案

月排行榜 / 总排行榜

lisachen

2012-1-14 13:01

吉它曲谱表_试验.rar (18.55 KB, 下载次数: 11)

2012-1-14 13:01 上传

点击文件名下载附件

跳转到最佳答案楼层

lisachen

吉它曲谱表_试验.rar (18.55 KB, 下载次数: 11)

2012-1-14 13:01 上传

点击文件名下载附件

52707847

我的版本太低 打不开

sunjing-zxl

1. 
   
2. Sub aa()
   
3.     Dim d As New Dictionary
   
4.     Dim arr, arr1, arr2
   
5.     Dim i As Long, m As Long, n As Long
   
6.     With Sheets("登记表")
   
7.         arr = .Range("F4:F" & .[F65536].End(xlUp).Row)
   
8.     End With
   
9.     For i = 1 To UBound(arr)
   
10.         d(arr(i, 1)) = d(arr(i, 1)) + 1
    
11.     Next i
    
12.     m = Int((d.Count - 1) / 27) + 1
    
13.     n = m * 4
    
14.     ReDim arr1(1 To 1, 1 To n)
    
15.     ReDim arr2(1 To 27, 1 To n)
    
16.     For i = 1 To m
    
17.         arr1(i, (i - 1) * 4 + 1) = "No."
    
18.         arr1(i, (i - 1) * 4 + 2) = "曲谱书籍"
    
19.         arr1(i, (i - 1) * 4 + 3) = "数量"
    
20.     Next i
    
21.     For i = 1 To d.Count
    
22.         arr2(((i - 1) Mod 27) + 1, Int((i - 1) / 27) + 1) = i
    
23.         arr2(((i - 1) Mod 27) + 1, Int((i - 1) / 27) + 2) = d.keys(i - 1)
    
24.         arr2(((i - 1) Mod 27) + 1, Int((i - 1) / 27) + 3) = d.items(i - 1)
    
25.     Next i
    
26.     Range("E3:P" & [E65536].End(xlUp).Row + 2).ClearContents
    
27.     Range("E3").Resize(1, UBound(arr1, 2)) = arr1
    
28.     Range("E4").Resize(27, UBound(arr2, 2)) = arr2
    
29. End Sub

复制代码

附件： 吉它曲谱表_试验-sunjing.rar (17.53 KB, 下载次数: 3)

2012-1-14 13:17 上传

点击文件名下载附件