如何用公式或VBA批量创建基于分组的Excel命名区域？

使用VBA宏自动生成命名区域 #

针对80万行的大数据量，手动创建命名区域效率极低，VBA宏可以快速遍历C列的分组，自动生成对应命名区域。

操作步骤 #

1. 打开VBA编辑器：按下快捷键 Alt + F11，在左侧项目资源管理器中找到目标工作簿，右键插入模块。
2. 粘贴以下VBA代码到模块中：

Sub CreateGroupNamedRanges()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim groupName As String
    Dim startRow As Long
    Dim endRow As Long
    
    ' 替换为你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    startRow = 2 ' 若数据起始行不是第2行，修改此值
    groupName = ws.Cells(startRow, "C").Value
    
    For Each cell In ws.Range("C2:C" & lastRow)
        If cell.Value <> groupName Then
            ' 创建当前分组的命名区域（A-C列）
            ThisWorkbook.Names.Add Name:=groupName, _
                RefersTo:=ws.Range("A" & startRow & ":C" & cell.Row - 1)
            groupName = cell.Value
            startRow = cell.Row
        End If
    Next cell
    
    ' 处理最后一个分组
    ThisWorkbook.Names.Add Name:=groupName, _
        RefersTo:=ws.Range("A" & startRow & ":C" & lastRow)
    
    MsgBox "分组命名区域创建完成！"
End Sub

3. 调整代码参数：
   • 将代码中的Sheet1替换为你实际的工作表名称。
   • 如果数据不是从第2行开始，修改startRow = 2为对应行号。
4. 运行宏：点击VBA编辑器工具栏的绿色运行按钮，或按F5执行，等待完成即可。

关键注意事项 #

• 确保C列的分组（Group1到Group110）是连续排列的，若分组分散，先对C列排序后再运行宏，避免重复创建同名区域。
• 80万行数据运行宏需要数秒时间，期间不要操作Excel，等待执行完成。
• 你的分组命名格式（Group1）符合Excel命名规则，无需额外调整。

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