根据下面链接中的说明，执行以下操作。
在VBA中插入新模块并粘贴以下代码：

Public Function UserName()
    UserName = Environ$("UserName")
End Function

使用以下公式调用函数：

=Username()

根据以下说明：
https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

如果没有VBA宏，您可以使用以下提示从路径获取用户名：

=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))

如果您不想或不能在 VBA 中创建 UDF，这可能是一种替代方法。
=Cell("Filename",A1)这将为您提供完整的文件名，并且您可以通过以下方式获得用户名：
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

• 此公式仅从以前保存的工作簿运行。*
• 必须从第4个位置开始，因为第一个斜杠来自驱动器。*

这将显示当前用户的名称：

Function Username() As String
    Username = Application.Username
End Function

属性Application.Username保存安装MS Office时输入的名称。
在单元格中输入此公式：

=Username()

示例：要查看单元格C5上的Windows用户名，可以使用以下脚本：

Range("C5").Value = ": " & Environ("USERNAME").

最简单的方法是创建一个 Package 该函数的VBA宏，如下所示：

Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

那就从手机里打给它：

=UserNameWindows()

更多细节和其他方法请参见this article。