在excel vba中简化代码到一行中？

Question

这里是我的代码：

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

我想，使其格式列A为整数把它简化成1行。我知道这是一个非常简单的问题，但请帮助我。不需要

Answer 1

Sub part1() 

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

End Sub 

选择。