在Excel中提取姓名中的姓氏，可通过以下方法实现，具体选择取决于数据量和复杂度需求：

一、使用LEFT函数（适用于单字姓）

基础公式

在目标单元格输入`=LEFT（A2,1）`，其中`A2`为姓名所在单元格。此公式直接提取姓名的第一个字符作为姓氏。

处理复姓

复姓需单独判断，可扩展公式如下：

```excel

=IF(OR(LEFT(A2,2)="欧阳",LEFT(A2,2)="司马"),LEFT(A2,2),LEFT(A2,1))

```

该公式优先判断前两个字符是否为常见复姓（如"欧阳"、"司马"），是则取前两字，否则取第一个字。

二、使用MID函数（适用于复姓）

通用公式

输入`=IF（OR（MID（A2,2,1）={"长","皇","尉"等复姓）,LEFT（A2,2）,LEFT（A2,1））`，通过`MID`函数从第二位提取1个字符，再结合`LEFT`函数处理单字姓。

扩展复姓列表

可在公式中添加更多复姓，例如：

```excel

=IF(OR(MID(A2,2,1)={"欧阳","司马"等复姓),LEFT(A2,2),LEFT(A2,1))

```

根据实际需求调整复姓判断条件。

三、使用VBA批量处理（适用于大量数据）

示例代码

```vba

Sub ExtractSurname()

Dim i As Long

Dim lastName As String

Dim doubleSurname As String

doubleSurname = "欧阳|司马|诸葛|上官" ' 添加完整复姓列表

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

lastName = Left(Cells(i, 1).Value, 2)

If InStr(doubleSurname, lastName) > 0 Then

Cells(i, 2).Value = lastName

Else

Cells(i, 2).Value = Left(Cells(i, 1).Value, 1)

End If

Next i

End Sub

```

该宏遍历A列姓名，判断是否为复姓并提取相应字符，结果输出到B列。

四、注意事项

数据预处理：

使用`TRIM`函数去除姓名前后的空格，避免提取错误。

特殊字符处理：

若姓名包含特殊字符（如"李雷"中的"·"），需先使用`SUBSTITUTE`函数替换为普通字符再提取。

备份数据：

处理前建议备份原始数据，防止意外修改。

通过以上方法，可高效提取姓名中的姓氏，满足不同场景需求。