求助!!!!如何在2个sheet间找到相同的数字

joseph2003 · 发表于 2011-1-31 16:30

假设sheet2的内容如下
21 12 45 66 78 87

sheet1内容如下
11 45 63 67 79 54 35 34
....
....
56 67 43 97 45 66 42 76

如何在sheet1找到sheet2相同的数字
且会以颜色标示出来

如附件所示

Book1.rar (2.81 KB, 下载次数: 16)

麻烦高手帮个忙
小弟看到快眼花了
感激不尽

[ 本帖最后由 joseph2003 于 2011-1-31 18:00 编辑 ]

并不必然 · 发表于 2011-1-31 16:50

脚本

Sub Find_Num()
For Each Found_Num In Worksheets(2).Range("A1:F3")
For Each Data In Worksheets(1).Range("A1:AI20")
      If Data.Value = Found_Num Then
         Data.Interior.ColorIndex = 3
      End If
Next Data
Next Found_Num
End Sub

chinjingo · 发表于 2011-1-31 16:52

条件格式搞定

joseph2003 · 发表于 2011-1-31 17:07

请问2楼前辈
你的程式语法要如何导入

请问3楼前辈
可否解怿一下=COUNTIF(_11,A1)>0语法意思
其中的_11可否请前辈说明一下
因为小弟需要是
A1~F1比对一次
A2~F2比对一次
以此类推到A3~F3比对一次
而您的附件是A1~F3全部一次跟sheet1做比对

谢谢2位高手们解答
再麻烦你们一次了

guojianlin1985 · 发表于 2011-1-31 17:08

楼上真高。能解释一下不？

chinjingo · 发表于 2011-1-31 17:16

公式、名称管理器、新建
想怎么定义就选哪个区域

joseph2003 · 发表于 2011-1-31 17:41

我懂了 2、3楼前辈真的太利害了

再请教2楼的并不必然前辈

假设我要在sheet2的A1~F5抽取sheet1的A1~F1
接著一样在sheet2的A6~F6抽取sheet1的A2~F2
.............................A11~F11抽取sheet1的A3~F3
也就是说sheet2每5格抽取sheet1的A*~F*一次
此脚本该如何改写

无辣味水煮鱼 · 发表于 2011-1-31 17:51

凑个热闹，字典解法。

joseph2003 · 发表于 2011-1-31 18:05

请教2楼老师前辈

如果要改成
Worksheets(2).Range("A1:F1")对应Worksheets(1).Range("A1:AI5")
Worksheets(2).Range("A2:F2")对应Worksheets(1).Range("A6:AI10")
Worksheets(2).Range("A3:F3")对应Worksheets(1).Range("A11:AI15")
.........
.........
以此类推

也就是说sheets(2)每隔五列只抽取sheet(1)一列的话
要如何改写呢

感激不尽!

[ 本帖最后由 joseph2003 于 2011-1-31 19:01 编辑 ]

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

[求助] 求助!!!!如何在2个sheet间找到相同的数字