VBA 刷新资料

On_fire · 发表于 2024-3-25 20:27

本帖最后由 On_fire 于 2024-3-26 15:43 编辑

VBA 刷新资料

*

New页是新资料, 每行是一组数据, 有空, A列是关键键字

Data页是老资料, 每行是一组数据, 有空, A列是关键键字

Update页是New及Data两页数据的合并及去重去空的结果

*

代码的逻辑如下,

1. 根据Data页的上到下顺序, 利用关键词, 添加New的数据到右侧(标黄)及去重

2. 同时, 加分隔线,添加Data没有的那一行资料到Update页

*

模拟结果在Update页

*

恳请大神, 老师出手帮忙…谢谢!

gwjkkkkk · 发表于 2024-3-25 20:52

楼主出题，必是搞脑子，Mark一下。。。

yynrzwh · 发表于 2024-3-25 21:09

Update.zip (22.3 KB, 下载次数: 4)

On_fire · 发表于 2024-3-26 07:05

本帖最后由 On_fire 于 2024-3-26 10:14 编辑

yynrzwh 发表于 2024-3-25 21:09

谢谢老师,
早上好,
原来Data页的A列有重复值,
请您帮忙看看文件及看看如何再优化?

liulang0808 · 发表于 2024-3-26 07:55

On_fire 发表于 2024-3-26 07:05
谢谢老师,
早上好,
原来Data页的A列有重复值,

楼主的附件没有看到重复，建议再上传附件，结合附件说明哪里重复怎么处理吧

yynrzwh · 发表于 2024-3-26 09:04

A列并没有重复

On_fire · 发表于 2024-3-26 10:13

yynrzwh 发表于 2024-3-26 09:04
A列并没有重复

大神, 老师们好,
统一回复, 抱歉, 上错了模拟文件…
正确的文件模拟结果在1楼
*
蓝底 = New页, 有重复值
绿底 = Data页, 有重复值

yynrzwh · 发表于 2024-3-26 15:26

有点麻烦

Update_1.zip (27.71 KB, 下载次数: 3)

On_fire · 发表于 2024-3-26 15:42

yynrzwh 发表于 2024-3-26 15:26
有点麻烦

老师好,
Data页有重复值,
需求是每一行都要Update…

yynrzwh · 发表于 2024-3-26 15:51

哪里不对么？

		自动登录	找回密码
密码			免费注册

[求助] VBA 刷新资料