我也是初学者，相互学习Sub test()Dim i%, j%, col%j = 0col = 2For i = 1 To 3If Cells(2, col).Value >= 90 Thenj = j + 1End Ifcol = col + 1NextIf j >= 2 ThenCells(2, 6) = 100End IfEnd Sub
