请教各位高手，如何能达到这样的效果？

jerrike · 发表于 2024-6-24 16:15

speed9301 发表于 2024-6-24 14:33
收到，谢谢你的帮助，但我选择A1：D9单元格后，在条件格式中输入该公式后，还有是一些问题，如图

选择A2：D9单元格

shiruiqiang · 发表于 2024-6-24 18:55

本帖最后由 shiruiqiang 于 2024-6-24 19:03 编辑

计数，不同就+1.计数 mod 2，根据余数设定是否变色

shiruiqiang · 发表于 2024-6-24 19:03

Sub test()
Dim arr
arr = Sheets(1).[a1].CurrentRegion
k = 1
For x = 2 To UBound(arr)
If arr(x, 1) <> arr(x - 1, 1) Then
k = k + 1
Else
k = k
End If
If k Mod 2 = 0 Then
Cells(x, 1).Resize(1, 4).Interior.Color = vbYellow
End If
Next
Beep
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 请教各位高手，如何能达到这样的效果？