'有个案卷表，其中 的“拟办意见"有回车与换行，现须删除。
‘运行以下代码后，发现有部分行直接整行不见了
Dim ss,ss2 As String
For Each r As Row In Tables("案卷").rows
ss = r("拟办意见")
ss2 = ss.Replace(Chr(10),"") ' Chr(10) 换行
ss = ss2.Replace(Chr(13),"") ' Chr(13) 回车
r("拟办意见") = ss
Next
MessageBox.Show("结束")
这个代码不可能导致整行不见，肯定是其它原因导致的，检查其它代码
代码可以优化一下
For Each r As Row In Tables("案卷").rows
if r.isnull("拟办意见") = false
r("拟办意见")= r("拟办意见").Replace(Chr(10),"") .Replace(Chr(13),"")
end if
Next
MessageBox.Show("结束")
谢谢蓝版主，您的代码运行正常，也没有出现删除整行现象。