удаление после 3 пробела / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / удаление после 3 пробела

23 сообщений из 23, страница 1 из 1

удаление после 3 пробела

#37448619

SergofAN

Гость

Добрый день.
Помогите написать макрос или подскажите функцию для того что бы в строке Excel удалить все сиволы после 3 пробела (после ФИО). Т.е. нужно оставить только ФИО
Например:
1.Иванов иван Иванович 1ненужные символы
2.Петров Иван Иванович 2ненужный текст
3.Козлов Олег Петрович 3ненужный текст

...

Рейтинг:

0 / 0

20.09.2011, 18:12

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448680

kuklp

Гость

SergofAN,

Код: plaintext

1.
2.
3.

Public Function CutStr(s$) As String
    Dim a: a = Split(s, " ",  4 )
    a( 3 ) = "": CutStr = Join(a, " ")
End Function

...

Рейтинг:

0 / 0

20.09.2011, 18:43

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448753

SergofAN

Гость

kuklp, Спасибо.

...

Рейтинг:

0 / 0

20.09.2011, 19:30

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448774

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

kuklp, и как этим пользоваться??
если даже так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Sub Удаление_после_третьего_пробела_до_конца_строки()

    Dim s As String
    s = "Фамилия Имя Отчество Лишнее"
    CutStr s$
    Dim Строка_после_обработки As String
    Строка_после_обработки = s

End Sub

Лишнее на месте

...

Рейтинг:

0 / 0

20.09.2011, 19:43

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448793

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ципихович Эндрю,

Читать учебник! Вот сколько раз можно повторять. Первые страницы. Что такое процедура, что такое функция.

...

Рейтинг:

0 / 0

20.09.2011, 19:58

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448795

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Вот сколько можно, два года сидит на форуме, умничает, считает себя программистом, не может понять двух элементарных строк.

...

Рейтинг:

0 / 0

20.09.2011, 19:59

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448798

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Еще находит в себе наглость кого-то консультировать.

