卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

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ù)字并進行求和,提高工作效率。

標簽: