|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub shishi()
- Dim i, j As Integer
- Dim ary1() As Variant
- Dim Range1 As Range, Range2 As Range, rr1 As Range, rr2 As Range
-
- ' 设置要比对的单元格区域
- Set Range1 = Range("A2:C3")
- Set Range2 = Range("F2:H3")
- For i = 1 To 2
- For j = 1 To 2
- Set rr1 = Range1.Rows(i)
- Set rr2 = Range2.Rows(j)
- ary1 = Application.Transpose(Application.Transpose(rr1))
- ary2 = Application.Transpose(Application.Transpose(rr2))
- ' 如果单元格文本中包含逗号,可选用其他符号
- st1 = Join(ary1, ",")
- st2 = Join(ary2, ",")
- ' 随机给相同内容上色,缺点是随机的颜色可能相同,而且颜色是有限的
- If st1 = st2 Then
- rr1.Font.ColorIndex = Round(Rnd * 16 + 1, 0)
- rr2.Font.ColorIndex = rr1.Font.ColorIndex
- End If
- Next
- Next
- End Sub
复制代码 |
|