返回目录：excel表格制作
一、这要用到SUBTOTAL函数。
比如要计算筛选后A列可见单元格的数字和值，则公式可以写成
=SUBTOTAL(109,A:A)
二、SUBTOTAL函数的定义：
返回列表或数据库中的分类汇总。通常，使用“数据”菜单中的“分类汇总”命令可以容易地创建带有分类汇总的列表。一旦创建了分类汇总，就可以通过编辑 SUBTOTAL 函数对该列表进行修改。
语法
SUBTOTAL(function_num, ref1, ref2, ...)
Function_num 为 1 到 11（包含隐藏值）或 101 到 111（忽略隐藏值）之间的数字，指定使用何种函数在列表中进行分类汇总计算。
Ref1, ref2, 为要进行分类汇总计算的 1 到 29 个区域或引用。
说明
如果在 ref1, ref2,… 中有其他的分类汇总（嵌套分类汇总），将忽略这些嵌套分类汇总，以避免重复计算。
当 function_num 为从 1 到 11 的常数时，SUBTOTAL 函数将包括通过“格式”菜单的“行”子菜单下面的“隐藏”命令所隐藏的行中的值。当您要分类汇总列表中的隐藏和非隐藏值时，请使用这些常数。当 function_num 为从 101 到 111 的常数时，SUBTOTAL 函数将忽略通过“格式”菜单的“行”子菜单下面的“隐藏”命令所隐藏的行中的值。当您只分类汇总列表中的非隐藏数字时，使用这些常数。
SUBTOTAL 函数忽略任何不包括在筛选结果中的行，不论使用什么 function_num 值。
SUBTOTAL 函数适用于数据列或垂直区域。不适用于数据行或水平区域。例如，当 function_num 大于或等于 101 时需要分类汇总某个水平区域时，例如 SUBTOTAL(109,B2:G2)，则隐藏某一列不影响分类汇总。但是隐藏分类汇总的垂直区域中的某一行就会对其产生影响。
如果所指定的某一引用为三维引用，函数 SUBTOTAL 将返回错误值e5a48de588b67a686964616f332 #VALUE!。
方法一：当然是无极限手动，只要你不嫌麻烦知。
方法二：此方法作为特例使用，如果需要合并的相邻单元道格数量一致的话，只需要手动操作一个，然后用格式刷刷版一下即可。权
方法三：无敌VBA代码，代码如下（以A列为例）。
Sub tst()
Application.DisplayAlerts = False
Dim i%, j%
i = 2
j = 1
111: If Cells(i, 1) = Cells(i + j, 1) Then
j = j + 1
GoTo 111:
End If
Range(Cells(i, 1), Cells(i + j - 1, 1)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Merge
If i < Range("a65536").End(xlUp).Row - 1 Then
i = i + 1
j = 1
GoTo 111:
End If
End Sub
设置单元格格式，在“对齐”页把垂直栏设为“居中”，“自动换行”前面打勾
C2用公式：
=IF(MOD(ROW(A1),3)=1,INDIRECT("B"&INT(ROW(A3)/3)+1),"")
下拉。