在日常工作中，我們經(jīng)常會(huì)遇到需要對(duì)Excel中的數(shù)據(jù)進(jìn)行求和的情況。但如果該列數(shù)據(jù)為非數(shù)值格式，則無(wú)法使用Excel內(nèi)置函數(shù)做條件求和，因?yàn)镋xcel只能對(duì)數(shù)值格式的數(shù)據(jù)進(jìn)行計(jì)算。此時(shí)，我們可以借助V

在日常工作中，我們經(jīng)常會(huì)遇到需要對(duì)Excel中的數(shù)據(jù)進(jìn)行求和的情況。但如果該列數(shù)據(jù)為非數(shù)值格式，則無(wú)法使用Excel內(nèi)置函數(shù)做條件求和，因?yàn)镋xcel只能對(duì)數(shù)值格式的數(shù)據(jù)進(jìn)行計(jì)算。此時(shí)，我們可以借助VBA來(lái)解決這個(gè)問(wèn)題。

下載表格并打開Excel

首先，我們需要從網(wǎng)頁(yè)上下載表格，并用Excel打開。在Excel中，我們可以看到該列數(shù)據(jù)已經(jīng)被自動(dòng)轉(zhuǎn)換成了文本格式。

創(chuàng)建模塊并輸入代碼

接下來(lái)，我們需要打開VBE編輯器，在其中創(chuàng)建一個(gè)新的模塊。然后，我們可以輸入以下代碼：

```

Function SumIfNumber(rng As Range)

Dim cell As Range

Dim sum As Double

sum 0

For Each cell In rng

If IsNumeric() Then

sum sum

End If

Next cell

SumIfNumber sum

End Function

```

這段代碼實(shí)現(xiàn)了一個(gè)自定義函數(shù)`SumIfNumber`，它接收一個(gè)單元格范圍作為參數(shù)，返回這些單元格中數(shù)值型數(shù)據(jù)的總和。具體來(lái)說(shuō)，該函數(shù)定義了一個(gè)雙精度浮點(diǎn)型變量`sum`，初始值為0。然后，對(duì)于傳入的每個(gè)單元格，如果其值為數(shù)值型，則將其值累加到`sum`中。最后，將`sum`作為函數(shù)的返回值輸出。

運(yùn)行并檢查結(jié)果

運(yùn)行該函數(shù)并將需要求和的數(shù)據(jù)范圍作為參數(shù)傳入即可得到求和結(jié)果。由于我們使用了自定義函數(shù)，所以不必手動(dòng)逐個(gè)判斷每個(gè)單元格是否為數(shù)值型數(shù)據(jù)，大大提高了計(jì)算效率。同時(shí)，該函數(shù)還可以應(yīng)對(duì)列數(shù)據(jù)為混合格式的情況，如同時(shí)包含數(shù)值型和文本型數(shù)據(jù)。

通過(guò)以上步驟，我們成功地利用VBA解決了在Excel中對(duì)非數(shù)值格式進(jìn)行條件求和的難題。這種方法不僅簡(jiǎn)單方便，而且能夠大幅提高計(jì)算效率，幫助我們更好地完成日常工作任務(wù)。