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

Question

我正在使用Excel表数据从VBA（Excel）构造Word文档。 数据被放置在表OK中。 最后一列包含我要数字格式化的数字（例如456789）（例如$ 456,789）。

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

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

这是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