[已解决]求助代码

yanyupingsheng

这个题目没想出解决办法，请高手指教。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-12 12:00

1. Sub test()
   
2.     Dim rg As Range, rgi, i&, iC&
   
3.     Set rg = Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
   
4.     iC = rg.Count
   
5.     If iC < 1 Then Exit Sub
   
6.     For Each rgi In rg
   
7.         i = i + 1
   
8.         If i = iC Then MsgBox rgi.Address(False, False)
   
9.     Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

tuotuo865

不是很理解问题……

hwc2ycy

1. Sub test()
   
2.     Dim rg As Range, rgi, i&, iC&
   
3.     Set rg = Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
   
4.     iC = rg.Count
   
5.     If iC < 1 Then Exit Sub
   
6.     For Each rgi In rg
   
7.         i = i + 1
   
8.         If i = iC Then MsgBox rgi.Address(False, False)
   
9.     Next
   
10. End Sub

复制代码

hwc2ycy

显示的地址就是最后一个单元格的地址。

无聊的疯子

最下，最右，个人认为是以最下为前题，
如你附件，结果是 B11 单元格
如果 B11 右边还有空格，比如是 C11和D11 都是空格，则结果是选择 D11

代码就是按这个思路写的！！

1. 
   
2. Sub CC()
   
3. Dim Rgi As Range, Hx As Integer, Lx As Integer
   
4.   With Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
   
5.     If .Count = 1 Then Exit Sub
   
6.     For Each Rgi In Range(.Address)
   
7.       With Rgi
   
8.         If .Row > Hx Then
   
9.           Hx = .Row
   
10.           Lx = .Column
    
11.         End If
    
12.         If .Column > Lx Then
    
13.           Hx = .Row
    
14.           Lx = .Column
    
15.         End If
    
16.       End With
    
17.     Next
    
18.   End With
    
19.   Cells(Hx, Lx).Select
    
20. End Sub
    

复制代码

hwc2ycy

刚在路上，想到了定位里还有最后一个单元格的用法。
结果一试，右最后一个单元格，定位的是最后一列的空格。

chuanqi3

hwc2ycy 发表于 2012-11-12 12:00

是不是少了 end if

hwc2ycy

你试试了没？
我这是单行语句非代码块，不需要END IF