求助：高手如何将数据和文本分离

更新时间：2018-09-11 18:18:42 169次访问

VBA代码运行后的效果见图：

代码：

Sub 提取数字()

   hs = 1

   ls = 3

   Do While Cells(hs, 1) <> ""

      lsj = 0

      zfc = Cells(hs, 1)

      zfccd = Len(zfc)

      js = 1

      sz = ""

      Do While js <= zfccd

         zf = Mid(zfc, js, 1)

         If zf >= "0" And zf <= "9" Then

            sz = sz & zf

            If Len(sz) = 1 Then lsj = lsj + 1

         Else

            If Len(sz) > 0 Then

               Cells(hs, ls + lsj) = sz

            End If

            sz = ""

         End If

         js = js + 1

      Loop

      hs = hs + 1

   Loop

End Sub