excel两列数据对比A列标有颜色的数据同样标在B列相同数据上

求教问题1:
(表1)上行A3:J3任意某数对应其下行A4:J4正下方的数若是奇数则在上行自动填充蓝色.
若对应下行正下方位置是偶数则不填充颜色,以此类推.
注:上行任意某数(是指偶数或奇数)对应下行正下方位置的奇数.
求教问题2:
(表2)升序排列不包含重复数.把(表1)填充蓝色的数,在(表2)相应
的数上同样自动填充蓝色.
注:(表1)数据是无序且有重复,重复数中只要有一个是蓝色的,则(表2)就要填上蓝色.

恳请高手能否赐教?万分感激!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To 100

If Cells(4, i).Value Mod 2 = 1 Then

Worksheets(1).Cells(3, i).Interior.ColorIndex = 33  '(3,i)  3代表第三行,i代表列,设置的100列,如果有需要可自行增减

Else

Worksheets(1).Cells(3, i).Interior.ColorIndex = xlNone

End If

Next

Sheets(2).Cells.Interior.ColorIndex = xlNone

For Each cel In Range("a3").CurrentRegion   '(a3)为选择a3行

If cel.Interior.ColorIndex = 33 Then    '33为蓝色,想要其他颜色可自行改变

 For Each Rng In Sheets(2).Range("a1:m100") 'a1:m100为选择区间,可自行更改

If cel = Rng Then Rng.Interior.ColorIndex = 33

Next

End If

Next

End Sub

将此代码放在表1中,效果图如下,有不明白的联系我21888841

温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-07-21
右键,设置单元格格式,图案,颜色
相似回答
大家正在搜