修法布施得聰明智慧，多分享讓生活更美好。上次我們分享了如何在Excel單元格內(nèi)每一段文字前添加序號(hào)，今天我們將介紹如果處理一個(gè)單元格里面的換行數(shù)據(jù)自動(dòng)相加的方法。 步驟一：準(zhǔn)備工作首先，在Micros

修法布施得聰明智慧，多分享讓生活更美好。上次我們分享了如何在Excel單元格內(nèi)每一段文字前添加序號(hào)，今天我們將介紹如果處理一個(gè)單元格里面的換行數(shù)據(jù)自動(dòng)相加的方法。

步驟一：準(zhǔn)備工作

首先，在Microsoft Office Excel 2007中新建文檔并保存文件名為《Excel一個(gè)單元格里面的換行數(shù)據(jù)怎么自動(dòng)相加.xlsm》（演示文件，下面的代碼可以復(fù)制到任何支持運(yùn)行宏的工作簿中）。

步驟二：編輯宏

按下快捷鍵ALT F11打開(kāi)VBE（宏）編輯界面，然后點(diǎn)擊菜單欄【插入】下拉菜單中選擇【模塊（M）】，插入一個(gè)模塊1，并在代碼框中粘貼以下代碼：

```vb

Sub 選單元格換行數(shù)自動(dòng)相加（）

Dim mb, m As String, i As Long, j As Long, mm

Dim cmt As Range

For Each cmt In Selection

m cmt.Text

If cmt.Text <> "" Then

If InStr(1, m, Chr(10), 1) > 0 Then

mb Split(m, Chr(10))

j 0

For i 0 To UBound(mb)

If IsNumeric(mb(i)) Then

j j 1

If j 1 Then

mm Val(mb(i))

Else

mm mm Val(mb(i))

End If

End If

Next i

(0, 1).Value mm

End If

End If

Next cmt

End Sub

```

步驟三：運(yùn)行宏

在工作表窗口中選擇需要處理的數(shù)據(jù)單元格區(qū)域，然后運(yùn)行【選數(shù)據(jù)單個(gè)標(biāo)識(shí)】宏。具體操作是：點(diǎn)擊菜單欄中的【視圖】，在下拉列表中選擇【宏】，再選擇【查看宏(V)】以打開(kāi)宏對(duì)話框，選擇剛才粘貼的宏名并執(zhí)行。隨后在另一列中輸出結(jié)果，整個(gè)運(yùn)行過(guò)程如下圖所示。

通過(guò)以上步驟，您可以輕松地處理一個(gè)單元格里面的換行數(shù)據(jù)自動(dòng)相加，提高工作效率，更便捷地處理Excel表格中復(fù)雜的數(shù)據(jù)。希望這篇文章能幫助到您，讓Excel的應(yīng)用變得更加方便快捷！