Добрый день! я надеюсь, что Вы мне поможете. Из-за простоты задачи решение кажется легким. Мне что не так уж много людей, которые сполтычка могут сказать, что же надо делать. Все очень просто есть формула. =ЕСЛИ(ЕНЕТЕКСТ(ппп);МИН(ррр:ппп);ППП) Есть массив с пустыми строками между фамилиями
Фамилия может быть одной, а может быть две. Это связано с тем, что эта таблица соединение двух и автоматическая разбивка по фамилиям Кому надо я могу прислать эти макросы [moder]Это Вам надо. Или нет? Правила форума прочитайте. Исправьте п.2 и п.3.[/moder] [moder]п.3 поправили. Прекрасно. Остался п.2 - как-нибудь попонятнее кратко опишите проблему.
Добрый день! я надеюсь, что Вы мне поможете. Из-за простоты задачи решение кажется легким. Мне что не так уж много людей, которые сполтычка могут сказать, что же надо делать. Все очень просто есть формула. =ЕСЛИ(ЕНЕТЕКСТ(ппп);МИН(ррр:ппп);ППП) Есть массив с пустыми строками между фамилиями
Фамилия может быть одной, а может быть две. Это связано с тем, что эта таблица соединение двух и автоматическая разбивка по фамилиям Кому надо я могу прислать эти макросы [moder]Это Вам надо. Или нет? Правила форума прочитайте. Исправьте п.2 и п.3.[/moder] [moder]п.3 поправили. Прекрасно. Остался п.2 - как-нибудь попонятнее кратко опишите проблему.stasil
Спасибо Вам! Только я вряд ли смогу это сделать. Макрос с помощь которого я отбираю фамилии, объясните пожалуйста куда здесь надо вставить формулу, которая будет в пустых ячейках:
[vba]
Код
Sub Procedure_2()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(i, "A").Value <> Cells(i - 1, "A").Value Then Rows(i).Insert Shift:=xlDown End If Next i
Application.ScreenUpdating = True
MsgBox "ок", vbInformation
End Sub
[/vba] [moder] Пользуйтесь спецтегами оформления. Для кода макроса это кнопка #
Pelena,
Спасибо Вам! Только я вряд ли смогу это сделать. Макрос с помощь которого я отбираю фамилии, объясните пожалуйста куда здесь надо вставить формулу, которая будет в пустых ячейках:
[vba]
Код
Sub Procedure_2()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(i, "A").Value <> Cells(i - 1, "A").Value Then Rows(i).Insert Shift:=xlDown End If Next i
Application.ScreenUpdating = True
MsgBox "ок", vbInformation
End Sub
[/vba] [moder] Пользуйтесь спецтегами оформления. Для кода макроса это кнопка #stasil
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
