選取欄或列

'選取欄

Sub aaa()
   'i只能輸入英文字母

   i = InputBox("請輸入您選的英文字母欄")
   '將Z設定為整欄的範圍

   Z = i & ":" & i

   '將整欄選取
   Columns(Z).Select

   '使用msgbox通知使用者選取的欄

   MsgBox ("您選的是" & i & "欄")
End Sub

 

'選取列

Sub bbb()
   'i只能輸入數字

   i = InputBox("請輸入您選的數字列")
   '將Z設定為整列的範圍

   Z = i & ":" & i

   '將整列選取
   Rows(Z).Select

   '使用msgbox通知使用者選取的列

   MsgBox ("您選的是" & i & "列")
End Sub