在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 

選擇。