如何从单元格内提取符合多条件的字符串

对月亮发誓 · 发表于 2014-6-24 22:35

[attach]1613800[/attac请各位多多指点

dajiahaoxinku12 · 发表于 2014-6-24 22:58

本帖最后由 dajiahaoxinku12 于 2014-6-24 23:02 编辑

Sub 截取()
arr = [a1:a3]
zz = Array("xh", "ns", "ml")
Dim brr(1 To 3, 1 To 3)
For i = 1 To UBound(arr)
      t = Split(arr(i, 1))
      For k = 0 To UBound(t)
         For x = 0 To 2
                  st = InStr(t(k), zz(x))
                  If st > 0 Then
                     y = y + 1
                     brr(i, y) = Mid(t(k), st，6)
                  End If
         Next
      Next
      y = 0
Next
Range("b1").Resize(3, 3) = brr
End Sub

dajiahaoxinku12 · 发表于 2014-6-24 23:01

本帖最后由 dajiahaoxinku12 于 2014-6-24 23:03 编辑

………………………………………………………………………………………………

对月亮发誓 · 发表于 2014-6-24 23:07

多谢指点，我先研读一下程序

xtabjg · 发表于 2014-8-15 21:08

亲，可以用EXCEL2013版直接输出，不用函数与公式。可以看下该论坛中微信版发送的帖子。在原数据列的右边空白单元格输你想要的数字，然后选中该数字单元格，直接按CTRL+E。组合键。快速填充功能、

		自动登录	找回密码
密码			免费注册

[经验交流] 如何从单元格内提取符合多条件的字符串