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

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

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

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

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

第一種方法是使用公式從 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 鍵，然後拖動填滿控制點以填滿區域。現在您可以看到每個名字的首字母都已從名單中提取出來。

使用自訂函數在 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 鍵，並拖動填滿控制點以填滿您想要的範圍。之後，您可以看到每個名字的首字母都被提取出來了。

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

相關文章：

• 在 Excel 中提取唯一值
• 在 Excel 中提取粗體文字