表格单元格中的Word VBA格式编号 - 单元格文本无法识别

Question

我正在使用Excel表格数据从VBA（Excel）构建Word文档。 数据放在表中OK。 最后一列有数字（例如456789）我想要数字格式（例如$ 456,789）。

Word在每个表格单元格的末尾添加chr（13）和chr（7）（这样可见值456789的长度不是6而是8）。

如果没有下面的替换语句来消除这两个字符，我就无法将该值视为字符串并进一步操作。

这是vba提供的访问表格单元格值作为标准类型（如String）的最佳方式吗？ 为什么我需要在过程中消除结束字符？ 我错过了什么？

        For Each cell In .Columns(3).Cells
            strCellValue = CStr(cell.Range.Text)
            strCellValue = Replace(strCellValue, Chr(13) & Chr(7), "")
            If IsNumeric(strCellValue) Then
                cell.Range.Text = Format(strCellValue, "$#,##0")
            End If
        Next

谢谢！

Answer 1

有很多方法可以做到这一点。 也许最简单的是：

For Each Cell In .Columns(3).Cells
    strCellValue = Split(Cell.Range.Text, vbCr)(0)
    If IsNumeric(strCellValue) Then Cell.Range.Text = Format(strCellValue, "$#,##0")
Next