宏求帮助，多表逐一搜索关键列，对比并标记重复值

新西兰棋佛

1）工作表的名称列在book1工作表“末”的A列，如果某表在book1有而book2没有，跳过就行了，需要检测的表我们都放在末里，有时候会有新项目，book2里一开始肯定搜不到。
2）在book1工作表“一季”的A1：G2区域内搜索关键字“时间”，如果没有搜到，就跳过
3）在“一季”的C列搜到“时间”，记录列号C。
4）逐一用C列里的值，去book2“一季”的“时间”列中对比，如果存在相同值，则标黄。
     也就是说，样板中的情况，应该是给book1，一季，C列存在2018-05-01这一行标黄色。
5）当对比完最后一个数值后。按同样逻辑扫描“二季”
6）重复过程，直到所有工作表都扫描完毕。

没什么VBA知识，今天摸爬了一下，找到一些可以用的代码，目前可以成功检测两个工作簿间的重复值。
但还剩下一些问题，麻烦大家指点，谢谢

• 我不知道该怎么做循环，“末”中列出的表，每个都要检测一次，但是这个循环怎么做，没思路
• 如果Book1“末”中的工作表清单再多一项，比如“四季”，而book2里没有四季这个标签，貌似宏运行时会报错？反正，需要搜索的表就列在“末”里，一般都能对上，对不上肯定是新加的项目，所以如果找不到能不能让它跳过，继续扫其他表，别停下来。
• book2里，同样工作表的时间列通常都能对上，所以可以直接引用book1取到的“列号”。不过偶尔也会动，所以有必要用同样规则在book2确定一次么？虽然没有也可以
• 主要还是怕它跳错，还有循环怎么开始，怎么让它正确结束，这两个地方我不会做。
• 做好的部分在附件
  

Desktop.zip (40.94 KB, 下载次数: 11)

2019-10-5 09:22 上传

点击文件名下载附件

liangmutou01

你的文件格式不对。

蓝桥玄霜

查找的代码：

新西兰棋佛

liangmutou01 发表于 2019-10-4 09:09
你的文件格式不对。

呃，抱歉我不太明白。就是xlsb 格式，里面做好了部分宏，我这边可以用，excel2016

新西兰棋佛

蓝桥玄霜 发表于 2019-10-4 09:38
查找的代码：

感谢回复，试了一下不太适用 ，具体原因我也不清楚，总之运行不了。

我今天自己试着做了一下，基本能达到想要的效果。就是不会做循环，还有运行报错的情况不知道怎么处理，也不知道循环是不是正确结束了（资料说如果不做好停止条件，宏会无限循环下去）。
宏在附件里，如果可以能否帮忙看看改进改进，谢谢

zpy2

新西兰棋佛 发表于 2019-10-4 23:05
感谢回复，试了一下不太适用 ，具体原因我也不清楚，总之运行不了。

我今天自己试着做了一下，基本能 ...

具体原因我也不清楚，总之运行不了。
可以上传你的附件，笼统的说 无益问题的解决
你自己做的没有循环？
循环 就是 for ...next,估计每个sub都有，你哪里不会？
你的表，我打不开。

新西兰棋佛

zpy2 发表于 2019-10-5 07:34
具体原因我也不清楚，总之运行不了。
可以上传你的附件，笼统的说 无益问题的解决
你自己做的没有循 ...

附件换了，请看一下。代码也单独拿到word里了，如果还不行我换个低版本的excel试试。

具体的，我的扫描重复值部分应该是用到一个循环

主要是扫描多个工作表的部分，不知道怎么表达，循环指令又有好几个，for do 之类的，搞晕了不知道该用哪个。

新西兰棋佛

又开始摸索了，不知道今天能不能整出

zpy2

新西兰棋佛 发表于 2019-10-5 09:25
附件换了，请看一下。代码也单独拿到word里了，如果还不行我换个低版本的excel试试。

具体的，我的扫 ...

现在问题是如何让这个指令在其余工作表里循环，我不太会做循环看看这个
For Each Sht in Sheets


Next

我现在是手机，我看了你Word文档里的代码，应该不是蓝版的，不妨按他的思路看看。那句不懂就F1.
另外，你这个新版我打开了，但是能稍微介绍一下为啥要这样啊。

新西兰棋佛

试了
    Dim SheetList As Variant
      SheetList = Array("一季", "二季", "三季")
      
    Dim x As Integer
   
    For x = LBound(SheetList) To UBound(SheetList)

但是不生效，只有第一个表有用。
另外这个也不方便用，因为工作表的数量、名字会变，总不能每次都去换代码。。。。