求字符串，用"[]"分隔中的内容如 IF [H1] > [C5] THEN 要求返回 H1 , C5

[soft_Dev]

如上

[ddbean]

请把问题说明白一点。

[宏正]

Private Function GetPiece(ByVal psExpr As String) As String()
Dim lCol As Long, lRow As Long

Dim i As Long
Dim nLen As Long
Dim lStart As Long
Dim lLength As Long
Dim ch As String
Dim lSplit As Long

Dim Result() As String

ReDim Result(0)
nLen = Len(psExpr)
lSplit = 1

Do While lSplit < nLen

For i = lSplit To nLen
ch = Mid(psExpr, i, 1)

If ch = "[" Then
lStart = i
lLength = 0
ElseIf ch = "]" Then
lSplit = lStart + lLength + 1
lSplit = lSplit + 1

ch = Mid(psExpr, lStart + 1, lLength)
ReDim Preserve Result(UBound(Result) + 1)
Result(UBound(Result)) = ch

Exit For
Else
lLength = lLength + 1
lSplit = lSplit + 1
End If
Next
Loop

Result(0) = UBound(Result)
GetPiece = Result

End Function