在excel vba中简化代码到一行

这是我的代码：

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 

select是不需要的。