Excel (VBA)不保留我的数字格式

Sub SetNumberFormat()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    ' 设置数字格式为货币
    rng.NumberFormat = "$#,##0.00"
End Sub

Sub FormatNumbers()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim formattedValue As String
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    For Each cell In rng
        ' 格式化数字为货币
        formattedValue = Format(cell.Value, "$#,##0.00")
        cell.Value = formattedValue
    Next cell
End Sub

Sub SetLocalNumberFormat()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    ' 设置本地化的数字格式为货币
    rng.NumberFormatLocal = "#,##0.00 €"
End Sub