能否用公式在Excel中批量定义单元格名称？

方法1：VBA宏批量生成（最适合大型表格） #

这是效率最高的方案，一次运行即可完成所有单元格的名称定义：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键左侧工作簿名称，选择插入→模块
3. 粘贴以下代码到模块窗口：

Sub BatchDefineCellNames()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim rowHeader As String, colHeader As String
    Dim cellName As String
    
    ' 替换为你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据区域的边界
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 遍历数据单元格（跳过首行首列的标题）
    For i = 2 To lastRow
        rowHeader = ws.Cells(i, 1).Value
        For j = 2 To lastCol
            colHeader = ws.Cells(1, j).Value
            ' 组合名称，可自定义分隔符（如下划线、点号）
            cellName = rowHeader & "_" & colHeader
            
            ' 跳过重复名称避免报错
            On Error Resume Next
            ThisWorkbook.Names.Add Name:=cellName, RefersTo:=ws.Cells(i, j)
            On Error GoTo 0
        Next j
    Next i
    
    MsgBox "批量名称定义完成！"
End Sub

4. 修改代码中"Sheet1"为你的实际工作表名称
5. 按下F5运行宏，或回到Excel界面通过开发工具→宏执行

方法2：无VBA的手动批量导入法 #

如果不想用宏，可通过生成名称列表再导入：

• 在空白区域生成名称规则：比如D2单元格输入=A2&"_"&B1（根据你的标题位置调整），下拉右拉填充所有需要的名称
• 生成单元格地址：E2输入=CELL("address",B2)，同样填充所有对应地址
• 把名称和地址整理成名称=地址格式（如水果_单价=$B$2），复制到记事本保存为文本文件
• 打开Excel公式→名称管理器→导入，选择文本文件完成批量添加

注意事项 #

• 单元格名称不能含空格、特殊符号（下划线、点号除外），若标题有这类字符，可在VBA代码中添加替换逻辑：rowHeader = Replace(ws.Cells(i, 1).Value, " ", "_")
• 重复的标题组合会被自动跳过，避免名称冲突

内容的提问来源于stack exchange，提问作者Daniel