Из приведенного ниже я хочу извлечь данные в скобках, если это только число.
Nissan - запуск X-Trail (май) (июнь) - SO9158518 (65124817) Туризм - Любопытный 2017 (Новости) (44124469)
Из приведенного ниже я хочу извлечь данные в скобках, если это только число.
Nissan - запуск X-Trail (май) (июнь) - SO9158518 (65124817) Туризм - Любопытный 2017 (Новости) (44124469)
Попробуйте эту пользовательскую функцию:
Public Function parens(t As String) As String
Dim i As Long, L As Long, CH As String
Dim x As String, y As String, temp As String
Dim ary() As String, Kapture As Boolean, a As Variant
Dim j As Long
parens = ""
L = Len(t)
x = "("
y = ")"
Kapture = False
temp = ""
j = 1
For i = 1 To L
CH = Mid(t, i, 1)
If CH = x Then
Kapture = True
temp = ""
ReDim Preserve ary(1 To j)
j = j + 1
ElseIf CH = y Then
ary(UBound(ary)) = temp
Else
If Kapture Then temp = temp & CH
End If
Next i
For Each a In ary
If IsNumeric(a) Then
parens = a
Exit Function
End If
Next a
End Function
Он извлекает материал в скобках, пока не найдет числовое значение.
Пользовательские функции (UDF) очень просты в установке и использовании:
Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить UDF:
Чтобы использовать UDF из Excel:
=parens(A1)
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
а подробности о UDF смотрите в:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Макросы должны быть включены, чтобы это работало!