如果是比较有规律的,楼主可以使用VBA程序进行处理,几行代码就搞定,方便快捷。
(一)程序代码如下:
Sub Mid_m()
Dim m1, m2, m3
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
For m1 = 2 To 1000
If mysheet1.Cells(m1, 1) <> "" Then
m2 = InStr(1, mysheet1.Cells(m1, 1), "区") '判断字符所在的位置
m3 = InStr(1, mysheet1.Cells(m1, 1), "单元")
mysheet1.Cells(m1, 2) = Mid(mysheet1.Cells(m1, 1), m2 + 1, m3 - m2 - 1) '截取数字
mysheet1.Cells(m1, 3) = Mid(mysheet1.Cells(m1, 1), m3 + 2, _
Len(mysheet1.Cells(m1, 1)) - m3 - 2)
End If
Next
End Sub
(二)程序运行后的结果如下: