Question

我有这个VBA代码，我将数据从word提取到Excel，然后我以相反的方式传输其他数据。

我有这个代码：调用findAndReplace（替换（Round（vbaSheet.Cells（i，＆＃34; U＆＃34;）。Value，2），＆＃34;，＆＃34;，＆＃34;。＆＃34;），＆＃34;运费：＆＃34;，3）

例如，这段代码从excel＆＃34; 155,40＆＃34;中获取了这样的数字。并将其返回到＃34; 155.4＆＃34;。

只有在小数结尾处为零时才会出现此问题。但我想将号码转移为＆＃34; 155.40＆＃34;。我可以添加什么

Answer 1

Format(findAndReplace(...),"0.00")

或

vbaSheet.Cells(i, "U").NumberFormat = "0.00"

正是您所需要的。格式取值，并强制它返回逗号后的两位数。

只需选择单元格并运行：

Sub Makro1()
    Selection.NumberFormat = "0.00"
End Sub

然后让它在循环中运行。