如何基于单元格值返回列标题名称？Excel VBA问题求助

你需要在现有代码中添加获取修改列标题的逻辑，假设列标题位于工作表的第1行（若你的标题行不同，替换代码中的Rows(1)为对应行号即可）。同时修正lastRng的类型混淆问题，以下是修改后的完整代码：

Dim lastRng As Variant ' 明确类型为Variant，避免对象与值混淆

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "logdetails" Then ' 直接使用参数Sh，避免依赖ActiveSheet
        Application.EnableEvents = False
        
        Dim logRow As Long
        Dim colHeader As String
        ' 获取修改列的标题（假设标题在第1行）
        colHeader = Sh.Rows(1).Cells(, Target.Column).Value
        
        ' 定位logdetails的下一行，避免重复计算提高效率
        logRow = Sheets("logdetails").Range("A" & Rows.Count).End(xlUp).Row + 1
        
        With Sheets("logdetails")
            .Range("A" & logRow).Value = Sh.Name & "-" & Target.Address(0, 0)
            .Range("B" & logRow).Value = Target.Address
            .Range("C" & logRow).Value = lastRng
            .Range("D" & logRow).Value = Target.Value
            .Range("E" & logRow).Value = Environ("username")
            .Range("F" & logRow).Value = Now
            .Range("G" & logRow).Value = colHeader ' 添加列标题到G列
            .Columns("A:H").AutoFit
        End With
        
        Application.EnableEvents = True
    End If
End Sub

Private Sub Workbook_Open()
    lastRng = ActiveCell.Value ' 保存初始选中单元格的值
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "logdetails" Then ' 避免在logdetails中记录选中值
        lastRng = Target.Value
    End If
End Sub

关键修改说明： #

• 获取列标题：通过Sh.Rows(1).Cells(, Target.Column).Value获取修改单元格所在列的第1行文本，即列标题
• 优化代码效率：用logRow变量一次性定位日志行，避免多次调用End(xlUp)
• 修正lastRng类型：声明为Variant，统一保存单元格值，避免对象赋值与值赋值的冲突
• 添加列标题记录：将列标题写入logdetails的G列（可根据需要调整列位置）
• 避免ActiveSheet依赖：直接使用事件参数Sh操作当前修改的工作表，更可靠

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