Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim aa = Target.ValueIf WorksheetFunction.IsNumber(a) Then Target.Value = WorksheetFunction.Ceiling(a, 0.5)End Sub写在表的VBA里