使用VBA从Word表格单元格复制文本至Excel出现额外隐形字符求助

那个隐形字符是什么？ #

你遇到的是Word的段落标记（对应VBA常量vbCr，即ASCII码13的回车字符）。Word的表格单元格会自动在内容末尾添加一个段落标记，用来维持单元格的格式结构——哪怕单元格看起来是空的，这个标记也会存在。你的代码里End:=oCell.Range.End - 1有时候没能完全避开这个标记，或是单元格内容本身包含换行时，残留了类似的控制字符。

如何避免这个问题？ #

可以通过以下几种方式处理：

方法1：直接截取有效文本（推荐） #

利用Word单元格文本的特性（末尾固定带一个段落标记），直接截取到倒数第二个字符（需判断单元格非空，避免出错）：

Dim cellContent As String
cellContent = oCell.Range.Text
' 去掉末尾的段落标记
If Len(cellContent) > 1 Then
    nWorksheet.Cells(nRow, nCol).Value = Left(cellContent, Len(cellContent) - 1)
Else
    nWorksheet.Cells(nRow, nCol).Value = ""
End If

方法2：替换所有控制字符 #

如果单元格内容本身包含用户手动输入的换行，可选择保留有效换行、只去除末尾多余标记，或是直接清除所有回车/换行符：

Dim cellContent As String
cellContent = oDocument.Range(Start:=oCell.Range.Start, End:=oCell.Range.End - 1).Text
' 清除所有回车和换行符
cellContent = Replace(Replace(cellContent, vbCr, ""), vbLf, "")
' 若要保留手动换行，仅替换末尾标记可改为：
' cellContent = RTrim(cellContent)
' cellContent = IIf(Right(cellContent, 1) = vbCr, Left(cellContent, Len(cellContent)-1), cellContent)
nWorksheet.Cells(nRow, nCol).Value = cellContent

方法3：简化文本处理逻辑 #

用Trim配合替换操作快速清理多余字符：

nWorksheet.Cells(nRow, nCol).Value = Trim(Replace(oCell.Range.Text, vbCr, ""))

内容的提问来源于stack exchange，提问作者Daniel Benefiel