Формула аналог растянуть с имеющимися значениями

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула аналог растянуть с имеющимися значениями (Формулы)

yunir86

Дата: Понедельник, 16.12.2013, 14:08 | Сообщение № 1

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

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

Сообщений: 21

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

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

Excel 2007

Здравствуйте Господа, вопрос такой имеется таблица с пустыми строками А3:E19, A21:E30 и т.д. Необходимо их заполнить как A2:E2 и A20:E20 соответственно, пример во вложении. Как есть и как должно стать во вкладках. Можно конечно выделять диапазон A2:E2 и растягивать его до следующей записи. потом опять выделять A20:E20 и растягивать до следующей записи. Можно ли это как нибудь сделать автоматически. спасибо

К сообщению приложен файл: _01.12.2013-16..xlsx (15.2 Kb)

Сообщение отредактировал yunir86 - Понедельник, 16.12.2013, 14:14

Ответить

_Boroda_

Дата: Понедельник, 16.12.2013, 14:16 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

1. Выделяете А2:Е51
2. Главная - Найти и выделить - Выделить группу ячеек - Пустые ячейки
3. набиваем с клавиатуры равно и жмем стрелку вверх
4. Жмем Контрл Ентер
5. выделяем А1:Е51, копируем, вставляем значениями
Все это безобразие я записал в макрос, положил в Персонал и повесил себе на кнопку
[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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула аналог растянуть с имеющимися значениями (Формулы)

Страница 1 из 1
1