如何在 Excel 中從名字提取首字母？

Author Sun Last modified 2025-08-23

當您在處理客戶記錄或進行郵件合併時，從給定的名字中獲取首字母可能會對您有所幫助，例如 HG 代表 Hal Greer。因此，我在這裡為您介紹一些快速從 Excel 名單中提取首字母的技巧。

使用公式在 Excel 中提取首字母

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

第一種方法是使用公式從 Microsoft Excel 的名字中提取首字母。

選擇一個空白單元格，例如單元格 C2，輸入此公式 =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")（A2 是您的名稱列表的第一個單元格），按下 Enter 鍵，然後拖動填滿控制點以填滿區域。現在您可以看到每個名字的首字母都已從名單中提取出來。

extract initials from names with formula

使用自訂函數在 Excel 中提取首字母

除了公式之外，您可以使用自訂函數輕鬆地從指定的名字中提取首字母於 Microsoft Excel 中。

1. 選擇您要選取的列中的某個單元格並按下 Alt + F11 打開 Microsoft Visual Basic for Applications 視窗。

2. 在彈出的視窗中，點擊插入 > 模組，然後將以下 VBA 程式碼貼到模組中。

VBA：從名字中提取首字母

Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
    OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function

3. 儲存程式碼並關閉視窗，選擇一個空白單元格並輸入此公式 = FirstCharacters(A2)，然後按下 Enter 鍵，並拖動填滿控制點以填滿您想要的範圍。之後，您可以看到每個名字的首字母都被提取出來了。

extract initials from names with user defined function

提示：您可以根據需要更改上述 VBA 中首字母的分隔符「.」。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多