Excel VBA 创建名称管理与数据验证实现下拉联动

繁梦溪

已于 2022-06-09 09:45:47 修改

阅读量2.2k

点赞数 1

文章标签： Excel VBA

于 2022-06-09 09:39:03 首次发布

本文链接：https://blog.csdn.net/FG24151110876/article/details/125196740

版权

一、数据条件

二、创建名称管理

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