表格單元格中的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