文本转换显示

emaildai78

用VBA把R1,R2,R3,R4,R6转换成R1-R4,R6见附件

我走我流

仅  供  参   K  A o

emaildai78

我走我流 发表于 2023-2-22 13:12
仅  供  参   K  A o

两个相邻的不用缩，3个或3个以上才用“-”连接，

emaildai78

file:///C:/Users/Administrator/Desktop/11111.jpg

emaildai78

我走我流 发表于 2023-2-22 13:12
仅  供  参   K  A o

有空行时，运行出错

我走我流

emaildai78 发表于 2023-2-22 16:19
有空行时，运行出错

空行时 正则 取不出结果，导致出错。。。多 加个判断，

emaildai78

我走我流 发表于 2023-2-22 16:25
空行时 正则 取不出结果，导致出错。。。多 加个判断，

对VBA不了解，烦请大师指教。

zpy2

emaildai78 发表于 2023-2-22 14:16
两个相邻的不用缩，3个或3个以上才用“-”连接，

//select * from 带字母数字离散转连续数据;
cli_split_data~带字母数字离散转连续数据~,~位号;
create temp table aa2 as
select *,regexp2('(\D+)(\d+)',位号,1) 前缀,regexp2('(\D+)(\d+)',位号,2) 原始 from 带字母数字离散转连续数据split order by id;
create temp table aa3 as select *,原始-row_number() over (partition by id,前缀) 差 from aa2;
create temp table aa as
select *,iif((select count(*) from aa3 a where a.id=b.id and a.前缀=b.前缀 and a.差=b.差)>2,1,rowid) 计数 from aa3 b;
create temp table bb as select id,原始,差,iif(min(原始)!=max(原始) and (max(原始)-min(原始)>2),前缀||min(原始)||'-'||前缀||max(原始),前缀||原始) 新序号 from aa group by id,前缀,差,计数;
select a.rowid,位号,新序号 from 带字母数字离散转连续数据 a join (select id,group_concat(新序号) 新序号 from bb group by id) b on a.rowid=b.id;

夏天的风shh4695

请参考。。。。。。。。。。。

zldccmx