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

Question

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

学生姓名的格式为:Abcd Efgh Ijkl 先生

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

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

宏应该能够将名称转换为: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) 非常易于安装和使用:

ALT-F11 调出 VBE 窗口

ALT-Ⅰ
ALT-M 打开一个新模块

粘贴这些东西并关闭 VBE 窗口

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

要删除 UDF:

弹出VBE窗口如上

清除代码

关闭 VBE 窗口

要使用 Excel 中的 UDF:

=我的功能(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

必须启用宏才能使其正常工作!