Перенос первых двух слов ячейки в другую

@Суворов · Регистрация: 15.07.2016

Author24 — интернет-сервис помощи студентам

Добрый день, прошу помочь с решением. В столбце содержится разный текст в ячейках. Необходимо вытащить первые два слова в другую ячейку. Ориентиром может служить только пробел. Некоторые слова написаны через тире, если это важно.

@snipe · 15.07.2016, 17:58

а слова через тире
это считать как одно слово или как два

@Суворов · 15.07.2016, 18:06 **[ТС]**

как одно

Ехал грека через реку
Все из-за плохой погоды

надо вытащить : ехал грека
все из-за

@snipe · 15.07.2016, 18:17

Visual Basic

Public Function TwoWords(asd As String) As String
If asd = "" Then TwoWords = "": Exit Function
Do While InStr(1, asd, "  ") > 0
asd = Replace(asd, "  ", " ")
Loop
asd = Trim(asd)
asd = Replace(asd, " - ", "-")
asd = Replace(asd, " -", "-")
asd = Replace(asd, "- ", "-")
Dim a() As String
a = Split(asd, " ")
TwoWords = a(0) & " " & a(1)
End Function

@Суворов · 15.07.2016, 18:20 **[ТС]**

Благодарю!

@pashulka · 15.07.2016, 18:29

Код

=ЛЕВСИМВ(A1;НАЙТИ("$";ПОДСТАВИТЬ(A1;" ";"$";2))-1)

P.S. Если в исходном тексте может встречаться $ , то ориентир можно заменить на более сложный(длинный), а если количество пробелов, разделяющих слова, не всегда = 1, то вместо A1 можно использовать СЖПРОБЕЛЫ(A1)

@snipe · 15.07.2016, 18:34

pashulka,
есть еще грабли - это пробелы вокруг тире

Добавлено через 2 минуты
я понимаю что можно использовать 3 раза функцию Подставить

@pashulka · 15.07.2016, 20:06

snipe, Честно говоря, не увидел в примере - проблем с лишними пробелами вокруг тире

Но если предположить, что они есть, то хватит и двух

Код

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"- ";"-");" -";"-")

@Svsh2015 · 16.07.2016, 13:10

добрый день,Суворов,еще вариант функции uuu в C1

Visual Basic

Function uuu$(t$)
    t = Replace(t, " - ", "-"): t = Replace(t, " -", "-")
    t = Replace(t, "- ", "-")
     With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
    .Pattern = "(?:[^-а-яё\w]|^)[-а-яё\w]+(?=[^-а-яё\w]|$)"
         uuu = Trim(.Execute(t)(0) & Chr(32) & .Execute(t)(1))
    End With
End Function

@Суворов 0 / 0 / 0 Регистрация: 15.07.2016 Сообщений: 3
		1
	Перенос первых двух слов ячейки в другую 15.07.2016, 16:50. Показов 3873. Ответов 8 Метки нет (Все метки) Добрый день, прошу помочь с решением. В столбце содержится разный текст в ячейках. Необходимо вытащить первые два слова в другую ячейку. Ориентиром может служить только пробел. Некоторые слова написаны через тире, если это важно. 0

@snipe 4076 / 1456 / 401 Регистрация: 07.08.2013 Сообщений: 3,630
	15.07.2016, 17:58	2
	а слова через тире это считать как одно слово или как два 0

@Суворов 0 / 0 / 0 Регистрация: 15.07.2016 Сообщений: 3
	15.07.2016, 18:06 [ТС]	3
	как одно Ехал грека через реку Все из-за плохой погоды надо вытащить : ехал грека все из-за 0

@Суворов 0 / 0 / 0 Регистрация: 15.07.2016 Сообщений: 3
	15.07.2016, 18:20 [ТС]	5
	Благодарю! 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	15.07.2016, 18:29	6
	Код =ЛЕВСИМВ(A1;НАЙТИ("$";ПОДСТАВИТЬ(A1;" ";"$";2))-1) P.S. Если в исходном тексте может встречаться $ , то ориентир можно заменить на более сложный(длинный), а если количество пробелов, разделяющих слова, не всегда = 1, то вместо A1 можно использовать СЖПРОБЕЛЫ(A1) 0

@snipe 4076 / 1456 / 401 Регистрация: 07.08.2013 Сообщений: 3,630
	15.07.2016, 18:34	7
	pashulka, есть еще грабли - это пробелы вокруг тире Добавлено через 2 минуты я понимаю что можно использовать 3 раза функцию Подставить 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	15.07.2016, 20:06	8
	snipe, Честно говоря, не увидел в примере - проблем с лишними пробелами вокруг тире Но если предположить, что они есть, то хватит и двух Код =ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"- ";"-");" -";"-") 1

	16.07.2016, 13:10