Доброго времени суток! Столкнулся с такой задачей, необходимо настроить копирование ячеек в заданном диапазоне. Например в столбце A в строке 1 значение ячейки Кроссовки, в строке 2 этого же столбца значение отсутствует и так до 10, необходимо чтобы ячейки с A2 по A10 заполнились значением Кроссовки. Затем в следующей ячейки A11 значение Туфли, но незаполненных ячеек уже 5, нужно чтобы они заполнились и т.д.
Если кто может подсказать как решить подобную задачу, буду оч признателен. Заранее благодарен!
Доброго времени суток! Столкнулся с такой задачей, необходимо настроить копирование ячеек в заданном диапазоне. Например в столбце A в строке 1 значение ячейки Кроссовки, в строке 2 этого же столбца значение отсутствует и так до 10, необходимо чтобы ячейки с A2 по A10 заполнились значением Кроссовки. Затем в следующей ячейки A11 значение Туфли, но незаполненных ячеек уже 5, нужно чтобы они заполнились и т.д.
Если кто может подсказать как решить подобную задачу, буду оч признателен. Заранее благодарен!Neofrommatrix
Выделить все с первого до последнего, Главная - Найти и выделить - Выделение группы ячеек - Пустые ячейки - ОК. Далее пишем =, жмем стрелку вверх и жмем Контрл Ентер (одновременно). Затем опять выделяем все, копируем и вставляем значениями. Макросом можно [vba]
Код
Sub Zapolnenye_Null() Dim n, g n = Selection.Address If Selection.Count > 0 Then On Error GoTo A Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Range(n) = Range(n).Value End If A: Exit Sub End Sub
[/vba] Положить его в Персонал и вывести кнопку на ленту. Иногда нужно запускать его 2 раза подряд (чтобы заполнились самые последние (нижние) данные)
Выделить все с первого до последнего, Главная - Найти и выделить - Выделение группы ячеек - Пустые ячейки - ОК. Далее пишем =, жмем стрелку вверх и жмем Контрл Ентер (одновременно). Затем опять выделяем все, копируем и вставляем значениями. Макросом можно [vba]
Код
Sub Zapolnenye_Null() Dim n, g n = Selection.Address If Selection.Count > 0 Then On Error GoTo A Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Range(n) = Range(n).Value End If A: Exit Sub End Sub
[/vba] Положить его в Персонал и вывести кнопку на ленту. Иногда нужно запускать его 2 раза подряд (чтобы заполнились самые последние (нижние) данные)_Boroda_
После того, как нажали равно, нужно нажать кнопку со стрелочкой вверх Кстати, чтобы заполнились еще и кошёлки, поставьте внизу еще какое-нибудь значение. Иначе не выделяются нижние пустые ячейки
Не совсем понял как выполнить этот:Затем опять выделяем все, копируем и вставляем значениями.
после нажатия Контрл Ентер СНОВА, еще раз, выделяем весь диапазон, копируем его, жамкаем правую кнопку мыши, спецвставка, вставить значения. Это не обязательно, но, если Вы потом будете сортировать свою таблицу (или еще как-нибудь изменять расположение строк), то без вставки значениями у Вас все поедет.
После того, как нажали равно, нужно нажать кнопку со стрелочкой вверх Кстати, чтобы заполнились еще и кошёлки, поставьте внизу еще какое-нибудь значение. Иначе не выделяются нижние пустые ячейки
Не совсем понял как выполнить этот:Затем опять выделяем все, копируем и вставляем значениями.
после нажатия Контрл Ентер СНОВА, еще раз, выделяем весь диапазон, копируем его, жамкаем правую кнопку мыши, спецвставка, вставить значения. Это не обязательно, но, если Вы потом будете сортировать свою таблицу (или еще как-нибудь изменять расположение строк), то без вставки значениями у Вас все поедет._Boroda_
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
