用条件格式和公式都可以做到，。。问题说的不是很清楚， +1052974911@qq.com
Sub panduan()
Dim rng As Range
For Each rng In Worksheets(1).UsedRange
If rng.Value = 1 And rng.Offset(1, 0) = 2 And rng.Offset(2, 0) = 3 Then
MsgBox "单元格" & rng.Address & "开始往下出现情况"
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024