Зачастил я сегодня с вопросами, но с моим недоопытом по-другому никак. Задача в следующем: Есть столбец в котором указаны Кафедра,ФИО звание. Нужно в соседнюю ячейку вставлять только ФИО, в том же формате. Заранее Спасибо самому лучшему форуму по Excel)
Зачастил я сегодня с вопросами, но с моим недоопытом по-другому никак. Задача в следующем: Есть столбец в котором указаны Кафедра,ФИО звание. Нужно в соседнюю ячейку вставлять только ФИО, в том же формате. Заранее Спасибо самому лучшему форуму по Excel)Inertecs
Здравствуйте. Есть вариант с помощью текст по столбцам--не нужные столбцы пропустить-- но результат будет не точный, так как где есть запятая после кафедры, где нет, и после фамилии тоже где есть, где нет. Еще вариант формулой, но тоже из за отсутствия запятой будет не точность. Ещё вариант формулой при наличии списка соответствия, это если где то есть весь список фамилий, но тоже если в тексте ошибка, не хватает точки после инициалов тоже будет не точность. А формула без списка соответствия может быть такой
Здравствуйте. Есть вариант с помощью текст по столбцам--не нужные столбцы пропустить-- но результат будет не точный, так как где есть запятая после кафедры, где нет, и после фамилии тоже где есть, где нет. Еще вариант формулой, но тоже из за отсутствия запятой будет не точность. Ещё вариант формулой при наличии списка соответствия, это если где то есть весь список фамилий, но тоже если в тексте ошибка, не хватает точки после инициалов тоже будет не точность. А формула без списка соответствия может быть такой
Спасибо большое за ваши ответы. Тогда возникает другой вопрос, можно ли это сделать с помощью макроса, которому было бы не важно наличие точек, запятых и т.д?
Спасибо большое за ваши ответы. Тогда возникает другой вопрос, можно ли это сделать с помощью макроса, которому было бы не важно наличие точек, запятых и т.д?Inertecs
Function qq$(s$) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[А-ЯЁ][а-яё]+\s{0,}[А-ЯЁ]\s{0,}\.\s{0,}[А-ЯЁ]\.?" qq = .Execute(s)(0) End With End Function
[/vba] И.О - должна быть точка (наличие пробелов допустимо).
[vba]
Код
Function qq$(s$) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[А-ЯЁ][а-яё]+\s{0,}[А-ЯЁ]\s{0,}\.\s{0,}[А-ЯЁ]\.?" qq = .Execute(s)(0) End With End Function
[/vba] И.О - должна быть точка (наличие пробелов допустимо).RAN
zs, если вы так и будете продолжать публиковать формулы без проверки их на данных (почти каждый ваш пост с ошибками, заметьте) - я подниму вопрос о дисциплинарных мерах.
zs, если вы так и будете продолжать публиковать формулы без проверки их на данных (почти каждый ваш пост с ошибками, заметьте) - я подниму вопрос о дисциплинарных мерах.AndreTM
формула пишется под стандартную структуру Следствие: если менять синтаксис условия в каждой строчке, то я не думаю, что нельзя написать универсальную формулу, нужен искусственный интеллект P.S. Потребительские свойства оценивает потребитель. С уважением, zs вопрос не по теме: Фильтр в форуме "По автору темы" не работает (почему-то требует дополнительных букв)
формула пишется под стандартную структуру Следствие: если менять синтаксис условия в каждой строчке, то я не думаю, что нельзя написать универсальную формулу, нужен искусственный интеллект P.S. Потребительские свойства оценивает потребитель. С уважением, zs вопрос не по теме: Фильтр в форуме "По автору темы" не работает (почему-то требует дополнительных букв)zs
zs, под что, под что пишется формула?? И да, правильно формулируйте синтаксис в собственных предложениях, а то смысл фраз иногда теряется...
Вам прямо указано на то, что ваша формула не работает правильно даже в примере с данными. С теми данными, что привёл "потребитель", кстати. Это я ещё про лишний пробел в начале молчу.
zs, под что, под что пишется формула?? И да, правильно формулируйте синтаксис в собственных предложениях, а то смысл фраз иногда теряется...
Вам прямо указано на то, что ваша формула не работает правильно даже в примере с данными. С теми данными, что привёл "потребитель", кстати. Это я ещё про лишний пробел в начале молчу.AndreTM