避免尝试在同一语句中同时选择选择工作表和范围(实际上，您可以避免完全选择):

Avoid trying to Select both a worksheet and a range in the same statement (in fact, you can avoid Select completely):

Sub ytrewq()
    With Sheet1.Range("A2", "A50000")
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

似乎可以正常工作！