如何获取selection(中间隔行)的最后一列

chlele

如下图所以，我选择了部分A列和C列（B列没有选中！！！），如何取得selection的最后一列列号（即C=3）.请高手帮忙.谢谢了


[ 本帖最后由 chlele 于 2010-8-26 16:24 编辑 ]

hanter007

不知道有没有更简捷的方法.
历遍每个区域的最后一个列号,再求最大值.

1. 
   
2. Public Sub test()
   
3.     Dim arr
   
4.     Dim i As Long
   
5.     Dim Rng As Range
   
6.     Set Rng = Selection
   
7.     ReDim arr(1 To Rng.Areas.Count)
   
8.     For i = 1 To Rng.Areas.Count
   
9.         arr(i) = Rng.Areas(i).Column + Rng.Areas(i).Columns.Count - 1
   
10.     Next
    
11.     MsgBox Application.Max(Application.WorksheetFunction.Transpose(arr))
    
12. End Sub
    

复制代码

chlele

谢谢大哥啊！回复好快！
对啊，我也在想有没有简洁一点的，呵呵。

masterexcel

在活动单元格不在最后一列的情况下，以下代码会有错误

1. Sub test()
   
2.     Arr = Split(Selection.Address, "$")
   
3.     UbdArr = UBound(Arr) - 1
   
4.     MsgBox "最后一列的列标是" & Arr(UbdArr)
   
5. End Sub

复制代码

以下代码是通用的

1. 
   
2. Sub test()
   
3.     Arr = Split(Selection.Address, "$")
   
4.     UbdArr = UBound(Arr) + 1
   
5.     With Sheets(2).Cells(1, 1).Resize(UbdArr, 1)
   
6.         .Value = WorksheetFunction.Transpose(Arr)
   
7.     End With
   
8. 
   
9.     Sheets(2).AutoFilter.Sort.SortFields.Clear
   
10. 
    
11.     Sheets(2).Cells(2, 1).AutoFilter
    
12.    
    
13.     Sheets(2).AutoFilter.Sort.SortFields.Add _
    
14.             Key:=Sheets(2).Cells(2, 1).CurrentRegion, _
    
15.             SortOn:=xlSortOnValues, _
    
16.             Order:=xlAscending, _
    
17.             DataOption:=xlSortNormal
    
18.             
    
19.     With Sheets(2).AutoFilter.Sort
    
20.         .Header = xlYes
    
21.         .MatchCase = False
    
22.         .Orientation = xlTopToBottom
    
23.         .SortMethod = xlPinYin
    
24.         .Apply
    
25.     End With
    
26.    
    
27.     MsgBox "最后一列的列标是" & Sheets(2).Cells(65536, 1).End(xlUp).Value
    
28. End Sub
    

复制代码

[ 本帖最后由 masterexcel 于 2010-8-26 16:23 编辑 ]

hanter007

原帖由 masterexcel 于 2010-8-26 15:37 发表
在活动单元格不在最后一列的情况下，以下代码会有错误Sub test()
    Arr = Split(Selection.Address, "$")
    UbdArr = UBound(Arr) - 1
    MsgBox "最后一列的列标是" & Arr(UbdArr)
End Sub

相当于 Selection.Areas(Selection.Areas.Count).Column + Selection.Areas(Selection.Areas.Count).Columns.Count - 1
只是最后一个活动区域(最后选择的区域)的末尾列好.

chlele

果然高手很多啊！
也终于对selection有进一步的理解了，原来selection可以按area来分的，这一点之前忘了。
谢谢大家,特别是hanter007!

Zamyi

Set R = Selection.Areas(Selection.Areas.Count)
MsgBox R(R.Count).Column
如果不是最后区域，可以用：
Set R = Selection(1)
For Each c In Selection.Areas
  Set R = Range(R, c)
  Next
MsgBox R(R.Count).Column

[ 本帖最后由 Zamyi 于 2010-8-26 17:32 编辑 ]