在工作中，我們經(jīng)常遇到需要從大量文本中提取數(shù)字并進(jìn)行求和的情況。如果使用一般的方法，需要逐個(gè)列出數(shù)字然后再求和，這樣非常費(fèi)時(shí)費(fèi)力。下面將介紹兩種可以快速計(jì)算結(jié)果的方法。方法一：使用宏實(shí)現(xiàn)批量提取數(shù)字求

在工作中，我們經(jīng)常遇到需要從大量文本中提取數(shù)字并進(jìn)行求和的情況。如果使用一般的方法，需要逐個(gè)列出數(shù)字然后再求和，這樣非常費(fèi)時(shí)費(fèi)力。下面將介紹兩種可以快速計(jì)算結(jié)果的方法。

方法一：使用宏實(shí)現(xiàn)批量提取數(shù)字求和

1. 首先，打開Microsoft Office Excel 2007，并新建一個(gè)文檔，保存為文件名《Excel怎樣批量提取文本中數(shù)字求和.xlsm》（演示文件）。

2. 按下快捷鍵ALT F11，打開VBE（宏）編輯界面，然后在菜單欄的【插入】下拉列表中選擇【模塊（M）】。

3. 在代碼框中復(fù)制以下代碼：

```vba

Sub 選數(shù)據(jù)批量提取數(shù)字求和()

Dim myr As Range, myrs As Range, m As String, sn, i

Set myrs Selection

For Each myr In myrs

m myr.Text

sn 0

With CreateObject("")

.Pattern "-[0-9](.[0-9]*)?|[0-9](.[0-9]*)?"

.Global True

If .Test(m) Then

For Each i In .Execute(m)

sn sn Val(i)

Next i

Else

sn "無(wú)數(shù)字"

End If

End With

(0, 1).Value sn

Next myr

End Sub

```

4. 完成以上操作后，回到工作表窗口。首先選中包含原始數(shù)據(jù)的表格，然后運(yùn)行【選數(shù)據(jù)批量提取數(shù)字求和】宏（在菜單欄的【視圖】中下拉列表中選擇【宏】，打開宏對(duì)話框，在列表中選擇該宏名，點(diǎn)擊執(zhí)行）。

5. 運(yùn)行結(jié)果將會(huì)在原數(shù)據(jù)的后一列輸出求和結(jié)果。

方法二：使用公式實(shí)現(xiàn)批量提取數(shù)字求和

1. 首先，選中一個(gè)空白單元格，輸入以下公式：

```

SUM(IF(ISNUMBER(--MID(A1,FIND("-",A1) 1,LEN(A1)-FIND("-",A1))),--MID(A1,FIND("-",A1) 1,LEN(A1)-FIND("-",A1))),0)

```

2. 將公式拖動(dòng)或復(fù)制到需要求和的范圍內(nèi)（例如整個(gè)列），即可批量提取數(shù)字并求和。

通過以上兩種方法，我們可以快速而準(zhǔn)確地從大量文本中提取數(shù)字并進(jìn)行求和，提高工作效率。