方法:手动拆分:使用分隔符字符拆分表格。使用 Flash 填充:输入拆分后的列标题,然后使用 Ctrl + E 填充。使用文本到列向导:选择分隔符类型和拆分范围。使用 VBA 代码:输入表格范围和拆分列范围。

如何拆分 Excel 表格
1. 手动拆分
- 选择要拆分的表格。
- 转到“数据”选项卡 > “自文本分列” > “固定宽度”。
- 在“分隔符”框中,输入一个分隔表格中列的字符(例如,逗号、分号或制表符)。
- 单击“下一步”,然后调整预览中的列宽度。
- 单击“完成”,表格将被拆分为单独的列。
2. 使用 Flash 填充
- 在表格的第一行的每个列中输入一个拆分后的列标题。
- 选择第一行数据。
- 将光标移动到最后一个拆分后的列标题的单元格中。
- 按住 Ctrl + E 键,Flash 填充将自动拆分其余数据。
3. 使用文本到列向导
Shop7z网上购物系统支持电脑版+手机版+支付宝及微信支付,支持QQ和微信一键登陆,系统集众家之所长,大气超美观页面+手机版+商品组合套餐+限时抢购秒杀+图片批量上传+淘宝数据包导入+弹出式分类菜单+不同规格不同价格+新订单邮件通知+销售报表打印与Excel输出+物流跟踪打印查询+会员积分及优惠券+邮件群发+图片在线管理+销售统计报表+五种价格体系+礼品礼券+微信公众号支付+扫码支付等等等。
- 选择要拆分的表格。
- 转到“数据”选项卡 > “文本到列”。
- 在“分隔符号”选项中,选择分隔表格中列的选项(例如,逗号、分号或制表符)。
- 在“目标类型”选项中,选择“拆分到现有工作表”。
- 指定拆分后的列的范围。
- 单击“完成”,表格将被拆分为单独的列。
4. 使用 VBA 代码
- 打开 VBA 编辑器(按 Alt + F11)。
- 插入一个新模块。
-
粘贴以下代码:
Sub SplitTable() Dim rng As Range Dim ws As Worksheet Set rng = Application.InputBox("选择要拆分的表格范围:", "拆分表格", Type:=8) Set ws = Application.InputBox("输入拆分后的列的范围:", "拆分表格", Type:=8) rng.TextToColumns Destination:=ws.Range(ws.Cells(1, 1), ws.Cells(1, rng.Columns.Count)), Delimiter:="," End Sub - 运行宏,输入表格范围和拆分后的列范围。
- 表格将被拆分为单独的列。










