主题：请教

可能改成这样好一点，比如，粘贴剪切时不会出错。

Dim r As row = e.row
if e.col.name = "日期" and r.IsNull("日期") = false then
    r("rq") = Format(r("日期") ,"yyyy-MM")
else
    r("rq") = Nothing
end if