EXECL VBA 函数

Question

有一个单元合A1  你们是一段带超连接的一段话。有没有什么涵数可以做到 超连接 和一段话 分别在两个单元分离。
 

Answer 1

，那里不明白。
有一个单元合A1 你们是一段带超连接文字现在要求把 超连接 和文字 分离
变成两个 CELL

Answer 2

Function dellink(ByRef arg As String) As String
Dim argv1 As Stringargv1 = argDim text As String
Dim text1 As String
text = ""
text1 = ""If Sheets("Sheet1").Range(argv1).Hyperlinks.Count = 1 Then
Sheets("Sheet1").Range(argv1).Select
text = Sheets("Sheet1").Range(argv1).Hyperlinks(1).Address'Sheets("Sheet1").Range(argv1).Select
Sheets("Sheet1").Range(argv1).Hyperlinks.Delete    dellink = text
Else
  dellink = Sheets("Sheet1").Range(argv1).ValueEnd IfEnd Function
---------------------------
但是好象有问题调用
=dellink（E1）
arg是 新浪网要改为
=dellink（"E1"）
arg="E1"但是这样就不能拉了 很郁闷

Answer 3

我测试了一下，只测试了一个数据，分离起来不是很难 
       xlSheet.Cells(1, 2) = xlSheet.Cells(1, 1)
       xlSheet.Cells(1, 3) = xlSheet.Cells(1, 1).Hyperlinks(1).Address