将小数转换为百分比

我从外部来源收到如下所示的数据

我需要的是将所有突出显示的数据转换为百分比，并且不能在逗号后面丢失部分。 这是我迄今为止所尝试的：

For Each actCell In shRecipiente.ListObjects("tblRecipiente").ListColumns("All-In Rate").DataBodyRange If Not (Right(actCell.NumberFormat, 1) = "%") Then actCell.Value = Format(actCell, "#.####%") End If Next actCell 

但是我得到的例子是396.83％，而不是39683％

Answer 1

更改

 actCell.value = Format(actCell, "#.####%") 

至

 actCell.value = Format(actCell / 100, "#.####%") 

但是，如果它不是真正的％价值，你必须改变它

 actCell.value = Format(actCell, "#.####""%""") 

或者如果你不能改变的价值尝试

 actCell.Offset.NumberFormat = "#.####""%""" 

Answer 2

将数字除以100，并以百分比forms表示。

=A1/100

编辑 – 检查格式化为百分比而不使用： =IF(CELL("format",A1)="P0",A1,A1/100) – P0表示格式百分比。 公式将显示所有没有百分比的数字，所以150％将显示为1.5，150将会显示。
那么这只是一个格式化整个列回到百分比的情况。