十万火急~VBA如何批量生成工作簿通用的名称

zoenbo

这是个相对来说不规范的表，但原都有公式或函数，其他工作表又想引用，想了想还是用名称的方式比较省事有效，但是每个空白处单元格（实际上有数据）新建名称耗时费力，VBA可以生成比如C4单元格命名为C3&B4也就是命名为：总计消费，D4定义为D3&B4也就是命名：A消费，依此类推。不知道有没有实现的可能性呢？求助各位大神大佬们~~

笨鸟飞不高

zoenbo 发表于 2020-11-28 14:30
大佬真是厉害~！现在还有不少单元格没有自定义名称，很奇怪有的有，有的没有。

test.zip (21.3 KB, 下载次数: 2)

2020-11-28 14:50 上传

点击文件名下载附件

zoenbo

悲催吖，无人问津~

Moneky

先给你个定心丸，可以实现。

zoenbo

Moneky 发表于 2020-11-28 10:23
先给你个定心丸，可以实现。

嗯呢，总算看到希望了

笨鸟飞不高

Sub AwTest()
    Dim i&, j%, tStr$
    Application.ScreenUpdating = False
    For i = 4 To 37
        For j = 3 To 15
            If Cells(i - 1, j) <> "" Then tStr = Cells(i - 1, j).Value
            If Cells(i, j) = "" Then
                ActiveWorkbook.Names.Add Name:=tStr & Cells(i, 2).Value, RefersToR1C1:="=R" & i & "C" & j
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

Sub 删除定义名称()
    Dim dymc As Name
    For Each dymc In ActiveWorkbook.Names
        dymc.Delete
    Next
End Sub

笨鸟飞不高

test.zip (16.8 KB, 下载次数: 7)

2020-11-28 14:14 上传

点击文件名下载附件

zoenbo

笨鸟飞不高 发表于 2020-11-28 14:14

大佬真是厉害~！现在还有不少单元格没有自定义名称，很奇怪有的有，有的没有。

zoenbo

笨鸟飞不高 发表于 2020-11-28 14:50

太神奇了，超棒~谢谢大佬~！

zoenbo

笨鸟飞不高 发表于 2020-11-28 14:14

大佬，出现一个问题

搞定了，原来是原单元格不能有数据的原因，有数据就会报错。