如何從單元格中提取每個單詞的首字母？

假設您的工作表中有一個國家/地區名稱列表，現在，您需要提取單元格中每個單詞的第一個字母，如以下屏幕截圖所示。通常，沒有直接功能可以提取Excel中每個單詞的第一個字母。但是，在這裡，我可以討論一種解決此任務的有用方法。

文檔提取物首字母 1

使用用戶定義的功能從單元格中提取每個單詞的第一個字母

Office選項卡在Office中啟用選項卡式編輯和瀏覽，並使您的工作更加輕鬆...

閱讀更多... 免費下載...

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用任何東西：將最常用或最複雜的公式，圖表等添加到您的收藏夾中，並在將來快速重用它們。
超過20種文字功能：從文本字符串中提取數字；提取或刪除部分文字；將數字和貨幣轉換為英文單詞。
合併工具：將多個工作簿和工作表合二為一；合併多個單元格/行/列，而不會丟失數據；合併重複的行和總和。
分割工具：根據價值將數據分割成多個工作表；一本工作簿可轉換為多個Excel，PDF或CSV文件；一列到多列。
跳過粘貼隱藏/過濾的行；計數與求和按背景色; 向多個收件人批量發送個性化電子郵件。
超級過濾器：創建高級過濾方案並應用於任何工作表；分類按星期，日期，頻率等篩選用粗體，公式，註釋...
超過300個強大的功能；適用於 Office 2007-2021 和 365；支持所有語言；在您的企業或組織中輕鬆部署。

閱讀更多... 免費下載...

使用用戶定義的功能從單元格中提取每個單詞的第一個字母

驚人！在Excel中使用高效選項卡，例如Chrome，Firefox和Safari！

每天節省50％的時間，並減少數千次鼠標單擊！

在Excel中，您可以創建一個 用戶自定義函數 提取單元格中每個單詞的首字母。請這樣做：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

2。點擊插入 > 模塊，然後將以下代碼粘貼到 模塊窗口</ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3。然後保存並關閉此代碼，返回工作表，然後輸入此公式 = GetFirstLetters（A2） (A2 表示要提取第一個字母的單元格，可以根據需要將其更改為空白單元格。看截圖：

文檔提取物首字母 1

4。然後按 Enter 鍵，然後選擇單元格B2，然後將填充手柄拖到要應用此公式的單元格上。並且所有第一個字母均已從一系列單詞中提取，請參見屏幕截圖：

文檔提取物首字母 1

相關文章：

如何從Excel中的文本字符串中提取第一個/最後一個/第n個單詞？

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (16)

還沒有評分。成為第一位評論！

桑傑

大約8年前

#11217

網站主持人對此評論進行了最小化

我想知道如何將日期轉換為文本。例如 11.02.1998 作為 XNUMX February XNUMX XNUMX

然後

大約7年前

#13955

網站主持人對此評論進行了最小化

謝謝你是最好的

斯里達

大約6年前

#15956

網站主持人對此評論進行了最小化

非常感謝你..它的工作..你搖滾

亞當·帕維

大約6年前

#16560

網站主持人對此評論進行了最小化

很有幫助。正是我所追求的。

沒有人

大約6年前

#17124

網站主持人對此評論進行了最小化

請包括此部分：如果您在名為 Personal.xlsb 的工作簿中創建名為 DISCOUNT 的函數，並從另一個工作簿中調用該函數，則必須鍵入 =personal.xlsb!discount()，而不僅僅是 =discount()。 https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

納瓦爾賈

大約6年前

#17975

網站主持人對此評論進行了最小化

我認為它有一個錯誤，當工作表關閉時它會自動從模塊中刪除，每次打開工作表時都需要再次執行相同的過程，請告知如何將此公式永久保存在 Excel 中。

哈里布·奧利伊爾納瓦爾賈

大約 1 年前

#17976

網站主持人對此評論進行了最小化

請將 Excel 保存為 Excel 宏啟用工作簿。

奧列格

大約4年前

#24981

網站主持人對此評論進行了最小化

Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы？

史蒂芬

大約3年前

#29857

網站主持人對此評論進行了最小化

此代碼最多可用於五個字，其中 D20 是包含數據的單元格。

=IF(ISERR(LEFT($D$20,1)&MID($D$20,搜索(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",
$D$20)+1)+1)+1)+1,1)),IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),
IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)),
IF(ISERR(左($D$20,1)),"",左($D$20,1)),左($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)),LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
左($D$20,1)&中($D$20,搜索(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),LEFT($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)
+1)+1)+1,1))

格里格斯

大約3年前

#30224

網站主持人對此評論進行了最小化

這太棒了。這樣節省時間

冬青

大約2年前

#33189

網站主持人對此評論進行了最小化

為什麼這給了我每個單詞的前 2 個字母？

普拉迪普賈瓦利

大約6個月前

#39056

網站主持人對此評論進行了最小化

如何在字母之間創建空間？

韓國=SK

天陽普拉迪普賈瓦利

大約6個月前

#39186

網站主持人對此評論進行了最小化

嗨，嘉瓦麗
如果要為每個字符添加空格，請應用以下 VBA 代碼：

Function GetFirstLetters(Rng As Range) As String
'Updateby Extendoffice
    Dim xStr
    Dim arr
    Dim I As Long
    xStr = " "
    arr = VBA.Split(Rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1) & xStr
        Next I
    Else
        GetFirstLetters = Left(arr, 1) & xStr
    End If
End Function

插入代碼後，然後應用此公式： = GetFirstLetters（A2） 得到你需要的結果。
請嘗試，希望對您有所幫助！

即時報告

莎拉

大約6個月前

#39138

網站主持人對此評論進行了最小化

想知道如何將其添加到現有的公式中，以將值從另一個工作表中的單元格中提取出來？我只想帶入每個單元格中的第一個字符。這是公式

=IF(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D))=ROW(OriginalSubmission!D4),"",INDIRECT("OriginalSubmission!D5:"& "D"&(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D)))))

天陽莎拉

大約6個月前

#39144

網站主持人對此評論進行了最小化

你好，莎拉
你的意思是從另一個工作表中提取單元格中的每個第一個字符？如果是這樣，您只需複制並粘貼本文中的代碼，然後將此公式應用到另一個工作表中。

=GetFirstLetters(OriginalSubmission!D4)

備註: 原始提交 是要從中提取字符的工作表名稱。
請嘗試，希望對您有所幫助！

即時報告

薩穆爾

大約2個月前

#41220

網站主持人對此評論進行了最小化

如果使用 Microsoft 365，另一個建議：=TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)) 其中源字符串在 B9 中。
包裝在 UPPER 函數中以強制使用大寫：=UPPER(TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)))
@Pradeep Gyawali -> 添加空格：=UPPER(TEXTJOIN(" ",,LEFT(TEXTSPLIT(D9," "),1)))

這裡還沒有評論

留下你的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約