是不是这样
Set sel = Application.InputBox("", Type:=8)
    If sel Is Nothing Then Exit Sub
   
MsgBox sel.UsedRange.Address(0, 0)

供参考 set rng= intersect(activesheet.usedrange,selection)

jiminyanyan 发表于 2018-6-10 09:27
UsedRange ，一般用这个处理就行了，空单元格处理的时候跳过就是。

选定区域定的常量。 Selection.UsedRange  不成立。

UsedRange ，一般用这个处理就行了，空单元格处理的时候跳过就是。

zhangzhang 发表于 2018-6-10 09:04
MinR = 1000000         '初始         假设  最小 行号（R）
MaxR = 1                 ‘初始           ...

MinR = 1000000         '初始         假设  最大 行号（R）
MaxR = 1                   ‘初始         假设  最小 行号（R）
MinC = 1000000         '初始         假设  最大 列号（C）
MaxC = 1　　　　      '初始         假设  最小 列号（C）


这样是不，老师！

MinR = 1000000         '初始         假设  最小 行号（R）
MaxR = 1                 ‘初始          假设  最大 行号（R）
MinC = 1000000         ’               列号 （C）     
MaxC = 1

Rng.SpecialCells(xlCellTypeConstants, 23)   ‘查找---定位条件---常量。

详见附件。。。。。。。。。。。

请老师们帮帮忙，谢谢大家了！