EXCEL VBA

Sub 還原()

x = InputBox("請輸入還的欄號")

s = x & ":" & x

Columns(s).Select
Selection.NumberFormatLocal = "G/通用格式"
Range("A1").Select

END SUB