如何用vb修改excel表中的内容

Question

<A href="javascript:SMS('1')">张三</A> 
<A href="javascript:SMS('2')">张三</A> 
<A href="javascript:SMS('3')">张三</A> 有一列中是这种格式的内容，现在想把代码 <a ...> </a>去掉，只保留汉字，代码如何写

Answer 1

把HTML文档中的<>符号包括里面的文字全部删除，其他的保留就OK了，关键是取的"<>"

Answer 2

    Cells.Select
    Selection.Replace What:="</A>", Replacement:=""    For i = 1 To 3
        s = "<A href=" & Chr(34) & "javascript:SMS('" & Trim(Str(i)) & "')" & Chr(34) & "> "
        Selection.Replace What:=s, Replacement:=""
    Next

Answer 3

楼上的可以说完整一点吗
如果是
<A href="javascript:SMS('145')">张三 </A> 
<A href="javascript:SMS('2324')">张三 </A> 
<A href="javascript:SMS('3435435')">张三 </A> 
这样的呢

Answer 4

自己改改.Public   Sub   StripText(htmSource   As   String,   toText   As   String) 
Dim   Txt   As   String 
Dim   flag   As   Boolean 
Dim   strTemp   As   String 
Dim   i   As   Integer 
Open   htmSource   For   Input   As   #1   'htm 
        Open   toText   For   Output   As   #2   'txt 
                Do   While   Not   EOF(1) 
                        Line   Input   #1,   strTemp   'htm 
                        Txt   =   " "   '置空txt变量 
                        For   i   =   1   To   Len(strTemp)     '遇到 " < "   忽略所有     直到> " 
                                Select   Case   Mid$(strTemp,   i,   1) 
                                        Case   " < " 
                                                flag   =   True 
                                        Case   "> " 
                                                flag   =   False 
                                        Case   Else 
                                                If   Not   flag   Then   Txt   =   Txt   &   Mid$(strTemp,   i,   1) 
                                End   Select 
                        Next 
                        Txt   =   Replace$(Txt,   "&nbsp; ",   " ")   '替换掉空字符串 
                        'Txt   =   Replace$(Txt,   "     ",   " ") 
                        If   Txt   <>   vbNullString   Then 
                                Print   #2,   Txt   '写文本 
                        End   If 
                Loop 
        Close   2 
Close   1 
End   Sub

Answer 5

本人处理这种情况，一般采用split函数，楼主的只要三次就可以了，就是不知道这种方法效率怎么样？dim temp1() as string,temp2() as string
dim sss as string,i as integer
dim aaa(1 to 3) as string
sss="<A href="javascript:SMS('1')">张三 </A> 
<A href="javascript:SMS('2')">张三 </A> 
<A href="javascript:SMS('3')">张三 </A> "temp1()=split(sss,vbcrlf)'分解成一行一行
for i=1 to 3
temp2()=split(temp1(0),">")
temp2()=split(temp2(1),"<")
aaa(i)=trim(temp2(0))
next i
'aaa的值就是楼主想要的

Answer 6

补充sss=" <A href="javascript:SMS('1')">张三 </A> 
<A href="javascript:SMS('2')">张三 </A> 
<A href="javascript:SMS('3')">张三 </A> " 这一段的内容估计应该是从网页中的得来的，上面的程序写法是有问题的，只是表示一下而已

Answer 7

还是写成这样吧
Dim temp1() As String, temp2() As String
Dim sss As String, i As Integer
Dim aaa(1 To 3) As String
sss = Text1.Texttemp1() = Split(sss, vbCrLf) '分解成一行一行
For i = 1 To 3
    temp2() = Split(temp1(1), ">")
    temp2() = Split(temp2(1), "<")
    aaa(i) = Trim(temp2(0))
Next i