Пустые ячейки и их заполнение...

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

Пустые ячейки и их заполнение... (Формулы/Formulas)

Snake1501

Дата: Четверг, 30.04.2015, 16:13 | Сообщение № 1

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

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

Сообщений: 48

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

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

Excel 2010

КАК быстро заполнить ячейки B,C.D - по шине, G,H,I- по маховику, L,M,N - болт пример во вложение без копирования основного значения в эти ячейки.

Может кто то подскажет формулу....

В данном случае 3 номенклатуры, а у меня их от 200 - 5000....

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

Ответить

ShAM

Дата: Четверг, 30.04.2015, 16:23 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1347

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

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

Excel 2010

Выделяете A1:S1, жмете F5 - Выделить - пустые ячейки - ОК. Пишете

Код

=A1

Жмете Ctrl/Enter. Выделяете A1:S1 - Копировать - Специальная вставка - Значения - ОК.

Ответить

Snake1501

Дата: Четверг, 30.04.2015, 16:32 | Сообщение № 3

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

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

Сообщений: 48

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

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

Excel 2010

ShAM, что то не получается

Ответить

DJ_Marker_MC

Дата: Четверг, 30.04.2015, 16:52 | Сообщение № 4

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

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

Сообщений: 991

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

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

Excel 2019

Добрый вечер.
Файл приложил.
Формула в желтой и в зеленых отличаются.

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

Ответить

ShAM

Дата: Пятница, 01.05.2015, 05:06 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 1347

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

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

Excel 2010

Цитата Snake1501, 30.04.2015 в 16:32, в сообщении № 3

ShAM, что то не получается

Что именно не получается? На каком этапе?
Хотя у DJ_Marker_MC наглядно и проще для понимания.

Ответить

DJ_Marker_MC

Дата: Пятница, 01.05.2015, 22:23 | Сообщение № 6

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

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

Сообщений: 991

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

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

Excel 2019

Ну или тоже самое что предложил ShAM но простым нажатием на кнопку СТАРТ )))

[vba]

Код

Sub Макрос1()
Application.ScreenUpdating = False
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 4
On Error Resume Next
Range(Cells(1, 1), Cells(1, lLastCol)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-1]"
[A10].Select
Application.ScreenUpdating = True
End Sub

[/vba]

Последнее значение заполняется на +4 столбца, поскольку не известно сколько нужно.

К сообщению приложен файл: marker.xlsm (17.2 Kb)

Ответить

Snake1501

Дата: Вторник, 05.05.2015, 09:56 | Сообщение № 7

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

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

Сообщений: 48

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

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

Excel 2010

DJ_Marker_MC, спасибо большое)))) hands

Ответить

Пустые ячейки и их заполнение... (Формулы/Formulas)

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