Excel VBA查找用户select范围的列号（通过鼠标）

我有一个脚本，允许用户用鼠标select一个列。 然后，用户select该列是否具有标题。 如何定义所选范围的列号，以便我可以对其执行function，如：

usc = rng.columns For i = 2 to lastrow cells(i,usc + 1).Value = left(Cells(i,usc),2) next i 

我的脚本在下面。 任何帮助将不胜感激！

  Set rng = Application.InputBox( _ Prompt:="Please select your target column. " & vbNewLine & _ " (eg Column A or Column B)", _ Title:="Select Column", Type:=8) On Error GoTo 0 hdr = MsgBox("Does your selection contain a header?", vbYesNo + vbQuestion, "Header Option") 

Answer 1

尝试这个

 Sub test() Set Rng = Application.InputBox("Please select your target column. " & Chr(10) & _ " (eg Column A or Column B)", "Select Column", , , , , , 8) MsgBox "Selected column is: " & Rng.Column & Chr(10) & "Selected row is: " & Rng.Row End Sub 

结果