【求助】文字数字分列（包含不固定字符与符合）

qjtxwork

格式如下：

南京港顺电路技术有限公司（南京理工港世顺电子工程技术有限公司）7

南京港顺电路技术有限公司（南京理工港世顺电子工程技术有限公司）7

深圳市万维思特科技有限公司2

深圳市研祥智能科技股份有限公司2

深圳市信思电子有限公司2

北京工业大学电控学院DSP与嵌入式研究室016

南京费斯捷电子7

吉林大学仪器科学与电气工程学院 17

吉林大学仪器科学与电气工程学院 17

深圳市天彦通信技术有限公司002

如何将汉字与数字分列 并区别002 与2  ！求大侠

杨慧1234

Option Explicit

Sub 提取()
Worksheets("sheet1").Range("b:c").Select
Selection.Clear
Range("b:c").NumberFormatLocal = "@"
Dim i, j As Integer
Dim s As String
Dim s2 As String
For i = 1 To Worksheets(1).Range("A65536").End(xlUp).Row
s = Sheet1.Cells(i, 1)
s2 = ""
For j = Len(s) To 1 Step -1
If InStr("0123456789", Mid(s, j, 1)) Then
s2 = Mid(s, j, 1) & s2
Else
Exit For
End If
Next j
Sheet1.Cells(i, 3) = s2
Sheet1.Cells(i, 2) = Left(s, Len(s) - Len(s2))
Next i
End Sub

gykg-excel

=MID(A1,MIN(FIND(ROW($1:$10)-1,A1&1/17)),99)

164508

gykg-excel 发表于 2018-1-8 15:50
=MID(A1,MIN(FIND(ROW($1:$10)-1,A1&1/17)),99)

你好，&1/17，这个部分是什么意思呢？

gykg-excel

1/17显示为小数的话包含了0-9的所有数字，这样可以避免查找时找不到数字而产生错误。