🌟单元格内容分列多行✨Excel一列数据拆分为多行，VBA轻松搞定 🚀

发布时间：2025-03-16 06:03:06来源：网易

工作中常常会遇到这样的情况：Excel表格中的一列数据，每行包含多个信息，但需要将它们分开显示为多行。比如，一份客户名单里，每个单元格内有姓名和电话号码，但你希望每一项独立成一行展示。这时候，借助Excel的VBA脚本就能快速解决！👇

首先，打开你的Excel文件，按 `Alt + F11` 打开VBA编辑器。然后点击“插入” > “模块”，输入以下代码：

```vba

Sub SplitRows()

Dim cell As Range, dataRow As Range

For Each cell In Selection

If cell.Value <> "" Then

Set dataRow = cell.Worksheet.Rows(cell.Row)

dataRow.UnMerge

dataRow.Copy

ActiveSheet.Paste Destination:=cell.Offset(0, 1)

End If

Next cell

End Sub

```

运行后选择需要拆分的单元格区域，即可实现一列数据的多行化！💡

再也不用手动复制粘贴了，效率up！👏快试试吧～

标签：

免责声明：本答案或内容为用户上传，不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。如遇侵权请及时联系本站删除。