嘿，我来帮你搞定这个需求！你想要的是点击Excel按钮后，弹出输入框让用户填写新列的表头，然后自动添加一列并把这个表头放进去对吧？你的原代码里误把用户输入的表头当成列号来处理了，这就是核心问题所在～

一、先创建操作按钮 #

• 打开Excel，切换到你要操作的目标工作表（比如Sheet1）
• 点击顶部菜单栏的「开发工具」→「插入」→ 选择「表单控件」里的「按钮（窗体控件）」
• 在工作表上拖动画出按钮，松开后会弹出「指定宏」窗口，输入宏名称（比如AddCustomColumn），点击「新建」，自动打开VBA编辑器

二、替换为正确的VBA代码 #

把VBA编辑器里的默认代码删掉，换成下面这段：

Sub AddCustomColumn()
    Dim headerName As String
    Dim targetSheet As Worksheet
    Dim newColumn As Range
    
    ' 获取用户输入的表头名称
    headerName = InputBox("请输入新列的表头名称：", "自定义列表头")
    
    ' 如果用户取消输入或者为空，直接退出并提示
    If headerName = "" Then
        MsgBox "未输入表头名称，操作已取消。", vbInformation
        Exit Sub
    End If
    
    ' 指定要操作的工作表，这里用Sheet1，你可以改成自己的表名
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动定位到当前最后一列的右侧，插入新列
    Set newColumn = targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Offset(0, 1).EntireColumn
    newColumn.Insert Shift:=xlToRight
    
    ' 将用户输入的表头写入新列的第一行
    targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Value = headerName
End Sub

三、代码关键点解释 #

• headerName = InputBox(...)：专门接收用户输入的表头文本，不再像原代码那样把输入当成列号处理
• 空输入判断：如果用户点取消或者没填内容，会弹出提示并退出，避免程序报错
• 自动定位最后一列：不用手动指定列号，代码会自动找到当前工作表的最后一列，在右侧插入新列，适配不同的表格结构
• 写入表头：把用户输入的名称精准放到新列的第一行（表头位置）

四、测试操作 #

回到Excel界面，点击刚才创建的按钮，输入你想要的表头名称（比如“客户等级”），确认后就能看到Sheet1里多了一列，表头就是你输入的内容啦！

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