Отныне на подотчетном мне форуме консультирование Ципиховичем других участников запрещено! (до прочтения и осознания основ программирования на VB(A). Сообщения будут удаляться, консультироване караться баном.

Прошу прощения у уважаемых участников. Накипело.

...

Рейтинг:

0 / 0

20.09.2011, 20:03

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448801

Ужас.....

Гость

Ципихович Эндрю,

Кто Вас вообще к VBA допустил :((

...

Рейтинг:

0 / 0

20.09.2011, 20:05

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448919

kuklp

Гость

Ципихович Эндрю, например(в моем примере я показал как, но на Вашем):

Код: plaintext

1.
2.
3.
4.

Sub Удаление_после_третьего_пробела_до_конца_строки()
    Dim s As String
    s = "Фамилия Имя Отчество Лишнее"
    s=CutStr s$
End Sub

...

Рейтинг:

0 / 0

20.09.2011, 21:48

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448923

kuklp

Гость

kuklp, извиняюсь, косяк:
s = CutStr(s)

...

Рейтинг:

0 / 0

20.09.2011, 21:51

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448955

Михаил Ч.

Гость

Формула:

Код: plaintext

=ЛЕВСИМВ(A1;ПОИСК("!";ПОДСТАВИТЬ(A1&"!";" ";"!";3))-1)

...

Рейтинг:

0 / 0

20.09.2011, 22:23

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448960

скукотища

Гость

ПОЛУОФФ

Фамилия+более одного пробела+Имя+побел+...Отчество станивится "лишним"

...

Рейтинг:

0 / 0

20.09.2011, 22:26

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448968

kuklp

Гость

скукотища, именно это не проблема.

Код: plaintext

1.
2.
3.

Public Function CutStr(s$) As String
    Dim a: a = Split(trim(s), " ",  4 )
    a( 3 ) = "": CutStr = Join(a, " ")
End Function

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

...

Рейтинг:

0 / 0

20.09.2011, 22:39

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37448981

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

kuklp, скукотища

Тупо и не глядя

Код: plaintext

=ЕСЛИ(ЕЧИСЛО(ПОИСК(" ";СЖПРОБЕЛЫ(A1);ПОИСК(" ";СЖПРОБЕЛЫ(A1);ПОИСК(" ";СЖПРОБЕЛЫ(A1))+ 1 )+ 1 ));ЛЕВСИМВ(СЖПРОБЕЛЫ(A1);ПОИСК(" ";СЖПРОБЕЛЫ(A1);ПОИСК(" ";СЖПРОБЕЛЫ(A1);ПОИСК(" ";СЖПРОБЕЛЫ(A1))+ 1 )+ 1 )- 1 );СЖПРОБЕЛЫ(A1))

...

Рейтинг:

0 / 0

20.09.2011, 23:01

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449005

kuklp

Гость

Я не формулист, но что-то мне подсказывает... СЖПРОБЕЛЫ(A1) никак нельзя вынести за общие скобки?
И еще. Будь у меня выбор, я бы воспользовался ЮДФ. Скорость не мерял, но по весу точно бы выиграл.
AndreTM, не подумайте, я ни в коем случае не утверждаю что Ваша формула хуже. Наоборот, я бы на такое не спромогся(ну или очень долго рожал бы):-)

...

Рейтинг:

0 / 0

20.09.2011, 23:41

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449028

vikttur

Участник

Сообщения: 1 079

Рейтинг: 0 / 0

AndreTM, то, что предложил Михаил Ч., уже не модно? :)

...

Рейтинг:

0 / 0

21.09.2011, 00:22

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449062

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

vikttur,

Ну, это тоже было предложено не для постоянного использования, как вы заметили...

Я просто хотел показать ТС, что его задача решается и без каких-то хитростей - прямо и по порядку так, как он пишет в вопросе. Другое дело, если бы автор более подробно рассказал, зачем это нужно - может, у него там миллионы записей, или критично время обработки, или это приходится проделывать постоянно и на многих выборках...

...

Рейтинг:

0 / 0

21.09.2011, 03:09

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449074

скукотища

Гость

kuklpскукотища, именно это не проблема.

Код: plaintext

1.
2.
3.

Public Function CutStr(s$) As String
    Dim a: a = Split(trim(s), " ",  4 )
    a( 3 ) = "": CutStr = Join(a, " ")
End Function

Именно это проблема.

Код: plaintext

?CutStr("Иванов    Иван Иваныч надевает штаны на ночь")
Иванов  Иван

ИМХО, разумеется. Формально Ваша фунция соответствует названию топика.

...

Рейтинг:

0 / 0

21.09.2011, 04:35

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449157

kuklp

Гость

скукотища, пробуем:

Код: plaintext

1.
2.
3.
4.

Public Function CutStr(s$) As String
    Dim a: a = Split(Application.Trim(s), " ",  4 )
    a( 3 ) = "": CutStr = Join(a, " ")
End Function

Но, как я уже писал, на все косяки не перестрахуешься. Вместо пробелов может быть неразрывный пробел(Chr(160)), vblf, порядок может быть другой и т.д.

...

Рейтинг:

0 / 0

21.09.2011, 08:54

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449250

novexelf

Гость

скукотища,

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Public Function CutStr (strIn as String) as String
	Dim strResult as String
	
	strResult = Trim(strIn)
	
	Do While (InStr(strResult, "  ") >  0 )
		strResult = Replace(strResult, "  ", " ")
	Loop
	
	Dim strSplit
	strSplit = Split(strResult, " ",  4 )
	strSplit( 3 ) = ""
	CuStr = Join(strSplit, " ")	
End Function

...

Рейтинг:

0 / 0

21.09.2011, 10:13

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37449287

Игорь Горбонос

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: Shocker.Pro

OFF> +
> Отныне на подотчетном мне форуме консультирование Ципиховичем других участников запрещено! (до прочтения и
> осознания основ программирования на VB(A). Сообщения будут удаляться, консультироване караться баном.

А каковы критерии проверки Shocker.Proдо прочтения и осознания основ программирования на VB(A)

?

P.S. Я риторически интересуюсь, просто хорошее настроение после утреннего кофе

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

21.09.2011, 10:36

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37451097

Atey

Гость

Еще можно -«текст по столбцам» (или как он там правильно), разделитель знак пробела, а там удалить ненужное и слить нужные.

...

Рейтинг:

0 / 0

22.09.2011, 10:12

| Ответить | Цитировать | Написать

удаление после 3 пробела

#37454345

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Ципихович Эндрюkuklp, и как этим пользоваться??
если даже так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Sub Удаление_после_третьего_пробела_до_конца_строки()

    Dim s As String
    s = "Фамилия Имя Отчество Лишнее"
    CutStr s$
    Dim Строка_после_обработки As String
    Строка_после_обработки = s

End Sub

Лишнее на месте
Модератор:
ЦЭ, ты очень неудачно встрял. Месяц читаем книги.

...

Рейтинг:

0 / 0

23.09.2011, 20:22

| Ответить | Цитировать | Написать

23 сообщений из 23, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / удаление после 3 пробела

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tid=2176471]:	0ms
get settings:	6ms
get forum list:	9ms
check forum access:	2ms
check topic access:	2ms
track hit:	184ms
get topic data:	6ms
get forum data:	1ms
get page messages:	32ms
get tp. blocked users:	1ms
others:	202ms

total:	445ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы