查找列的范围，给定列号VBA

给定列号，如何查找和存储整个列的范围对象？谢谢

使用

列

属性

Dim rng as Range
Set rng = ThisWorkbook.Worksheets(1).Columns(12) ' for column 12

那么：

Sub PickAColumn()
   Dim i As Long
   Dim MyColumn As Range
   i = Application.InputBox(Prompt:="Enter Column NUMBER ", Type:=1)
   Set MyColumn = Cells(1, i).EntireColumn

   MyColumn.Select
End Sub