Excel单元格自动相加换行数据方法详解

修法布施得聪明智慧，多分享让生活更美好。上次我们分享了如何在Excel单元格内每一段文字前添加序号，今天我们将介绍如果处理一个单元格里面的换行数据自动相加的方法。

步骤一：准备工作

首先，在Microsoft Office Excel 2007中新建文档并保存文件名为《Excel一个单元格里面的换行数据怎么自动相加.xlsm》（演示文件，下面的代码可以复制到任何支持运行宏的工作簿中）。

步骤二：编辑宏

按下快捷键ALT F11打开VBE（宏）编辑界面，然后点击菜单栏【插入】下拉菜单中选择【模块（M）】，插入一个模块1，并在代码框中粘贴以下代码：

```vb

Sub 选单元格换行数自动相加（）

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

```

步骤三：运行宏

在工作表窗口中选择需要处理的数据单元格区域，然后运行【选数据单个标识】宏。具体操作是：点击菜单栏中的【视图】，在下拉列表中选择【宏】，再选择【查看宏(V)】以打开宏对话框，选择刚才粘贴的宏名并执行。随后在另一列中输出结果，整个运行过程如下图所示。

通过以上步骤，您可以轻松地处理一个单元格里面的换行数据自动相加，提高工作效率，更便捷地处理Excel表格中复杂的数据。希望这篇文章能帮助到您，让Excel的应用变得更加方便快捷！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。