Learner2022

vba中名称的运用

已有 18 次阅读2024-2-21 08:12 |个人分类:名称| 名称

先写一点

vba中名称可以直接在range对象中使用，如Range("name")，它会返回一个单元格区域即该名称所对应的区域，vba创建名称默认作用范围是工作表范围而不是工作簿范围这个目前不知道怎么改，另外它会隐性的创建一个不知道是什么用的名称（见上一篇关于VBA中的名称管理器的bug），如果我们需要运用名称的话只需要跳过首个名称即可，另外附上一个根据首行单元格创建名称的代码

Sub CreateNamesForColumns()

Dim ws As Worksheet

Dim Rng As Range

Dim col As Range

Dim colName As String

On Error Resume Next

Set ws = ActiveSheet

Set Rng = ws.UsedRange

For Each col In Rng.Columns

colName = col.Cells(1).Value

ActiveWorkbook.Names.Add Name:=colName, RefersTo:=col.Offset(1).Resize(col.Rows.Count - 1)

Next col