[已解决]历遍工作表比较的问题求助各位老师

兰州豆豆 · 发表于 2014-2-21 09:04

本帖最后由兰州豆豆于 2014-2-21 13:35 编辑

附件

历遍工作表比较.rar (115.41 KB, 下载次数: 19)

baksy · 发表于 2014-2-21 09:31

用条件格式可以完成，
格式条件为
单元格值=$D4+17 和单元格值=$D4-17

兰州豆豆 · 发表于 2014-2-21 09:37

baksy 发表于 2014-2-21 09:31
用条件格式可以完成，
格式条件为
单元格值=$D4+17 和单元格值=$D4-17

老师您好，是不是每个工作表都要进行一次操作？

baksy · 发表于 2014-2-21 09:43

本帖最后由 baksy 于 2014-2-21 10:07 编辑

兰州豆豆发表于 2014-2-21 09:37
老师您好，是不是每个工作表都要进行一次操作？

回复内容有误，删除。

兰州豆豆 · 发表于 2014-2-21 10:02

baksy 发表于 2014-2-21 09:43
是的，
A列和B列、C列和D列的公式是一样的，
所以复制A2单元格的公式后右拉到B2单元格

这个不现实啊，多的时候，50张工作表，每个工作表操作一遍，有点麻烦啊。

baksy · 发表于 2014-2-21 10:08

兰州豆豆发表于 2014-2-21 10:02
这个不现实啊，多的时候，50张工作表，每个工作表操作一遍，有点麻烦啊。

对不起给你回复不是你问的内容，回复已删除。

过江龙 · 发表于 2014-2-21 13:08

试试这段代码：
Sub bd()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Worksheets
For i = 1 To Sh.[D65536].End(xlUp).Row
If Sh.Cells(i, 4) <> "" And Sh.Range("IV" & i).End(xlToLeft).Column > 4 Then
   For f = 5 To Sh.Range("IV" & i).End(xlToLeft).Column
      If Sh.Cells(i, 4) - Sh.Cells(i, f) = 17 Or Sh.Cells(i, 4) - Sh.Cells(i, f) = -17 Then
      Sh.Cells(i, 4).Interior.ColorIndex = 6
      Sh.Cells(i, f).Interior.ColorIndex = 6
      End If
   Next
End If
Next

Next
Application.ScreenUpdating = True
End Sub

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

[已解决]历遍工作表比较的问题求助各位老师

相关帖子

评分