Excel VBA.Trim函数更改为,

转到文件-选项-高级并查找 。您希望十进制分隔符为。千位分隔符为,

 Application.DecimalSeparator = "." 
 Application.ThousandsSeparator = "," 
 Application.UseSystemSeparators = False

由于不想更改这些设置,请将代码更改为:

Cells(rw, j).Value = "'" & Trim(Cells(rw, j).Text)

。Text将为您提供单元格中内容的字符串版本,而不是尝试将其转换为数字(如果它看起来像数字)。

如果您不想更改此应用程序的全局系统/excel设置,可以尝试将值强制为文本,如下所示:

With Cells(rw, j)
    .NumberFormat = "@"
    .Value = Trim(Cells(rw, j).Value)
End With

或者,根据您的评论:

With Cells(rw, j).Value = "'" & Trim(Cells(rw, j).Value)

你可以试试这个:

Dim temp As String
temp = Cells(rw, j).Value
temp = Trim(temp)
Cells(rw, j).Value = temp