求大神帮忙制作一个Excel表格数据拆分

jingyi66

制作一个Excel表格数据拆分，导入数据一个单元格中的两个数据进行分开，转换成一列显示方便计算。能帮忙制作编译好最好了，有赏金。

原数据


改变后的数据

寒潮

jingyi66 发表于 2020-12-17 11:35
重新上传了

Demo.e (6.02 KB, 下载次数: 8)

2020-12-17 13:58 上传

点击文件名下载附件

jingyi66

原数据


改变后数据

寒潮

图在转啊转。
你上个Excel文件上来啊。

站在这别动

这图片  看不到

jingyi66

已上传附件

jingyi66

重新发了

jingyi66

17640411992 发表于 2020-12-17 11:31
这图片  看不到

重新上传了

jingyi66

寒潮 发表于 2020-12-17 11:25
图在转啊转。
你上个Excel文件上来啊。

重新上传了

真冬

  

置剪辑板文本 (表格数据拆分 (取剪辑板文本 ()))

子程序名	返回值类型	公开	备 注
表格数据拆分	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
分割	文本型		0
i1	整数型
a	整数型
b	文本型
快速文	快速文本对象

快速文.置文本 (取剪辑板文本 ())
快速文.替换子文本 ( #引号, “”, , , 真)
分割 ＝ 快速文.分割文本 (字符 (10), )
计次循环首 (取数组成员数 (分割), i1)
a ＝ 寻找文本 (分割 [i1], 字符 (9), , 假)
判断 (a ＝ -1)
分割 [i1] ＝ b ＋ 分割 [i1]
b ＝ 取文本左边 (分割 [i1], a)
分割 [i1] ＝ 分割 [i1] ＋ 字符 (10)
计次循环尾 ()
快速文.置文本 (分割)
返回 (快速文.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> 置剪辑板文本 (表格数据拆分 (取剪辑板文本 ()))<br /> <br /> .子程序 表格数据拆分, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 文本型<br /> .局部变量 快速文, 快速文本对象<br /> <br /> 快速文.置文本 (取剪辑板文本 ())<br /> 快速文.替换子文本 (#引号, “”, , , 真)<br /> 分割 ＝ 快速文.分割文本 (字符 (10), )<br /> .计次循环首 (取数组成员数 (分割), i1)<br />     a ＝ 寻找文本 (分割 [i1], 字符 (9), , 假)<br />     .判断开始 (a ＝ -1)<br />         分割 [i1] ＝ b ＋ 分割 [i1]<br />     .默认<br />         b ＝ 取文本左边 (分割 [i1], a)<br />     .判断结束<br />     分割 [i1] ＝ 分割 [i1] ＋ 字符 (10)<br /> .计次循环尾 ()<br /> 快速文.置文本 (分割)<br /> 返回 (快速文.取文本 (, ))