主题：单元格怎样去掉最后一位数

Dim s As String = CStr(e.Row(e.Col))
If CStr(e.Table.Value).Length > 1 Then
    e.Table.Value = Left(s,s.Length - 1)
End If

虽然是数字，列的数据类型，可能是数字型，也可能是字符型。