如何用VBA批量将Excel列重命名为对应首行单元格内容（Excel2013）

以下是适配你需求的VBA代码，直接运行即可为当前工作表中目标区域的每一列，以对应首行单元格内容命名：

Sub RenameColumnsByHeader()
    Dim ws As Worksheet
    Dim LastCol As Integer
    Dim i As Integer
    Dim ColName As String
    
    ' 绑定当前活动工作表
    Set ws = ActiveSheet
    ' 获取已使用区域的最后一列（也可手动指定，比如LastCol = 5代表仅处理前5列）
    LastCol = ws.UsedRange.Columns.Count
    
    ' 循环遍历每一列
    For i = 1 To LastCol
        ' 获取当前列首行内容作为名称
        ColName = ws.Cells(1, i).Value
        
        ' 跳过空首行单元格，避免无效命名
        If ColName <> "" Then
            ' 动态添加名称：引用当前列第2行到第70行的区域
            ActiveWorkbook.Names.Add _
                Name:=ColName, _
                RefersToR1C1:="=" & ws.Name & "!R2C" & i & ":R70C" & i
        End If
    Next i
End Sub

代码说明： #

• 自动关联当前活动工作表，无需硬编码工作表名称
• 自动识别已使用区域的列数，也可手动修改LastCol的值锁定目标列范围
• 跳过首行空值列，避免创建无效名称
• 命名区域固定为对应列的第2行到第70行，若需调整行数，直接修改代码中的R2和R70即可

使用步骤： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口中的当前工作簿，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 按下F5运行代码，或回到Excel界面通过「开发工具」→「宏」选择RenameColumnsByHeader执行

内容的提问来源于stack exchange，提问作者MARTIN SEPULVEDA QUINTANILLA