作者：乔山办公网日期：
返回目录：excel表格制作
用自定义函数吧
Function Q(rng)
For Each x In rng
If Left(x, 1) = "Q" Then
Q = Q + Val(Right(x, Len(x) - 1))
End If
Next
End Function
图解如下：知
1。ALT+F11，在左上角空白处，单击右键，添加模块，在模块中复制道上述专代码
2.关闭，返回Excel，在要求和的单元格中，直接输入=Q（求和区域），就可以得到属结果了
在C列输入公式
=INDEX(B:B,SMALL(IF(A$1:A$100=3,ROW($1:$100),999),ROW(A1)))
按【组合键】确认后下拉填充。
在表二的A2单元格中输入
=IF(ROW(1:1)>COUNTA(Sheet1!$C:$C),"",INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$C$2:$C$3000="A",ROW(Sheet1!$2:$3000),4^copy8),ROW(1:1))))&""
CTRL+SHIFT+回车
向右，然后向下拉。
这里有几个前提，1、你表一原数据不超过我定的3000行，当然你也可改我的定的行数。
2、向下拉，拉到你认为符合条件内容的不可能超过的地方才停，比如你认为最多100行合条件，你就拉到101行才zd停，不然返回可能不全的。
用自定义函数吧
Function Q(rng)
For Each x In rng
If Left(x, 1) = "Q" Then
Q = Q + Val(Right(x, Len(x) - 1))
End If
Next
End Function
图解如来下：
1。ALT+F11，在左上角空白处，单源击右键，添加模块百，在模块中复制上述代码
2.关闭，返回度Excel，在要求和的问单元格中，直接输入=Q（求和区域），答就可以得到结果了