Сцепить должность и ФИО в родительном падеже.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сцепить должность и ФИО в родительном падеже. (Макросы/Sub)

ekut

Дата: Воскресенье, 29.05.2022, 08:06 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Уважаемые Екселисты, помогите! Есть ли возможность сократить путь и избавиться от четырех столбцов? У меня здесь и макрос и формулы! Благодарю заранее!!!!!

К сообщению приложен файл: 9885061.xls (90.0 Kb)

Ответить

bmv98rus

Дата: Воскресенье, 29.05.2022, 17:05 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Сделайте отдельную функцию
[vba]

Код

Function j(ByRef Arr As Range) As String
Arr1 = Arr
For i = LBound(Arr1, 1) To UBound(Arr1, 1)
j = j & "; " & LCase(left(Arr1(i, 1),1)) & Mid(SklonDoljn(Arr1(i, 1), "Rod"), 2) & " - " & SklonDoljn(Arr1(i, 2), "Rod")
Next
j = Mid(j, 3)
End Function

[/vba]
На вход ваши два столбца с значениями.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Воскресенье, 29.05.2022, 21:43

Ответить

ekut

Дата: Воскресенье, 29.05.2022, 19:08 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Спасибо большое за ответ, но немного с ошибками отрабатывает!

К сообщению приложен файл: 7345351.xls (126.5 Kb)

Ответить

bmv98rus

Дата: Воскресенье, 29.05.2022, 19:14 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Я выше исправил.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

ekut

Дата: Воскресенье, 29.05.2022, 19:24 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Со строки j всю выделил красным цветом, не работает....

К сообщению приложен файл: 0888001.png (177.6 Kb)

Сообщение отредактировал ekut - Воскресенье, 29.05.2022, 20:00

Ответить

bmv98rus

Дата: Воскресенье, 29.05.2022, 21:43 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

; на , замените.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

ekut

Дата: Понедельник, 30.05.2022, 07:24 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Михаил, спасибо огромное!!! Если не трудно, подскажите, как изменится макрос, если между заполненных строк с будут пустые строки? Еще раз спасибо огромное!!!

К сообщению приложен файл: 6746313.png (167.3 Kb)