If e.Col.name = "第二列" Then If e.keycode = 190 Then If e.text.EndsWith("0") Then Dim len = e.text.replace(".", "").length-e.text.replace(".", "").trim("0").length e.Table.FinishEditing e.Row(e.Col.name) = e.text / 10^len e.Table.StartEditing End If End If End If