Страницы: 1
RSS
Как взять со столбца (длинный текст) только нужные цифры? К примеру в одном столбце большой текст с цифрами., Как взять со столбца (длинный текст) только нужные цифры?
 
Например, в столбце записаны  следующие данные: Право временного возмездного землепользования (аренды) на земельный участок общей площадью 1291,0 га., в том числе пашня-1271,9 га., пастбища-16,7 га., дорог-2,4 га, кадастровым номером 12-189-054-044 сроком до 28.01.2070 г. Нужно в отдельно стоящий столбец выписать только общую площадь, например с этого текста(столбца) еще один новый столбец и цифра: 1291. Потому что это общая площадь. И как можно будет протянуть на все данные? Я пробовала через поиск текста не получилось)
 
Формула массива
Код
=ПРОСМОТР(9^9;--ПСТР(A1;ПОИСКПОЗ(;ПСТР(A1;СТРОКА($1:$999);1)*0;);СТРОКА($1:$999)))
Алексей М.
 
Можете, пожалуйста, формулу записать сюда? Потому что я не поняла :((
 
Записал сюда.
Алексей М.
 
Код
=ЗНАЧЕН(ЛЕВСИМВ(ПСТР(A8;НАЙТИ("общей площадью ";A8)+ДЛСТР("общей площадью ");ДЛСТР(A8));НАЙТИ(" ";ПСТР(A8;НАЙТИ("общей площадью ";A8)+ДЛСТР("общей площадью ");ДЛСТР(A8)))-1))
 
Обычная
Код
=ПРОСМОТР(9^9;--ЛЕВСИМВ(ПСТР(A8;НАЙТИ("общей площадью ";A8)+15;20);СТРОКА($1:$20)))
Алексей М.
 
UDF
Код
Function GetArea(cell As String)
With CreateObject("VBScript.RegExp")
  .Global = True
  .Pattern = " общей площадью (\d+(,\d+)?)\s(?=га)"
    If .Test(cell) Then
      GetArea = CDbl(.Execute(cell)(0).SubMatches(0))
    End If
End With
End Function
 
АlехМ Благодарю!
Страницы: 1
Наверх