如何通过VBA记录Excel特定单元格的最后修改者用户名？

当然可以做到！我给你一套精准匹配需求的VBA代码，能自动在A列单元格被修改时，把操作者的用户名写入对应的B列单元格。

具体实现步骤 #

1. 打开工作表的VBA编辑器 #

右键点击目标工作表标签（比如Sheet1），选择「查看代码」，直接进入该工作表的专属代码编辑界面。

2. 粘贴以下代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 声明变量
    Dim modifiedCell As Range
    Dim username As String
    
    ' 只处理A列的单元格修改
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        ' 关闭事件触发，避免写入B列时再次触发Change事件
        Application.EnableEvents = False
        
        ' 获取当前操作者的Windows登录用户名（准确性更高）
        username = Environ("Username")
        
        ' 遍历所有被修改的单元格（支持批量修改A列的情况）
        For Each modifiedCell In Intersect(Target, Me.Columns("A"))
            ' 把用户名写入对应行的B列
            Me.Cells(modifiedCell.Row, "B").Value = username
        Next modifiedCell
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

代码细节说明 #

• Worksheet_Change事件：这是工作表的内置监听事件，只要单元格内容被修改就会自动触发。
• Intersect范围判断：确保只响应A列的修改操作，避免其他列的编辑触发无关代码。
• 用户名获取逻辑：用Environ("Username")获取Windows登录用户名，这是最准确的方式（不会被用户手动修改）；如果需要获取Office账号名，可以替换为Application.UserName，但注意这个值可手动更改，准确性稍差。
• 事件循环规避：写入B列时会再次触发Change事件，所以必须先关闭Application.EnableEvents，操作完成后再开启，防止代码无限循环执行。

关键注意事项 #

• 保存工作簿时要选择「Excel启用宏的工作簿（.xlsm）」格式，否则宏代码会丢失。
• 打开工作簿时必须启用宏，否则代码不会运行。
• 多人共享编辑场景下依然有效，每个用户的操作会触发本地事件，记录各自的用户名。

解决你之前的问题 #

你提到之前只能获取部分信息，大概率是没处理事件循环触发的问题，或者没精准限定处理的单元格范围。上面的代码已经把这些常见坑都填上了，测试一下应该就能完美实现你的需求。

内容的提问来源于stack exchange，提问作者ex-patriot