一、使用Excel函数提取（适用于结构化数据）

基本公式

使用`MID`和`FIND`函数结合，通过查找"村"或"乡/镇"的位置提取名称。例如：

```excel

=MID(A1, FIND("村", A1) + 1, FIND("镇", A1) - FIND("村", A1))

```

该公式假设村名位于"村"和第一个"镇"之间。

处理多级行政区划

若村名被包含在更长的地址中（如"XX省XX市XX乡XX村"），需调整公式：

```excel

=MID(A1, FIND("乡", A1) + 1, FIND("村", A1) - FIND("乡", A1))

```

此公式假设村名位于第一个"乡"之后。

注意事项

若地址中包含"街道"等字样，需先使用`SUBSTITUTE`函数将"街道"替换为"乡镇"：

```excel

=MID(SUBSTITUTE(A1, "街道", "乡镇"), FIND("村", A1) + 1, FIND("镇", A1) - FIND("村", A1))

```

公式需按`Ctrl + Shift + Enter`输入为数组公式。

二、使用VBA宏批量提取

基本思路

通过VBA遍历单元格内容，查找"村/乡/镇"的位置，并提取后续字符作为村名。

示例代码

```vba

Sub ExtractVillageNames()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为实际工作表名称

Dim rng As Range

Set rng = ws.Range("A1:A100") ' 根据实际数据范围调整

Dim cell As Range

Dim villageName As String

Dim found As Boolean

For Each cell In rng

found = False

If InStr(cell.Value, "村") > 0 Then

villageName = Mid(cell.Value, InStr(cell.Value, "村") + 1, InStr(cell.Value, "镇", InStr(cell.Value, "村") + 1) - InStr(cell.Value, "村"))

cell.Offset(0, 1).Value = villageName ' 将结果存入B列

End If

Next cell

End Sub

```

该代码将提取A列地址中的村名，并存储在B列。

三、其他注意事项

数据清洗

提取后可能包含多余空格或错误值，建议使用`TRIM`函数去除空格，并通过条件判断过滤无效数据。

特殊情况处理

若地址中存在多个"乡/镇"，需手动标注或使用更复杂的逻辑判断。

对于不规范的村名（如"村3路"），需在提取后手动修正。

通过以上方法，您可以高效提取村居名称。若数据量较大，建议优先使用VBA宏进行批量处理。