主题：怎么实现table某一列和excel中一样可以输入计算表达式？

 做不到。

 如果想模拟，可以用两列实现效果，一列保存表达式，一列显示结果。

 或者，可以在drawcell事件写入代码

If e.Col.Name = "第一列" Then
    If e.Row(e.Col.Name) IsNot Nothing AndAlso e.Row(e.Col.Name).StartsWith("=") Then
        e.text = Eval(e.Row(e.Col.Name).substring(1))
    End If
End If