如何用vba返回选中的列索引？

weiyonggang

我在工作表中提前选中了几列，如何用vba返回选中的列索引？比如提前选中了C，D，E三列，如何返回C，D，E三个字母呢？

如果选中的列不连续又如何返回列索引呢？

liulang0808

如果楼主是整列选中，可以与第一行做交集，然后遍历交集的每个单元格，提取单元格地址中的字母split拆分寄了

sirsunny

1. Sub Demo3()
   
2.    Dim arrResult() As String
   
3.     Dim i As Integer
   
4.     arrResult = VBA.Split(Selection.Address, delimiter:=",", compare:=vbTextCompare)
   
5.     For i = LBound(arrResult) To UBound(arrResult)
   
6.         Debug.Print Split(arrResult(i), "$")(2)
   
7.     Next
   
8. End Sub

复制代码

fanyoulin

利用了工作表的selectchange，本质上与楼上的方法是相同的；
行与列都可以分离出来；

slonby

Sub cs()
Dim rng As Range, 行$, 列$, ad$
Set rng = Selection
ad = rng.Address
行 = Replace(Split(ad, "$")(1), ":", "")
列 = Split(ad, "$")(2)
End Sub

sogo777

1. Sub 返回选中列索引()
   
2.     Dim selectedColumns As Range
   
3.     Dim column As Range
   
4.     Dim columnIndex As String
   
5.    
   
6.     ' 获取选中的列范围
   
7.     Set selectedColumns = Selection.Columns
   
8.    
   
9.     ' 遍历选中的列并获取索引
   
10.     For Each column In selectedColumns
    
11.         columnIndex = columnIndex & "," & Split(column.Address, "$")(1)
    
12.     Next column
    
13.    
    
14.     ' 去除索引字符串开头的逗号并输出结果
    
15.     If Len(columnIndex) > 0 Then
    
16.         columnIndex = Mid(columnIndex, 2)
    
17.         MsgBox columnIndex
    
18.     Else
    
19.         MsgBox "没有选中任何列。"
    
20.     End If
    
21. End Sub
    

复制代码

weiyonggang

谢谢大侠出手帮忙