[已解决]如何按关键字分列，请教VBA的方法

帅

如何将数据源中的数据提取出来，黄色区域是函数方法，谢谢！

格式见附件说明

bFJyEQTl.rar (4.43 KB, 下载次数: 126)

2010-10-4 20:11 上传

点击文件名下载附件
【VBA】如何按关键字分列

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-10-4 20:22

[Power=5]

[hide]
Sub justtest()
  Dim i&
  For i = 1 To Cells(Rows.Count, 1).End(3).Row
    Cells(i, 2).Resize(1, 2) = Split(Replace(Cells(i, 1).Value, "系", "系" & vbTab), vbTab)
   Next
End Sub

[/hide
]

[/Power
]

跳转到最佳答案楼层

EPP

方法很多，最接近你函数的是用instr代替find，其他的都是一样的

还可以用split来分列,关键字是"系"

除此这外还有一些都能办到

liuguansky

[Power=5]

[hide]
Sub justtest()
  Dim i&
  For i = 1 To Cells(Rows.Count, 1).End(3).Row
    Cells(i, 2).Resize(1, 2) = Split(Replace(Cells(i, 1).Value, "系", "系" & vbTab), vbTab)
   Next
End Sub

[/hide
]

[/Power
]

Zipall

晕，威望不够看。

自己写的贴一下

Sub test()
    For r = 2 To [A65536].End(xlUp).Row
        t = Replace(Cells(r, 1), "系", "系 ")
        Cells(r, 4).Resize(1, 2) = Split(Cells(r, 1))
    Next r
End Sub

[此贴子已经被作者于2010-10-12 16:35:21编辑过]

amulee

花花怎么这样啊