在excel vba中将代码简化为一行？

Question

这是我的代码：

Sub part1()
    Range("A1", Range("A1").End(xlDown)).Select
    Selection.NumberFormat = "0"
End Sub

我想将其简化为1行，以便将A列格式化为整数。我知道这是一个非常简单的问题，但请帮助我。

Answer 1

Sub part1()

Range("A1", Range("A1").End(xlDown)).NumberFormat = "0"

End Sub

不需要选择。