想用VBA对两组数据进行比对重新排列，自己写了很久无法完美实现，求助前辈们看看

feixiangye

如下数据源，A/B/C三列是一组，E/F/G三列是一组，最终想要如模拟结果，自己研究两天已被绕晕，一直无法完美实现（附件内有我已写的代码），求前辈们帮忙不吝指导一下，谢谢！
1.想要A/B列与E/F列两行内容相同的，整理后排列到一起；
2.两列内容不同的：如果A列与E列名称相同的排列一起；
3.两组行数不一样的放空排列；

yynrzwh

数据比对.rar (22.02 KB, 下载次数: 22)

2023-10-22 10:27 上传

点击文件名下载附件

铁马1980

你这不是已经问过了么？
https://club.excelhome.net/thread-1675351-1-1.html

shiruiqiang

没事练手，两种稍微有点不一样的排序

zpy2

select * from 基础全连接 limit 20;
create temp table aa as
select f01,row_number() over ( partition by f01) grp,f02,f03 from 基础全连接 where f01!='';
create temp table bb as
select f05,row_number() over ( partition by f05) grp,f06,f07 from 基础全连接 where f05!='';
//select * from aa;
//select * from bb;
create temp table cc as
select f01,grp from aa union
select f05,grp from bb;
//select * from cc;
create temp table dd as
select * from cc left join aa using(f01,grp) left join bb on cc.grp=bb.grp and f01=f05;
select colExclude[grp] from dd;

//select * from dd left join bb using(grp) where f01=f05;

zpy2

修改为：A/B列与E/F列两行内容相同的，整理后排列到一起；

select * from 基础全连接 limit 20;
create temp table aa as
select f01,row_number() over ( partition by f01) grp,f02,f03 from 基础全连接 a left join (select f05,f06 from 基础全连接) b on a.f01=b.f05 and a.f02=b.f06 where a.f01!='' and b.f05 is null;
create temp table bb as
select f05,row_number() over ( partition by f05) grp,f06,f07 from 基础全连接  a left join (select f01,f02 from 基础全连接) b on b.f01=a.f05 and b.f02=a.f06 where a.f05!='' and b.f01 is null;
select * from aa;
cli_add_html~bb;
select * from bb;
create temp table cc as
select f01,grp from aa union
select f05,grp from bb;
select * from cc;
create temp table dd as
select * from cc left join aa using(f01,grp) left join bb on cc.grp=bb.grp and f01=f05;
select colExclude[grp] from dd union all
select f01,f02,f03,highlight(b.f05),b.f06,b.f07 from 基础全连接 a join (select f05,f06,f07 from 基础全连接) b on a.f01=b.f05 and a.f02=b.f06 where a.f01!='' order by f01,f02;

feixiangye

铁马1980 发表于 2023-10-21 21:46
你这不是已经问过了么？
https://club.excelhome.net/thread-1675351-1-1.html

谢谢老师的关注，本来前面这段我被绕晕了，写不出来，想着有老师帮忙指导一些思路以后，我研究一下老师们的代码，后面的我自己能完成，没想到研究了两天老师们的代码，也没有理解透彻。

一招秒杀

Excel  对Ado 支持的语法太弱了，本来 1个全连接 就好，不支持，也不支持多个 左连接，只好分为两步，总算完成。

一招秒杀

修改一下，一步到位，一次搞定。

feixiangye

shiruiqiang 发表于 2023-10-21 21:54
没事练手，两种稍微有点不一样的排序

老师您好，您的写法2是我想要的最终结果，但有一个结果对应顺序不对，其余的结果都对，烦请帮忙看下该怎么修改代码，谢谢！