表格中带字母的情况下，自动求和的问题

Chinacai

A B C列 自动求和， 但是 由于特殊原因  A B C三列中 都带有 字母   在不去掉 字母的前提下，   如何自动求和 ？

或者  全部 去掉字母   自动求和也行    谢谢



[ 本帖最后由 Chinacai 于 2011-6-30 11:24 编辑 ]

Chinacai

最好 不要把字母删除掉，因为字母对于阅读者来说是有意义的，并且需要统计出来A+B+C的和是多少，请问如何操作，谢谢？


如何用一个快捷方法删除掉所有字母  也是可以接受的，  我可以把这个表格在复制一个出来，   
把没有字母的表格 自动求和  然后把和的结果复制到带字母表格中即可

紫菜蛋汤

可以添加一个辅助行,提取每个单元格的数字,再求和

佛山小老鼠

自定义了一个这样的函数

1. Public Function 取数字求和(MyRg As Range)
   
2.     Dim i As Integer
   
3.     Dim rg As Range
   
4.     For Each rg In MyRg
   
5.          S = ""
   
6.         For i = 1 To Len(rg)
   
7.             If Mid(rg, i, 1) Like "[0-9,.]" Then
   
8.                 S = S & Mid(rg, i, 1)
   
9.                 S = S * 1
   
10.             End If
    
11.         Next i
    
12.        取数字求和 = 取数字求和 + S
    
13.     Next rg
    
14. End Function

复制代码

[ 本帖最后由 佛山小老鼠 于 2011-6-30 00:37 编辑 ]

panan123_0

学习，再学习。

Chinacai

高手，谢谢了

pea

高手 佩服 VBA学习不了，只有照搬了

wanghx8866

佛山小老鼠 发表于 2011-6-30 00:34
自定义了一个这样的函数

[ 本帖最后由 佛山小老鼠 于 2011-6-30 00:37 编辑 ]

老师如果数字后面有特殊符号怎么弄"*",".*","","▲","A"

酷酷的小火苗

参照附件理解下，相信对你有所帮助
表中具体技巧参照于《Excel2007函数与公式实战技巧》
欢迎一起学习！

sgh172

高手 佩服 VBA学习不了，只有照搬了