Question

我想在Vba中编写一个脚本，一旦用户选择了一些单元格，我会给出这些单元格的列号？谢谢。例如，用户选择单元格（A1，B3），我希望将A和B列作为输出。

Answer 1

您可以遍历Selection对象以查看所选内容。以下是Microsoft（http://msdn.microsoft.com/en-us/library/aa203726(office.11).aspx）的代码段：

vlookup

Answer 2

Range.Rows和Range.Columns分别返回分组为行或列的集合单元格。知道了这一点，我们可以简单地迭代Columns中的Selection。

Sub Msgbox_ColumnsInSelection()
    Dim rColumn As Range
    Dim s As String
    For Each rColumn In Selection.Columns
        s = s & rColumn.column & ","
    Next
    s = Left(s, Len(s) - 1)
    MsgBox "Columns in Selection: " & s
End Sub

这将检查列是否在范围内。

Function hasColumn(Target As Range, vColumn As Variant)
    hasColumn = Not Intersect(Target, Target.Parent.Columns(vColumn)) Is Nothing
End Function

用法

Msgbox＆＃34;第10列的范围=＆＃34; hasColumn（精选，10）

Msgbox＆＃34; A列在范围=＆＃34; hasColumn（选择，＆＃34; A＆＃34;）

获取Vba中的列号

2 个答案:

用法