[已解决]字典有没有办法直接按求出的唯一代码汇总

青城山苦丁茶

类似arr(d(w), 1) = arr(d(w), 1) + rng(i, 1)去增加else后边的语句，当然先应将相应的列读入到rng数组中哈（即适当修改rng = .Range(.[k2], .[m2].End(4))）

jkczfpb

谢谢了，我有了新的问题，请继续关注

http://www.excelpx.com/forum.php?mod=viewthread&tid=81794

jkczfpb

rng = .Range(.[k2], .[m2].End(4))不能修改吧？增加列就提示错误了，

我想把arr(m, 1)的数据缩小10000倍，即已万元显示怎么修改？

jkczfpb

我是这样得来的，如下，可不可以直接在字典中处理后赋值

Sub zwgk_d22()        '请教得来，取分配表代码、序号、年度、日期、金额
Dim d As Object, cel As Range, rng, i%, m%, y%, arr '声明一个对象变量来存放该对象的引用。Dim as Object 采用后期绑定方式。
Set d = CreateObject("Scripting.Dictionary") '创建字典对象d
With Sheets(4)
rng = .Range(.[k2], .[m2].End(4))
End With
ReDim arr(1 To UBound(rng), 1 To 4)
For i = 1 To UBound(rng)
w = Left(rng(i, 3), 8)
If d(w) = "" Then
m = m + 1
d(w) = m
Sheets(2).Cells(m + 1, "a") = m
 arr(m, 1) = rng(i, 1):   arr(m, 2) = "'" & rng(i, 2): arr(m, 4) = "'" & w & "0000"
Else
arr(d(w), 1) = arr(d(w), 1) + rng(i, 1)
End If
arr(m, 1) = arr(d(w), 1)
Next i
With Sheets(2)
  .[g2].Resize(m, 4) = arr
  For Each cel In .Range("g2").Resize(m, 1)
  cel = (Round(cel.Value / 10000, 4))
   Next
.Range("b2").Resize(m, 1).Value = Sheets(4).Range("b2").Value
.Range("c2").Resize(m, 1).Value = "钟祥市财政局"
.Range("f2").Resize(m, 1).Value = 0
.Range("e2").Resize(m, 1).Value = .Range("g2").Resize(m, 1).Value
.Range("a2").Resize(m, 4).NumberFormatLocal = "@"
.Range("e2").Resize(m, 3).NumberFormatLocal = "#,##0.0000"
.Range("h2").Resize(m, 3).NumberFormatLocal = "@"
End With
End Sub

wayy

唯一代码汇总用字典兰版讲过，好像在V入班替喵和戏兄的课时讲的，可以看一下那节课的录相。

皮皮1998

 

我只会这样做了，也许不符合你的要求吧！

UUyX0Hwg.rar (803.48 KB, 下载次数: 9)

2008-12-5 17:15 上传

点击文件名下载附件
字典有没有办法直接按求出的唯一代码汇总

[em04]