主题：请问：为什么我直接粘贴数据进项目的时候会很卡的，有没有优化的程序呢，或者操作？

这个是datacolchanged中的代码：

'自动行高
Tables("d2").AutoSizeRows()
' d206 改变时自动在 d205 输入今天的日期
Select Case e.DataCol.name
    Case "d206"
        e.DataRow("d205") = Date.Today
End Select