Sub 新建名称管理()
'
' 选中数据左上角
' 依次以左侧单元格为名称,创建数据内容
'
' 获取选中单元格
Dim rng As Range
Dim rng_max As Range
Start = Now()
Set rng = Selection
Set rng_max = Selection.End(xlDown)
If rng.Value <> "" Then
For i = rng.Row To rng_max.Row
Cells(i, rng.Column).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
False
Next
rng.Select
Else
MsgBox "当前单元格为空,请重新选择!"
Exit Sub
End If
use_time = Round(Now() - Start, 2)
MsgBox "选中单元格所在区域名称创建完成,用时,!" & use_time & "秒"
End Sub