如何用VBA将Excel单元格姓名转为「姓,名」格式用作导出文件名

你可以通过Split函数对空格分隔的姓名做拆分，调换名、姓顺序后重新拼接即可实现需求，修改后的完整代码如下：

Sub MyMacro()
    Dim Employee As String
    Dim FileN As String
    Dim nameArr As Variant
    
    Employee = Sheets("Sheet1").Range("A1").Value
    
    ' 新增姓名格式转换逻辑：将「名 姓」转换为「姓, 名」
    nameArr = Split(Trim(Employee), " ")
    ' 判断是否拆出至少两个元素，避免无空格时报错
    If UBound(nameArr) >= 1 Then
        Employee = nameArr(1) & ", " & nameArr(0)
    End If
    
    FileN = Employee & "_appraisals_" & Format(Range("A2"), "yyyy.mmm")
    
    ChDir "C:\Users\filepath\Desktop\PDFTest"
     
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileN, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        
End Sub

逻辑说明 #

• Trim(Employee)会先清除姓名首尾的多余空格，避免空格导致拆分错误
• Split函数按空格将姓名拆分为数组，数组下标从0开始，nameArr(0)对应名，nameArr(1)对应姓
• 增加了容错判断：如果A1单元格内容不符合「名 姓」的空格分隔格式，会直接使用原内容拼接文件名，不会触发运行报错

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