Excel：我复制粘贴列表200链接从网站到Excel，我想从链接中提取文本

链接出现在Excel中用蓝线超链接，我想从链接中提取文本，例如网址http：\ sea.craigslist.com在excel中显示为“seattle”。我想从链接中提取文本“sea”并粘贴到下一列。Excel：我复制粘贴列表200链接从网站到Excel，我想从链接中提取文本

来源

2010-09-20 gforg

可以创建用户定义函数（UDF）中提取的数据。

打开您的工作簿。
打开VBA编辑器按下Alt + F11
插入通过使用菜单插入一个新的模块 - >模块
复制并在下面
列出的功能代码粘贴通过使用关闭VBA编辑器菜单文件 - >关闭并返回到Microsoft Excel
假设第一连杆是在单元格A1，在小区B1型式中= GetPart（A1）
复印式向下根据需要

的公式应该在电池B1返回值“海”

Function GetPart(cell As Range) As String 

    Dim iStart As Integer 
    Dim iEnd As Integer 
    Dim iLen As Integer 

     If (cell.Range("A1").Hyperlinks.Count <> 1) Then 
      GetPart = "" 
     Else 
      GetPart = cell.Range("A1").Hyperlinks(1).Address 
      iStart = InStr(1, GetPart, "//") + 2 
      iEnd = InStr(1, GetPart, ".") 
      iLen = iEnd - iStart 
      GetPart = Mid(GetPart, iStart, iLen) 
     End If 

End Function

来源

2010-09-20 10:21:03

太棒了！完美工作!!!非常感谢！你是一个真正的专家！ – gforg 2010-09-21 05:28:50

这应该工作：

=LEFT(RIGHT(C3,LEN(C3)-7),FIND(".",RIGHT(C3,LEN(C3)-7))-1)

在你想要的“海”的单元格这段代码粘贴到是。将上面代码中的C3替换为链接如http://sea.something.com的单元格。它将在结果单元格中显示海。

注意：这只有当你的链接在链接开始时有“http：//”时才有效。

来源

2010-09-20 06:48:17

在Excel单元格链接不显示为“http://sea.something.com”，而不是它显示为“海”哪些超链接到“http://sea.something.com”即使这样，它仍然可以工作。 – gforg 2010-09-20 06:57:29

在结果单元格“= C3”中键入此值，这里C3是包含链接的单元格，然后完成:) – 2010-09-20 07:15:12

为此，您可以在Excel中帮助VBA编程。你可以得到很多关于它的pdf和tuts。

http://www.adnug.com/book_reviews/Programming%20Excel%20with%20VBA%20_3_.pdf

来源

2010-09-20 06:50:13

Excel：我复制粘贴列表200链接从网站到Excel，我想从链接中提取文本

回答

相关问题