给你改了一下,我想应该是这个意思吧:一旦区域内发现了数值2,就把N1设置为3,对吧? Sub shish() Dim rng As Range Set rng = Range("m1:n20") For Each cell In rng If cell.Value = 2 Then Range("n1") = 3 Exit For End If Next cell End Sub
Sub shish2() '如果指定区域内所有的格式都<>2,则... Dim rng As Range Dim lHas2 As Boolean Set rng = Range("m1:n20") For Each cell In rng If cell.Value = 2 Then lHas2 = True Exit For End If Next cell If lHas2 Then '如果区域中有2 Else '如果区域中无2 Range("n1") = 3 End If End Sub