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

Question

Here is my code:

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

I want to simplify it into 1 line so that it formats column A as integers. I know it's a very simple question but please help me.

Answer 1

Sub part1()

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

End Sub

Selection is not needed.