|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test()
- Dim sel As Range, ar, rc(3)
-
- On Error Resume Next
- Set sel = Application.InputBox("", Type:=8)
- If sel Is Nothing Then Exit Sub
-
- MsgBox sel.Address(0, 0)
- ar = sel.Value
- rc(0) = UBound(ar): rc(2) = UBound(ar, 2)
- For i = 1 To UBound(ar)
- For j = 1 To UBound(ar, 2)
- If Len(ar(i, j)) > 0 Then
- With Application
- rc(0) = .Min(rc(0), i - 1)
- rc(1) = .Max(rc(1), i)
- rc(2) = .Min(rc(2), j - 1)
- rc(3) = .Max(rc(3), j)
- End With
- End If
- Next
- Next
- For Each k In rc
- Debug.Print k
- Next
- MsgBox sel.Offset(rc(0), rc(2))(1).Resize(rc(1) - rc(0), rc(3) - rc(2)).Address(0, 0)
- End Sub
复制代码 |
|