[已解决]求助 如何提取某一列单元格里的部分字段到另一列

huaseo

求助：我有一个表格B列写的是

问题：我想在A列，把B列中的<img src="后面的图片，即7694_G_1349689377769.jpg，6902_G_1337701486583.jpg，。。3838_G_1310515417301.jpg提取出来放入A列中，（附件中我用手工提取了两个放入A列了），如果批量的提取的话怎么做？


问题已经解决了 谢谢管理员和大家了

最佳答案

月排行榜 / 总排行榜

redsheep

2013-3-29 12:03

huaseo 发表于 2013-3-29 11:57
你好 这样采集下来的是前一张图片 我需要的是后面那张的图片

那就  =MID(B2,FIND("img src=",B2)+9,FIND(" alt",B2)-FIND("img src=",B2)-10)

跳转到最佳答案楼层

1032446692

发附件上来  并在附件里举例说明想达到的效果    不然的话  也没人知道你想做什么  想达到什么结果

hwc2ycy

这种提出，用正则比较好。

hwc2ycy

hwc2ycy

当然，用函数也是可以实现的。
最好上个附件。

xzsychenwei

上附件               

huaseo

xzsychenwei 发表于 2013-3-29 10:41
上附件

你好，已经上传附件了

huaseo

1032446692 发表于 2013-3-29 10:27
发附件上来  并在附件里举例说明想达到的效果    不然的话  也没人知道你想做什么  想达到什么结果

你好，已经上传附件了

huaseo

hwc2ycy 发表于 2013-3-29 10:33
当然，用函数也是可以实现的。
最好上个附件。

你好，已经上传附件了

hwc2ycy

1. Sub 提取图片链接()
   
2.     Dim arr, result()
   
3.     Dim i As Long
   
4. 
   
5.     Dim lLastrow As Long
   
6.     lLastrow = Cells(Rows.Count, "b").End(xlUp).Row
   
7.     arr = Range("b1:c" & lLastrow)
   
8.     ReDim result(1 To UBound(arr), 1 To 1)
   
9. 
   
10.     Dim reg As Object
    
11.     Set reg = CreateObject("VBScript.regExp")
    
12.     With reg
    
13.         .Global = True
    
14.         .Pattern = "\w+?.jpg"
    
15.         For i = LBound(arr) To UBound(arr)
    
16.             If .test(arr(i, 1)) Then
    
17.                 result(i, 1) = .Execute(arr(i, 1))(0)
    
18.             End If
    
19. 
    
20.         Next
    
21.     End With
    
22.     Set reg = Nothing
    
23.     Range("a1").Resize(UBound(arr)) = result
    
24.     MsgBox "提取完成"
    
25. End Sub
    

复制代码