我的是个笨办法，不过比较好理解，公式如图
然后复制所有内容，开始==》粘贴==》粘贴值
然后选中粘贴好的区域，数据==》删除重复项
只保留A列被选择然后确定，这样“位置”就背分在了不同的单元格（合并到相同单元格用Text和CONCATENATE函数）
最后用count或countA函数统计数量就行
温馨提示：内容为网友见解，仅供参考
第1个回答 2012-02-21
http://zhidao.baidu.com/question/190126433.html
参考这个回答，A列需排序过，B列需处理成文本本回答被提问者采纳
参考这个回答，A列需排序过，B列需处理成文本本回答被提问者采纳
第2个回答 2012-02-22
给你写个a的情况，b的同理。执行代码就可以了
Sub 小晕()
Range("e2").Select
Selection.ClearContents
Dim i As Long
For i = 1 To 10 '这个值的范围可根据实际情况写
If Cells(i, 1).Value = "a" Then
[e2] = [e2] & Cells(i, 2).Value
End If
Next i
End Sub
Sub 小晕()
Range("e2").Select
Selection.ClearContents
Dim i As Long
For i = 1 To 10 '这个值的范围可根据实际情况写
If Cells(i, 1).Value = "a" Then
[e2] = [e2] & Cells(i, 2).Value
End If
Next i
End Sub
相似回答
