Формула для подстановки данных в столбце

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

Формула для подстановки данных в столбце (Формулы/Formulas)

alexp21

Дата: Вторник, 05.08.2014, 11:45 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

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

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

Здравствуйте, помогите пожалуйста с формулой, в прикреплении, табличка, в столбце "В" ячейки с номерами и пустые ячейки, Нужно чтобы формула заполняла пустые ячейки номерами взятыми из верхней ячейки, до тех пор пока не дойдет до следующего номера, На Листе 2 показан готовый результат того что должно получиться в итоге.
Спасибо.

К сообщению приложен файл: 6721075.xlsx (11.5 Kb)

Ответить

ArkaIIIa

Дата: Вторник, 05.08.2014, 11:48 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 894

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

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

2010

alexp21
А потыкать в правый нижний угол выделенной ячейки (ну там такой квадратик черный) - не вариант?

Ответить

_Boroda_

Дата: Вторник, 05.08.2014, 11:50 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16913

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Выделить В4:В34, Главная - Найти и выделить - Выделение группы ячеек - пустые. Пишете равно и жмете стрелку вверх, затем жмете Контрл + Ентер. Потом опять выделяете весь диапазон, копируете и вставляете значениями
все это макросом если, то так[vba]

Код

Sub Zapolnenye_Null()
On Error GoTo A
     n = Selection.Address
     If Range(n).Cells.Count - 1 Then
         Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
         Range(n) = Range(n).Value
     End If
A:     Exit Sub
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995