Вытащить несколько дат из текста из ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вытащить несколько дат из текста из ячейки (Формулы/Formulas)

serewka

Дата: Вторник, 18.06.2019, 15:27 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 56

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день, уважаемые знатоки ексель!

Подскажите, пожалуйста, есть ли вариант без макросов, вытащить даты из текста (дат в одной ячейке много), если в одной чейке много разных данных. Пример откуда берутся данные и как предположительно должно выглядеть прикрепляю. За ранее огромное всем спасибо!!!!

К сообщению приложен файл: 333.xlsx (8.8 Kb)

Ответить

sboy

Дата: Вторник, 18.06.2019, 15:58 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Это стандартная задача для использования "регулярных выражений", но это не

Цитата serewka, 18.06.2019 в 15:27, в сообщении № 1 ()

без макросов

[vba]

Код

Function serewka(t) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+\.\d+\.\d+"
        .Global = True
            If .test(t) Then
                For i = 0 To .Execute(t).Count - 1
                    serewka = serewka & .Execute(t)(i) & "; "
                Next
            End If
    End With
End Function

[/vba]

К сообщению приложен файл: 333-1-.xlsm (15.4 Kb)

Яндекс: 410016850021169

Ответить

serewka

Дата: Вторник, 18.06.2019, 17:50 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 56

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

sboy, спасибо, очень помогает, но к сожалению, так из текста вытаскиваются и цифры, которые не равняются датам (из примера - 1.7.1;) в предпоследней строке

Ответить

sboy

Дата: Вторник, 18.06.2019, 17:58 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Замените паттерн на
[vba]

Код

.Pattern = "\d{2}\.\d{2}\.\d{4}"

[/vba]

Яндекс: 410016850021169

Ответить

ArmilDinat

Дата: Вторник, 20.02.2024, 13:26 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 40% ±

2016

Цитата sboy, 18.06.2019 в 17:58, в сообщении № 4 (

)

Замените паттерн на

Здравствуйте подскажите пожалуйста как доработать код чтобы он вытаскивал значения и с форматом даты где год двухзначный, а не 4 значный. Просто в ячейке одновременное встречаюся варианты с двумя форматами дат и их все надо вытащить

Ответить

bigor

Дата: Вторник, 20.02.2024, 21:22 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1267

Репутация: 244 ±

Замечаний: 0% ±

нет

Цитата sboy, 18.06.2019 в 17:58, в сообщении № 4 (

)

attern = "\d{2}\.\d{2}\.\d{2,4}"

будет тянуть и 2-х значный год и 3 и 4

Ответить

Вытащить несколько дат из текста из ячейки (Формулы/Formulas)

Страница 1 из 1
1