如何用VBA将微信文本订单信息处理成EXCEL订单信息

一颦一笑

各位高手：
      求助一下。
      如附件所示，如何用VBA将微信文本订单信息处理成EXCEL订单信息？
     因每天处理的订单有上千条，项目上万，所以需要对程序速度有要求。
谢谢！

lilyhcn1

这个不应该有偿吗？让别人帮你干活

Yalishanda30

只有个结果表，连个源文件也没有。。。。

zpy2

Yalishanda30 发表于 2022-3-30 08:28
只有个结果表，连个源文件也没有。。。。

A列是源数据吧

F列是结果

一颦一笑

lilyhcn1 发表于 2022-3-29 20:45
这个不应该有偿吗？让别人帮你干活

不好意思，我没有意思让别人帮我干活，我就是刚刚开始学习VBA，身边有朋友遇到这个问题，我就想在论坛里用高手们教得东西尝试编程而已。你可以选择飘过

一颦一笑

Yalishanda30 发表于 2022-3-30 08:28
只有个结果表，连个源文件也没有。。。。

不好意思，上传数据时没整理好，A列是源数据，F列是目标结果。

一颦一笑

zpy2 发表于 2022-3-30 08:38
A列是源数据吧

F列是结果

感谢这位大侠解释，多谢！

zpy2

create temp table aa as select rowid old_rowid,*,regexp2('1\d{10}',从微信上复制下来的文本信息) 电话 from 从微信上复制下来的文本信息正则拆分; create temp table bb as select old_rowid from aa where 电话!=''; create temp table cc as select b.rowid,* from 从微信上复制下来的文本信息正则拆分 b left join bb on b.rowid=(bb.old_rowid-1); create temp table dd as select rowid,从微信上复制下来的文本信息,fillna(old_rowid) 组 from cc; create temp table ee as select *,fillna(iif(rowid=(组-1),从微信上复制下来的文本信息,'')) 地址,regexp2('([\x{4e00}-\x{9fa5}]+)\s*(1\d{10})',从微信上复制下来的文本信息,1) 姓名,regexp2('([\x{4e00}-\x{9fa5}]+)\s*(1\d{10})',从微信上复制下来的文本信息,2) 电话,iif(not (rowid=(组-1) or rowid=组),从微信上复制下来的文本信息,'') 订单详情 from dd; create temp table ff as select 地址,fillna(姓名) 姓名,fillna_2(电话) 电话,regexp2('(.*)(\d)(盒|瓶)',订单详情,1) 产品名称,regexp2('(.*)(\d)(盒|瓶)',订单详情,2) 数量 from ee; select * from ff where 数量!='';

cjc209

vba 一键生成   

cjc209

每组数据之间一定要有 空行才行哈