请各位论坛老师写一段求某个数字单元格字符串之和的代码

yslvictor

例如：
Range("A1“）=562014
应该是
Range("B1")=18

A1字符数1-10个，且没有文本字符。
请老师写一段vba代码，谢谢。

二维马

SumValue = Range("A1").value + Range("B1").value

杨建营

请楼主参考。

杨建营

提交不了压缩文件

杨建营

源站错误怎么破。 简化了一下。

MOY838840554

非数字字符不计算

1. Function SumX(Content As String) As Long
   
2.     On Error Resume Next
   
3.     For i = 1 To Len(Content)
   
4.         SumX = SumX + Mid(Content, i, 1)
   
5.     Next
   
6. End Function

复制代码

MOY838840554

论坛刚故障，这层重复

smiletwo

yslvictor

谢谢各位老师，现在用的是杨建营老师的代码。

杨建营

yslvictor 发表于 2023-2-16 19:57
谢谢各位老师，现在用的是杨建营老师的代码。

谢谢支持，若是有用，请支持各位两朵小花。