XXXX镇长溪村1组 430524266401
XXXX镇长溪村2组 430524266402
XXXX镇长溪村3组 430524266403
XXXX镇长溪村11组 430524266411
代码这一行要如何设置公式
以组的数字为参考1―9 写01――09
10以上两位数表示
使用VBA自定义函数和下面公式：
在B1输入：
="4305242664"&text(takeout(A1,2,1),"00")
公式下拉
函数：TAKEOUT（自己以前用的，针对你的情况可以自己简化一下）
语法：TAKEOUT(被取慧稿神字符串,取值类型,序号)
被取字符串：含有数字、汉字和字母的不规则字符串。
取值类型：（数字1、2）1代表汉字子串，2代表数字子串。
序号：（数字1到3）代表敬蔽要取出子串在被取字符串从左到右的第几个。
Function takeout(str, zt, s)
On Error GoTo errtakeout1
Dim m As Integer
str = str & " "
If s = 1 Then
m = 0
Else
If s = 2 Then
m = -2
Else
If s = 3 Then
m = -4
Else
GoTo errtakeout1
End If
End If
End If
If zt = 1 Then
For i = 1 To Len(str)
If Asc(Mid(str, i, 1)) >= -20319 And Asc(Mid(str, i, 1)) <= -2050 Then
If m = -4 Then m = -3
If m = -2 Then m = -1
If m = 0 Then m = i
Else
If m = -3 Then m = -2
If m = -1 Then m = 0
If m > 0 Then
takeout = Mid(str, m, i - m)
Exit Function
End If
End If
Next
takeout = ""
Exit Function
Else
If zt = 2 Then
For i = 1 To Len(str)
If Asc(Mid(str, i)) >前亏 47 And Asc(Mid(str, i)) < 58 Then
If m = -4 Then m = -3
If m = -2 Then m = -1
If m = 0 Then m = i
Else
If m = -3 Then m = -2
If m = -1 Then m = 0
If m > 0 Then
takeout = Mid(str, m, i - m)
Exit Function
End If
End If
Next
takeout = ""
Exit Function
Else
GoTo errtakeout1
End If
End If
errtakeout1:
takeout = "#NAME?"
End Function
在芹凳扮B2输嫌灶入公式：
="4305242664"&TEXT(MID(A2,FIND("村",A2)+1,LEN(A2)-FIND("村",A2)-1),"00")
向下填粗悄充即可。
B2输渗迹入丛咐并公式
=4305242664&IF(RIGHT(MID(A2,FIND("村",A2)+1,2),1)="简者组",0&MID(A2,FIND("村",A2)+1,1),MID(A2,FIND("村",A2)+1,2))
下拉
在盯神B2中输入以下公式,向下拖拽填充
=4305242664&TEXT(MID(A2,FIND("燃空村",A2)+1,LEN(A2)-FIND("村",A2)-1),"凯段亏00")