Excel - 删除中间名并替换为第一个字母

Question

我有许多包含多张学生数据的 Excel 工作簿。

学生姓名格式为：Mr. Abcd Efgh Ijkl

其中： Abcd ：名字； Efgh：中间名； Ijkl : 姓

我希望能够运行宏。我是 Excel 的季节性用户。但是在一些论坛上阅读让我想到了宏。

宏应该可以把名字转换成：Mr. Abcd E. Ijkl

在哪里： Abcd : 名字 E. ：中间名，除第一个字母之外的所有字母；中间名的长度不同。 Ijkl : 姓

请阐明这一点。或者任何参考问题/答案也可以。

Answer 1

这里我们假设中间名是全名的倒数第二个部分。

Public Function FixName(sIN As String) As String
    Dim st As String

    ary = Split(sIN, " ")
    st = ary(UBound(ary) - 1)
    ary(UBound(ary) - 1) = Left(st, 1) & "."
    FixName = Join(ary, " ")
End Function

编辑#1：

用户定义函数 (UDF) 非常易于安装和使用：

1. ALT-F11 调出 VBE 窗口
2. ALT-I ALT-M 打开一个新模块
3. 粘贴内容并关闭 VBE 窗口

如果您保存工作簿，UDF 将与它一起保存。 如果您使用的是 2003 年以后的 Excel 版本，则必须保存 文件为 .xlsm 而不是 .xlsx

要删除 UDF：

1. 如上所示打开 VBE 窗口
2. 清除代码
3. 关闭 VBE 窗口

要使用 Excel 中的 UDF：

=myfunction(A1)

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关 UDF 的详细信息，请参阅：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能正常工作！