在上一篇文章中，我們討論了如何使用Excel批量提取文本中的數(shù)字并進(jìn)行求和。但是有時(shí)候我們需要將這些數(shù)字分別提取到不同的列中，那么應(yīng)該如何處理呢？接下來(lái)將分享具體的處理方法。 使用宏來(lái)批量提取數(shù)字到各

在上一篇文章中，我們討論了如何使用Excel批量提取文本中的數(shù)字并進(jìn)行求和。但是有時(shí)候我們需要將這些數(shù)字分別提取到不同的列中，那么應(yīng)該如何處理呢？接下來(lái)將分享具體的處理方法。

使用宏來(lái)批量提取數(shù)字到各列

首先，打開(kāi)Microsoft Office Excel 2007，并新建一個(gè)文檔，保存為文件名《Excel怎樣批量從文本中提取各組數(shù)字到各列.xlsm》。然后按下快捷鍵ALT F11打開(kāi)VBE（宏）編輯界面，在菜單欄中選擇【插入】，然后選擇【模塊（M）】插入一個(gè)新模塊。在新模塊中粘貼以下代碼：

```vba

Sub 選數(shù)據(jù)批量提取數(shù)字分列()

Dim myr As Range, myrs As Range, m As String, j As Long, i

Set myrs Selection

For Each myr In myrs

m myr.Text

With CreateObject("")

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

.Global True

For Each i In .Execute(m)

j j 1

(0, j) Val(i)

Next i

j 0

End With

Next myr

End Sub

```

實(shí)際操作步驟

1. 在工作表窗口中選中原始數(shù)據(jù)單元格區(qū)域。

2. 運(yùn)行【選數(shù)據(jù)批量提取數(shù)字分列】宏?？梢酝ㄟ^(guò)菜單欄中的【視圖】->【宏】->【查看宏(V)】來(lái)執(zhí)行宏。

3. 執(zhí)行完宏后，您會(huì)發(fā)現(xiàn)數(shù)字已經(jīng)被成功提取到各列中，如下圖所示。

通過(guò)以上操作，您可以輕松地將文本中的數(shù)字批量提取到各個(gè)列中。如果這篇文章對(duì)您有所幫助，請(qǐng)不要忘記點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”來(lái)支持我。如果您還有任何疑問(wèn)，也歡迎在下方留言給我們。感謝閱讀！