能不能給解釋一個(gè)，本人對(duì)VBA多少知道哪么一點(diǎn)點(diǎn)。希望給說(shuō)一說(shuō)哪一句是干什么的，我用著也好用，也能用個(gè)明白，

Function Sum2(Value As Range) As Integer '定義函數(shù)名和引用類型及返回類型

If Value.Count = 1 Then '判斷如果引用范圍只有一個(gè)單元格才進(jìn)行計(jì)算

Sum2 = 0 '初始函數(shù)值

Dim Str As String '建立一個(gè)臨時(shí)字串變量用來(lái)保存引用單元格內(nèi)容和盡心下一步處理

Str = Replace(Value.Value, " ", "") '將單元格空格去掉

Dim i As Integer

For i = 1 To Len(Str) '循環(huán)計(jì)算每個(gè)位數(shù)相加的值

Sum2 = Sum2 + Int(Mid(Str, i, 1)) '相加

Next

End If

End Function

你好，你看能不能這樣呀，分開來(lái)弄，第一步定義一個(gè)函數(shù)，或引用本身的函數(shù)，去除空格后放到另一格中，第二步在把這個(gè)去除空格后的數(shù)每個(gè)位相加在放到另外一個(gè)單元格中，這樣的話我好進(jìn)一步處理。我先謝謝了。

Function Sum2(Value As Range, T As Integer) As Integer '定義函數(shù)名和引用類型及返回類型

If Value.Count = 1 Then '判斷如果引用范圍只有一個(gè)單元格才進(jìn)行計(jì)算

Sum2 = 0 '初始函數(shù)值

Dim Str As String '建立一個(gè)臨時(shí)字串變量用來(lái)保存引用單元格內(nèi)容和盡心下一步處理

If T = 0 Then

Str = Replace(Value.Value, " ", "") '將單元格空格去掉

Sum2 = Int(Str)

ElseIf T = 1 Then

Str = Replace(Value.Value, " ", "") '將單元格空格去掉

Dim i As Integer

For i = 1 To Len(Str) '循環(huán)計(jì)算每個(gè)位數(shù)相加的值

Sum2 = Sum2 + Int(Mid(Str, i, 1)) '相加

Next

End If

End If

End Function

用了一個(gè)標(biāo)識(shí)參數(shù)來(lái)告訴函數(shù)返回的值.Sum2(引用單元格,標(biāo)識(shí)).當(dāng)標(biāo)識(shí)參數(shù)填0的時(shí)候返回去除空格的內(nèi)容,當(dāng)標(biāo)識(shí)填1的時(shí)候返回相加的值.你可以在不同的單元格中填入函數(shù)用標(biāo)識(shí)來(lái)確定要返回的值`

你這個(gè)是把和放到一個(gè)單元格中去了，也就是最后結(jié)果，我還想要中間的哪個(gè)去除空格后的結(jié)果，讓他顯示到一個(gè)單元格中

那你就在那個(gè)單元格中輸入同樣的函數(shù)同樣的引用內(nèi)容,然后在第二個(gè)參數(shù)輸入0

如下圖