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