Excel VBA-添加自定义数字格式

Question

我有一个在Excel外部生成的文件，包含多个百分比。 所有这些百分比都有一个小数位。 当导入到excel中时，Excel会将百分比添加到小数点后第二位-这似乎是Excel中百分比的默认格式。 它只是添加一个“ 0”。

我想将所有双小数位百分比格式化为单个小数点。 如果我手动执行此操作，则使用CTRL + H，查找格式/替换格式，效果很好。 但是，即使我在手动进行替换时记录了宏，也无法通过VBA /宏来执行此操作。 通过记录宏生成的代码是这样的：

Application.FindFormat.NumberFormat = "0.00%"
Application.ReplaceFormat.NumberFormat = "0.0%"
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

失败发生在：

Application.ReplaceFormat.NumberFormat = "0.0%"

经过大量的试验和错误，我发现新格式需要在“自定义格式”列表中。 但是默认情况下不存在单小数位的百分比。 如果我手动将单个单元格格式化为所需的格式，则宏将起作用。 当然，我不想对每个文件都这样做。

任何输入将不胜感激。

提前致谢！

Answer 1

如果您将自定义数字格式应用于单个单元格，它将被“列出”并随后可用于批量替换操作以供将来使用。 我可能建议使用类似的方法，

 .range("A1").NumberFormat = "0.0%;@"

该特定格式的掩码可以应用于带有百分比或文本的任何单元格。 如果您具有带有文本值的列标题标签并应用了CNF，则;@部分将强制按原样显示文本（不更改）。 通过这种方式你是开放的，你把第一CNF更多的可能性。 使用一次后，其余百分比值将可用于批量替换操作。

Answer 2

考虑简单：

Sub dural()
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If r.NumberFormat = "0.00%" Then
            r.NumberFormat = "0.0%"
        End If
    Next r
End Sub