[已解决][已解决]谢谢豆丁老师，三个用于实现合计的效果均不同，请教老师，如何修改

lhj323323 · 发表于 2010-7-21 18:09

hRGTMonu.rar (45.44 KB, 下载次数: 0)

那么的帅 · 发表于 2010-7-21 18:32

昨天的问题解决了吗？

豆丁 · 发表于 2010-7-21 18:37

大多没细看，感觉一个循环就行了：

Sub test()
Dim arr, i&
arr = Sheets("桥梁").UsedRange
For i = 2 To UBound(arr)
    arr(i, 7) = arr(i, 9) + arr(i, 10)
    arr(i, 8) = arr(i, 11) + arr(i, 12) + arr(i, 13)
    arr(i, 6) = arr(i, 7) + arr(i, 8)
Next
[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

lhj323323 · 发表于 2010-7-21 18:54

QUOTE:

以下是引用那么的帅在2010-7-21 18:32:00的发言：

昨天的问题解决了吗？

谢谢那么的帅老师，刚才我才看到昨天发的求助贴，您已解决，看到这贴子之前，我另找了个办法，用的是桔禅老师的下面的VB

Sub 分类汇总4()
Dim Sht1 As Worksheet
Dim Myr1%, arr, i%, col%
Dim x%

t = Timer
Application.ScreenUpdating = False

Set Sht1 = Sheets("桥梁")
Myr1 = Sht1.[a1].CurrentRegion.Rows.Count
'arr = Sht1.Range("a2:c" & Myr1)
arr = Sht1.Range("a1:c" & Myr1)

Sht1.Activate
For i = 1 To UBound(arr)
    Set r1 = Rows(1).Find(arr(i, 2))
    col = r1.Column
    Set r2 = Columns(5).Find(arr(i, 1), , , xlWhole)
    m = r2.Row
    Cells(m, col) = arr(i, 3)
Next i

Application.ScreenUpdating = True

End Sub

上面的VB运行成功的前提是，用户需要在结果表中预先将客户号明细导入，还是就是要把正常、关注等5个分项预留下来（但这也有好处，就是上级要求要将这五类的相对顺序固定下来），

而您写的VB，我还不知导出的数据中的那5个分项的相对顺序是随机的呢，还是通过程序控制了相对顺序？

今天全天搞整纵向合计，找了三个办法，但都有点不对头，所以又上来求助了

lhj323323 · 发表于 2010-7-21 19:07

QUOTE:

以下是引用豆丁在2010-7-21 18:37:00的发言：

大多没细看，感觉一个循环就行了：

Sub test()
Dim arr, i&
arr = Sheets("桥梁").UsedRange
For i = 2 To UBound(arr)
    arr(i, 7) = arr(i, 9) + arr(i, 10)
    arr(i, 8) = arr(i, 11) + arr(i, 12) + arr(i, 13)
    arr(i, 6) = arr(i, 7) + arr(i, 8)
Next
[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

谢谢豆丁老师

现将您写的附上附件，上传到这层楼

UGX24RKQ.rar (55.05 KB, 下载次数: 0)

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

[已解决][已解决]谢谢豆丁老师，三个用于实现合计的效果均不同，请教老师，如何修改

回复：（那么的帅）昨天的问题解决了吗？

回复：（豆丁）大多没细看，感觉一个循环就行了：Sub ...