一 在指定单元格输出计算机用户名

Sub 当前单元录入计算机用户名()

Selection = Environ("Username")

'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容

End Sub

二、在指定单元格输出计算机名和用户名

Sub 当前单元录入计算机名()

Selection = Environ("COMPUTERNAME")

'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容

End Sub

返回指定单元格中最大值（在指定单元格输出计算机名和用户名）(1)

,