Excel VBA不能从单元格中删除货币格式

Question

我正在尝试通过使用此VBA代码将Excel文件列格式从“货币”更改为“文本”，但它没有改变！

Private Sub Sample()
    Dim ws As Worksheet
    Dim LastRow As Long, Header As Long

    Header = 2     '<~~ Start row for formatting
    LastRow = 1000 '<~~ Last Row

    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        With .Range("C" & Header & ":C" & LastRow)
            '
            '~~> Change format here
            '
            '~~> Number with 5 decimal places.
            .NumberFormat = "@"
        End With
    End With
End Sub

我也试过了新的空（常规）列，但对C却没有用。请让我知道，即使我尝试插入新列，Excel也会自动将其以Currency格式插入！ 还有其他设置可能会影响此设置吗？ 您能告诉我如何解决此问题吗？

谢谢

更新：我也尝试了此代码，它不起作用！

Sub Clear_Cell_Backgroud()

    Dim ws As Worksheet
    ActiveSheet.UsedRange.Columns("C").NumberFormat = "General"
    For Each ws In Worksheets
        Cells.Interior.ColorIndex = xlNone
    Next ws

End Sub

Answer 1

您的代码对我有用。 确保您的工作表名称正确

Set ws = ThisWorkbook.Sheets("Sheet1")

同样在第二个代码中，当您说Activesheet ，请确保它是相关的工作表。

或者，避免使用ActiveSheet并按照第一个代码中的操作进行操作。 声明一个对象并使用它。

如果您使用多张纸，那么您的第二个代码可以写成

Sub Clear_Cell_Backgroud()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Columns(3).NumberFormat = "General"
        ws.Cells.Interior.ColorIndex = xlNone
    Next ws
End Sub