在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

不需要選擇 。