主页 / 问题 / 1176485
Accepted
JBlack
Asked:2020-09-10 14:26:29 +0000 UTC2020-09-10 14:26:29 +0000 UTC

微软 Excel。将具有全名的字符串转换为姓氏 I.O

  • 772

需要将具有类型全名的列转换为MS Excel表中Фамилия Имя Отчество的类型Фамилия И.О.。手动不是一个选项，因为该列中有数千个条目。

Excel中是否有任何工具可以进行这样的操作，例如，根据给定的模板将原始列的数据转换为新数据并将其放入新列中？

似乎与文本相关的exel公式解决起来很麻烦，并且使用VBA脚本暗示了自己，但我根本不知道语法......虽然，算法很简单 - 完整的行name 被解析成一个单词列表，然后从这个列表的转换元素形成一个新行并存储在一个新单元格中。理论上，您需要添加将源的初始单元格和结果列指定为参数的功能。

excel

3 个回答

  1. 一个相当复杂的公式，关键是您需要将字符串分解为字符。例如，取一个空格，然后取所需的部分（左、中、右），然后将所有这些与 连接&" "&，在名称和父名中，您只需将第一个字符与LEFT.

    在此示例中，假设单元格 A2 包含“Ivanov Ivan Ivanovich”形式的名称

    =LEFT(A2; SEARCH(" ";A2;1)-1)&" "&LEFT(MID(A2;SEARCH(" ";A2) + 1; SEARCH(" "; A2;SEARCH(" ";A2) + 1) - SEARCH(" ";A2) -1);1)&". "&LEFT(RIGHT(A2; LEN(A2) - SEARCH(" "; A2;SEARCH(" ";A2;1)+1));1)&"."
    • 2

  2. 只需手动 - 最正确的选项，因为该列中有数千条记录。

    即时细胞填充

    这个工具叫做“ Flash Fill ”

    • 1
  3. Best Answer
    =ЛЕВБ(A2;ПОИСК(" ";A2)+1)&"."&ЛЕВБ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";50));99;150)))&"."

=ЛЕВБ(A2;ПОИСК(" ";A2)+1)&"."&ПСТР(A2;ПОИСК("/";ПОДСТАВИТЬ(A2;" ";"/";2))+1;1)&"."

    UDF有多种选择。Application.Trim- 在处理之前，清除文本中多余的空格

    Function fFIO_(sTxt As String, Optional sSeparator As String = " ", Optional sSymbol As String = ".")
    Dim sTmp As String
    
    sTxt = Application.Trim$(sTxt)
    sTmp = Left$(sTxt, InStr(sTxt, sSeparator) + 1) & sSymbol
    fFIO_ = sTmp & Left$(Split(sTxt, sSeparator)(2), 1) & sSymbol
End Function

    到单元格：

    =fFIO_(A2;" ";".")
    • 0

相关问题