Excel 如何转换成百分比
请帮助我如何将Excel上的此单元格从数字转换为百分比 账户:银行-全球0.308123555052582——互联网内容& 信息0.30782585151134657——消费电子产品 0.383936697049749 成为 账户:银行——全球30.81%——互联网内容& 信息30.78%——消费电子38.39%Excel 如何转换成百分比,excel,excel-formula,Excel,Excel Formula,请帮助我如何将Excel上的此单元格从数字转换为百分比 账户:银行-全球0.308123555052582——互联网内容& 信息0.30782585151134657——消费电子产品 0.383936697049749 成为 账户:银行——全球30.81%——互联网内容& 信息30.78%——消费电子38.39% 谢谢。也许下面的VBA解决方案使用 要落实这一点: Alt+F11打开VB编辑器(或开发者>Visual Basic。) 然后插入>模块 粘贴下面的代码 在“工具”>“参考”下添加对
谢谢。也许下面的VBA解决方案使用 要落实这一点:
@BigBen有一个很好的复杂解决方案。 我可能会做一些“肮脏的变通”,比如:
- 在A列中:查找一个空格,后跟0,然后用一些分隔符(“|0”)替换该空格
- 插入辅助列B
- 文本到A列上的列,在步骤1中放置的分隔符上拆分
- 将B列中的单元格格式化为%
- 如果需要,连接回一起李>
Function FixMyPercentages(target As String) As String
Dim output As String
output = target
With New RegExp
.Global = False
.MultiLine = True
.IgnoreCase = False
.pattern = "\s\d+\.\d+$|^\d+\.\d+\s|\s\d+\.\d+\s"
Dim myMatch As Object, myMatches As Object
Do While .test(output)
Set myMatches = .Execute(output)
For Each myMatch In myMatches
output = .Replace(output, " " & Format$(CDbl(myMatch.Value), "0.00%") & " ")
Next myMatch
Loop
End With
FixMyPercentages = Trim(output)
End Function