[已解决][求助]VBA汇总代码不能完全执行

gongannet · 发表于 2012-3-13 12:53

本帖最后由 gongannet 于 2012-3-13 12:53 编辑

各位大大，请帮忙看下附件代码，在只有两行时汇总正常，超过两行汇总时总是有几行不能自动合并，请帮忙修改下，谢谢！

Book1.rar (8.56 KB, 下载次数: 2)

happym8888 · 发表于 2012-3-13 13:02

本帖最后由 happym8888 于 2012-3-13 13:06 编辑

Sub hz()
Dim irows As Integer
Dim trows As Integer
sj = Sheet2.[B65536].End(xlUp).Row
For irows = sj To 2 Step -1
For trows = sj To irows + 1 Step -1
If Sheet2.Cells(irows, 1) = Sheet2.Cells(trows, 1) And Sheet2.Cells(irows, 2) = Sheet2.Cells(trows, 2) Then
Sheet2.Cells(irows, 3) = Sheet2.Cells(irows, 3) + Sheet2.Cells(trows, 3)
Sheet2.Rows(trows).Delete
End If
Next
Next
End Sub

复制代码

Book1.rar (8.54 KB, 下载次数: 11)

gongannet · 发表于 2012-3-13 13:10

非常感谢happym8888 ！很完美的解决了问题！

happym8888 · 发表于 2012-3-13 13:14

gongannet 发表于 2012-3-13 13:10
非常感谢happym8888 ！很完美的解决了问题！

不用谢，都是你的代码，我只是帮你调整一下顺序。

hxj710802 · 发表于 2012-3-13 21:11

请问楼主用的啥动画演示工具啊，，我想要个

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