VBA选择区域有数据的区域

Chip_Kenny

1. Sub test()
   
2.     Dim sel As Range, ar, rc(3)
   
3.    
   
4.     On Error Resume Next
   
5.     Set sel = Application.InputBox("", Type:=8)
   
6.     If sel Is Nothing Then Exit Sub
   
7.    
   
8. MsgBox sel.Address(0, 0)
   
9. ar = sel.Value
   
10. rc(0) = UBound(ar): rc(2) = UBound(ar, 2)
    
11. For i = 1 To UBound(ar)
    
12.     For j = 1 To UBound(ar, 2)
    
13.         If Len(ar(i, j)) > 0 Then
    
14.             With Application
    
15.                 rc(0) = .Min(rc(0), i - 1)
    
16.                 rc(1) = .Max(rc(1), i)
    
17.                 rc(2) = .Min(rc(2), j - 1)
    
18.                 rc(3) = .Max(rc(3), j)
    
19.             End With
    
20.         End If
    
21.     Next
    
22. Next
    
23. For Each k In rc
    
24.     Debug.Print k
    
25. Next
    
26. MsgBox sel.Offset(rc(0), rc(2))(1).Resize(rc(1) - rc(0), rc(3) - rc(2)).Address(0, 0)
    
27. End Sub

复制代码