如何在VBA中将数字插入单元格而不将其更改为日期

Sub InsertNumberAsText()
    Dim number As Double
    number = 1234.56
    
    ' 将数字插入单元格并设置为文本格式
    Range("A1").Value = "'" & number
    Range("A1").NumberFormat = "@"
End Sub

Sub InsertNumber()
    Dim number As Double
    number = 1234.56
    
    ' 将数字插入单元格
    Range("A1").Value2 = number
End Sub