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()