第2个回答 2011-06-11
数据量大就用VBA来处理吧
运行以下宏就把你sheet1表A列的括号内的内容提取到B列中了
Sub aa()
Dim R&, x&, i&, i1&
Dim arr, arr1
With Sheets("sheet1")
R = .Range("A65536").End(xlUp).Row
arr = .Range("A1:A" & R).Value
ReDim arr1(1 To UBound(arr))
For x = 1 To UBound(arr)
i = InStr(arr(x, 1), "(") + 1
i1 = InStr(arr(x, 1), ")") - i
arr1(x) = Mid(arr(x, 1), i, i1)
Next x
.Range("B1").Resize(UBound(arr1), 1) = Application.Transpose(arr1)
End With
End Sub
第3个回答 2011-06-11
假如A1是有括号的数据,B1用公式提取
=MID(A1,FIND("(",A1)+1,FIND(")",A1)-FIND("(",A1)-1)本回答被网友采纳