求助，第一行和第二行相同数字标示出来，麻烦大神帮忙

wang03158

从上往下，5列中有一列上下相同的数字，就在H列用1表示 。数据非常多，麻烦大哥帮忙，谢谢！

A1233515

1. Public Sub A()
   
2. Dim rng As Range
   
3. For Each rng In Range("a1").CurrentRegion
   
4. If rng.Value = rng.Offset(1, 0).Value Then
   
5. rng.Cells.Font.ColorIndex = 3
   
6. rng.Offset(1, 0).Cells.Font.ColorIndex = 3
   
7. End If
   
8. Next
   
9. End Sub

复制代码

hcm19522

格式化B2:F15=(B2=B1)+(B2=B3)

wang03158

A1233515 发表于 2020-11-5 14:58

谢谢哥哥。。这个是把重复的数字变色了，能不能在H列里另外表示出来？

wang03158

hcm19522 发表于 2020-11-5 16:51
格式化B2:F15=(B2=B1)+(B2=B3)

格式化B2:F15=(B2=B1)+(B2=B3)
这是什么意思呢哥哥，没明白

hcm19522

F2:H2 下拉=INDEX(B:B,SMALL(IF((B$1:B$14<>B$2:B$15)*(B$2:B$15=B$3:B$16),ROW($2:$15),4^8),ROW(A1)))&""

jiangle

H2单元格复制：
=IF((IF(B2=B1,1,0)+IF(C2=C1,1,0)+IF(D2=D1,1,0)+IF(E2=E1,1,0)+IF(F2=F1,1,0))>0,1,0)

wang03158

jiangle 发表于 2020-11-10 11:03
H2单元格复制：
=IF((IF(B2=B1,1,0)+IF(C2=C1,1,0)+IF(D2=D1,1,0)+IF(E2=E1,1,0)+IF(F2=F1,1,0))>0,1,0)

谢谢哥哥，为我解决了问题。好人一生平安