Excel怎樣批量提取文本中數(shù)字求和
在工作中,我們經(jīng)常遇到需要從大量文本中提取數(shù)字并進行求和的情況。如果使用一般的方法,需要逐個列出數(shù)字然后再求和,這樣非常費時費力。下面將介紹兩種可以快速計算結(jié)果的方法。方法一:使用宏實現(xiàn)批量提取數(shù)字求
在工作中,我們經(jīng)常遇到需要從大量文本中提取數(shù)字并進行求和的情況。如果使用一般的方法,需要逐個列出數(shù)字然后再求和,這樣非常費時費力。下面將介紹兩種可以快速計算結(jié)果的方法。
方法一:使用宏實現(xiàn)批量提取數(shù)字求和
1. 首先,打開Microsoft Office Excel 2007,并新建一個文檔,保存為文件名《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 "無數(shù)字"
End If
End With
(0, 1).Value sn
Next myr
End Sub
```
4. 完成以上操作后,回到工作表窗口。首先選中包含原始數(shù)據(jù)的表格,然后運行【選數(shù)據(jù)批量提取數(shù)字求和】宏(在菜單欄的【視圖】中下拉列表中選擇【宏】,打開宏對話框,在列表中選擇該宏名,點擊執(zhí)行)。
5. 運行結(jié)果將會在原數(shù)據(jù)的后一列輸出求和結(jié)果。
方法二:使用公式實現(xiàn)批量提取數(shù)字求和
1. 首先,選中一個空白單元格,輸入以下公式:
```
SUM(IF(ISNUMBER(--MID(A1,FIND("-",A1) 1,LEN(A1)-FIND("-",A1))),--MID(A1,FIND("-",A1) 1,LEN(A1)-FIND("-",A1))),0)
```
2. 將公式拖動或復(fù)制到需要求和的范圍內(nèi)(例如整個列),即可批量提取數(shù)字并求和。
通過以上兩種方法,我們可以快速而準確地從大量文本中提取數(shù)字并進行求和,提高工作效率。