用百分号更改每个数字

Question

所以我的第一个问题得到了解决，但是我的代码还有另一个问题。

我想找到每个带有百分号的数字，并将其显示为带有四位小数的数字。 即使将数字格式化为标准或文本，或者如果其编写为“2.89％”或“2,89％”

，代码也应该有用。

   Sub test()

Dim bereich As Range, Cell As Range

Set bereich = Range("J1:J100")

For Each Cell In bereich
   If Cell.NumberFormat = "0%" Then Cell.NumberFormat = "0.0000%"
Next Cell

End Sub

这是我的旧代码，它只能在这个“0％”中使用数字，但我需要这个代码对输入更灵活。

提前致谢！

Answer 1

您可以查看是否InStr(Cell.Value2, "%") > 0。

修改后的代码

For Each Cell In bereich
   If Cell.NumberFormat = "0%" Or InStr(Cell.Value2, "%") > 0 Then Cell.NumberFormat = "0.0000%"
Next Cell