可以，只是复制后格式变化了
复制完成以后，把chr(10)改成vbcrlf即可。
For Each r As Row In Tables("表A").rows r("第三列") = r("第三列").replace(chr(13), "").replace(chr(10), vbcrlf)Next
加好友 
发短信
Post By：2018/10/11 16:51:00 [只看该作者]
