将Excel升级至13版本以上
将数据选中在功能区选中数据-获取和转换-从表格-点击确定
弹出Power Query编辑器窗口,选中需要拆分的数据列，点击拆分列，按字符数。
字符数输入1，重复，点开高级选项，拆分为行，确定
出现下列界面，点击左上角关闭并上载。
出现下列表格，将内容选中，复制在另外一个文件表里，粘贴为值和数字格式。
筛选列6空白值，选中后，Ctrl+G定位可见单元格，将选中列删除
不一定要用VBA的，
1、用查找与替换将强制换行符成其它符号如逗号，再分列处理，然后转置为列，
2、用F5定位，将1 行的内容填充到下面各行。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024