Как вставить пробел в ячейку по критерию.

Пользователь

Сообщений: 2 Регистрация: 01.01.1970

12.09.2012 15:26:32

Доброго времени суток уважаемые гуру EXCELя. Столкнулся с проблемой: имеется столбец с ФИО, где фамилия и имя слились. Нужно расцепить. Фамилия написана большими буквами, а имя с большой, остальные маленькие. Пример: ИВАНОВИван Иванович. Помогите пожалуйста расцепить фамилию и имя, не знаю как это сделать.

ber$erk

Пользователь

Сообщений: 2735 Регистрация: 25.12.2012

12.09.2012 15:46:35

Создайте кнопку и прицепите ей макрос

Sub ПУСК()
Dim i As Long
RUSSIAN = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩ"

For Each iCEll In Selection
If Not IsEmpty(iCEll) Then
i = 1

Do While (i < Len(iCEll.Value)) And (InStr(1, RUSSIAN, Mid(iCEll.Value, i, 1)) > 0)
i = i + 1
Loop

If (i <> Len(iCEll.Value)) And (i > 2) Then
iCEll.Offset(, 1).Value = Mid(iCEll.Value, 1, i - 2) + " " + Mid(iCEll.Value, i - 1)
End If
End If
Next
End Sub

Выделяете ячейки и запускаете.
________________________
khafizovtt@gmail.com

Учимся сами и помогаем другим...

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

12.09.2012 15:51:10

=ЛЕВСИМВ(A1;МИН(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(1:15);1))>223;СТРОКА(1:15);100))-2) & " " & ПСТР(A142;МИН(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(1:15);1))>223;СТРОКА(1:15);100))-1;100)

формула массива

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

12.09.2012 15:55:06

{quote}{login=ikki}{date=12.09.2012 03:51}{thema=}{post}=ЛЕВСИМВ(A1;МИН(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(1:15);1))>223;СТРОКА(1:15);100))-2) & " " & ПСТР(A142;МИН(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(1:15);1))>223;СТРОКА(1:15);100))-1;100){/post}{/quote}
забыл в одном месте поправить:
=ЛЕВСИМВ(A1;МИН(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(1:15);1))>223;СТРОКА(1:15);100))-2) & " " & ПСТР(A1;МИН(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА(1:15);1))>223;СТРОКА(1:15);100))-1;100)

впрочем, макросом лучше.

frizzyag Пользователь Сообщений: 2 Регистрация: 01.01.1970	#5 12.09.2012 17:33:56 Макрос работает, громадное спасибо.

a Гость	#6 12.09.2012 17:39:42 еще макрос: Function test(s As String) As String Dim i As Long, iLen As Long iLen = Len(s): test = s Do i = i + 1 If Mid(s, i, 1) Like "[а-я]" Then If i > 2 Then test = Left(s, i - 2) & " " & Mid(s, i - 1) Exit Do End If Loop Until i > iLen End Function

Читают тему