Разбить текст на столбцы?

Fairuza · Регистрация: 23.11.2010

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

Возможно ли разбить текст на столбцы, если нет разделителя. В столбце сплошным текстом ФамилияИмяОтчество, можно как-то это разделить?

@solar_wind · 18.08.2011, 08:32

Что пришло пока в голову
1. Можно, написав распознаватель на VBA
2. Составить таблицу приписных символов, сделать формулу замены прописных символов на пробел+символ. Разбить оп разделителю

@Persk · 18.08.2011, 08:39

Попробуйте написать ФИО в разных столбцах: фамилия в первом (А столбец), имя во втором (В столбец), отчество в третьем (С столбец), а в верхней строке (№1) что наподобие шапки с названиями столбцов сделать или пропишите ФИО в одном столбце: указатель мыши (чёрный крестик) между В и С (между названиями столбцов), левая кнопка мыши, передвигаем вправо, пока не получим нужной ширины столбец

@solar_wind · 18.08.2011, 08:43

Persk1976, Если бы ты посмотрел пример файла, то не думал бы что автор поста полный даун )
Я так понимаю таких записей может быть несколько тысяч, ты их руками никак не разделишь тогда...

Fairuza · 18.08.2011, 08:45 **[ТС]**

Спасибо всем! Придумала, правда немного муторно, но все-таки. Сделала заменить с учетом регистра, например А на _А, а потом _ использовать как разделитель.

Евгений М. · 18.08.2011, 09:06

Добавьте модуль в редакторе VBA
и впишите следующий код:

Visual Basic

Function MySplit(ByVal str As String, ByVal n As Integer) As String
 
Dim Uc, c, r As String
Dim ni As Integer
 
Uc = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
ni = 1
 
If Len(str) = 0 Then
    MySplit = ""
    Exit Function
End If
 
For i = 1 To Len(str)
    c = Mid(str, i, 1)
    If InStr(1, Uc, c) <> 0 Then
        If ni > n Then
            MySplit = r
            Exit Function
        Else
            ni = ni + 1
            r = ""
        End If
    End If
    r = r & c
 
Next i
 
End Function

Как использовать? Пишем формулу:
=MySplit(B2, 1) - для вывода Ф
=MySplit(B2, 2) - для вывода И
=MySplit(B2, 2) - для вывода О

Добавлено через 22 секунды
Ой, опоздал

Добавлено через 2 минуты

Сообщение от Евгений М.

Добавьте модуль в редакторе VBA

Для этого в Яндексе: "Создание пользовательских функций на VBA"

@Serge 007 · 18.08.2011, 23:55

Сообщение от Евгений М.

Добавьте модуль в редакторе VBA
и впишите следующий код...

Без макросов (см. вложение).

Сообщение от Евгений М.

Для этого в Яндексе: "Создание пользовательских функций на VBA"

Без Яндекса

http://www.excelworld.ru/publ/... /28-1-0-77

@solar_wind 770 / 760 / 59 Регистрация: 06.07.2009 Сообщений: 3,021
	18.08.2011, 08:32	2
	Что пришло пока в голову 1. Можно, написав распознаватель на VBA 2. Составить таблицу приписных символов, сделать формулу замены прописных символов на пробел+символ. Разбить оп разделителю 0

@Persk Модератор 8736 / 3361 / 244 Регистрация: 25.10.2010 Сообщений: 13,601
	18.08.2011, 08:39	3
	Попробуйте написать ФИО в разных столбцах: фамилия в первом (А столбец), имя во втором (В столбец), отчество в третьем (С столбец), а в верхней строке (№1) что наподобие шапки с названиями столбцов сделать или пропишите ФИО в одном столбце: указатель мыши (чёрный крестик) между В и С (между названиями столбцов), левая кнопка мыши, передвигаем вправо, пока не получим нужной ширины столбец 0

@solar_wind 770 / 760 / 59 Регистрация: 06.07.2009 Сообщений: 3,021
	18.08.2011, 08:43	4
	Persk1976, Если бы ты посмотрел пример файла, то не думал бы что автор поста полный даун ) Я так понимаю таких записей может быть несколько тысяч, ты их руками никак не разделишь тогда... 1

Fairuza 6004 / 3199 / 716 Регистрация: 23.11.2010 Сообщений: 10,687
	18.08.2011, 08:45 [ТС]	5
	Спасибо всем! Придумала, правда немного муторно, но все-таки. Сделала заменить с учетом регистра, например А на _А, а потом _ использовать как разделитель. 0

	18.08.2011, 23:55