问与答96：如何使用VBA代码提取单元格中的字符串

Sub CopyAndDepositTextWithinBrackets1()
   On Error Resume Next
   Dim rngCell As Range
   Dim strName As String
   Dim OpenBracket As Integer
   Dim CloseBracket As Integer
   For Each rngCell In Range("A1",Range("A1").End(xlDown))
       strName = rngCell.Value
       OpenBracket = InStr(1, strName, "<")
       CloseBracket = InStr(1, strName, ">")
       rngCell.Offset(0, 1).Value = Mid(strName, _
            OpenBracket + 1, CloseBracket -OpenBracket - 1)
   Next rngCell
End Sub

Sub CopyAndDepositTextWithinBrackets2()
   Dim rng As Range
   For Each rng In Range("A1", "A" &Range("A1").SpecialCells(xlLastCell).Row)
       If rng Like "*<*>*" Then rng.Offset(, 1).Value = Split(Split(rng,Chr(60))(1), Chr(62))(0)
   Next rng
End Sub