excel同一行数据有两组多列数据

发布网友发布时间：2022-05-10 19:00

共2个回答

热心网友时间：2023-10-23 08:11

Sub arr()
Dim a As Range
Dim b As Range
Dim c, d
d = Range("a100000").End(xlUp).Row
c = 3 '对比的首行行数减1，例如A4单元格即第4行，则c=4-1
Do
c = c + 1
If c > d Then
Exit Do
End If
For Each a In Range(Cells(c, 1), Cells(c, 3)) 'cells(c,1)1为A列首列列号，Cells(c, 3)3为A列末行行号
For Each b In Range(Cells(c, 5), Cells(c, 7)) 'cells(c,1)5为B列首列列号，Cells(c,7)7为B列末行行号（7可以外延更大的行号）
If a = b Then
b.Interior.ColorIndex = 6 '(3为红色，6为*)
End If
Next
Next
Loop
End Sub

热心网友时间：2023-10-23 08:12

条件格式，公式，countif()

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com