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

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

步驟一：準備工作

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

步驟二：編輯宏

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

```vb

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

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

```

步驟三：運行宏

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

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