[已解决]快速汇总问题

SZHPBS · 发表于 2011-4-3 10:18

请问怎样将车号相同的小计数在G列中快速汇总,并合并居中,具体见附件,谢谢.

Book1.rar (2.92 KB, 下载次数: 18)

tkgg93 · 发表于 2011-4-3 10:33

选择G3:G39,输入公式=SUMIF($A$3:$A$39,A3,$F$3)
按ctrl+回车

SZHPBS · 发表于 2011-4-3 10:44

本帖最后由 SZHPBS 于 2011-4-3 10:47 编辑

回复 tkgg93 的帖子

可是，如果A列相同车号没有合并的话，G列中对应的A有多少个相同的车号就重复汇总同样的相同的次数，如果不改变A列，这个问题能解决吗？

macky591 · 发表于 2011-4-3 10:49

回复 SZHPBS 的帖子

Book1.rar (35.19 KB, 下载次数: 6)

sunjing-zxl · 发表于 2011-4-3 10:58

本帖最后由 sunjing-zxl 于 2011-4-3 11:08 编辑

回复 SZHPBS 的帖子

Sub 合并求和()
Dim myR, x, k, i
myR = Range("A65536").End(xlUp).Row 'Range("A65536")中的A为判断条件列
For x = 3 To myR 'x = 5中的5为计算起始行（第5行开始计算）
If Application.CountIf(Range("A3:A" & x), Cells(x, 1)) = 1 Then 'Range("A3:A" & x)中的A为判断条件列3为起始行, Cells(x, 1)中1为判断条件列（1为A列）
k = x
Cells(k, 7) = Cells(x, 6) '(k, 7)中的7为结果生成的列号（7为G），(x, 6)中的6为计算的数据源的列号（6为F列），以下相同
Else
Cells(k, 7) = Cells(k, 7) + Cells(x, 6)
Range(Cells(k, 7), Cells(x, 7)).MergeCells = True
End If
Next x
Range("A1").Resize(myR, 7).Borders.LineStyle = 1 '从A1开始向右走7列有数据内容加网格线
End Sub

复制代码

见附件：

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

SZHPBS · 发表于 2011-4-3 11:05

回复 macky591 的帖子

可是我们上面要求就是不要那么的汇总行，要直接在列中汇总，一目了然一点。

SZHPBS · 发表于 2011-4-3 15:39

回复 sunjing-zxl 的帖子

正是我要的结果，但就是不太懂，想问下
Range(Cells(k, 7), Cells(x, 7)).MergeCells = True 这句是什么意思？

sunjing-zxl · 发表于 2011-4-3 16:08

回复 SZHPBS 的帖子

合并 Cells(k, 7), Cells(x, 7)单元格

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