Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2858|回复: 5

[已解决]关于插入合计行的问题

[复制链接]
发表于 2011-8-12 16:10 | 显示全部楼层 |阅读模式
分类别插入合计行,B列并且分类汇总,如表二,
谢谢
最佳答案
2011-8-14 12:40
本帖最后由 爱疯 于 2011-8-14 12:51 编辑

  1. Sub a()
  2.     Dim arrA, arrB(1 To 9999, 1 To 2)
  3.     Dim i, s, n
  4.     With Sheet1
  5.         arrA = .Range("a3:b" & .Range("a3").End(xlDown).Row + 1)
  6.     End With
  7.    
  8.     For i = 1 To UBound(arrA) - 1
  9.         n = n + 1
  10.         s = s + arrA(i, 2)
  11.         arrB(n, 1) = arrA(i, 1)
  12.         arrB(n, 2) = arrA(i, 2)
  13.         If arrA(i, 1) <> arrA(i + 1, 1) Then
  14.             arrB(n, 1) = arrA(i, 1)
  15.             arrB(n, 2) = arrA(i, 2)
  16.             n = n + 1
  17.             arrB(n, 1) = "合计"
  18.             arrB(n, 2) = s
  19.             s = 0
  20.         End If
  21.     Next i
  22.    
  23.     With Sheet2
  24.         .Range("a3:b9999").Clear
  25.         .[a3].Resize(n, 2) = arrB
  26.     End With
  27. End Sub
复制代码

请教.rar

1.69 KB, 下载次数: 33

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-8-12 16:17 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-8-13 10:40 | 显示全部楼层
谢谢你的回答,谢谢
但我需要VBA代码一次成功,求助
回复

使用道具 举报

发表于 2011-8-13 12:35 | 显示全部楼层
帮顶!!!!!
回复

使用道具 举报

发表于 2011-8-14 12:40 | 显示全部楼层    本楼为最佳答案   
本帖最后由 爱疯 于 2011-8-14 12:51 编辑

  1. Sub a()
  2.     Dim arrA, arrB(1 To 9999, 1 To 2)
  3.     Dim i, s, n
  4.     With Sheet1
  5.         arrA = .Range("a3:b" & .Range("a3").End(xlDown).Row + 1)
  6.     End With
  7.    
  8.     For i = 1 To UBound(arrA) - 1
  9.         n = n + 1
  10.         s = s + arrA(i, 2)
  11.         arrB(n, 1) = arrA(i, 1)
  12.         arrB(n, 2) = arrA(i, 2)
  13.         If arrA(i, 1) <> arrA(i + 1, 1) Then
  14.             arrB(n, 1) = arrA(i, 1)
  15.             arrB(n, 2) = arrA(i, 2)
  16.             n = n + 1
  17.             arrB(n, 1) = "合计"
  18.             arrB(n, 2) = s
  19.             s = 0
  20.         End If
  21.     Next i
  22.    
  23.     With Sheet2
  24.         .Range("a3:b9999").Clear
  25.         .[a3].Resize(n, 2) = arrB
  26.     End With
  27. End Sub
复制代码

回复

使用道具 举报

 楼主| 发表于 2011-8-14 17:06 | 显示全部楼层
谢谢!!!!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 13:11 , Processed in 0.476916 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表