Добрый день. Помогите, пожалуйста, разобраться. В столбике "A" много пробелов, необходимо подставить в пустую ячейку предыдущее число. Другими словами - число в ячейке: A6,A7,A8 - должно стать таким же как и в ячейке А5. Заранее спасибо =)
Добрый день. Помогите, пожалуйста, разобраться. В столбике "A" много пробелов, необходимо подставить в пустую ячейку предыдущее число. Другими словами - число в ячейке: A6,A7,A8 - должно стать таким же как и в ячейке А5. Заранее спасибо =)ShaD
Выделяем столбец А - F5 (или Главная - Найти и выделить - Группу ячеек) - Выделить - Пустые ячейки - набираем на клавиатуре = и жмем стрелку вверх - жмем одновременно Контрл Ентер. Снова выделяем столбец А - копируем - Спецвставка - Значения. Затем удаляем лишнее снизу (если оно вдруг есть).
Или простенький макрос [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]
Выделяем столбец А - F5 (или Главная - Найти и выделить - Группу ячеек) - Выделить - Пустые ячейки - набираем на клавиатуре = и жмем стрелку вверх - жмем одновременно Контрл Ентер. Снова выделяем столбец А - копируем - Спецвставка - Значения. Затем удаляем лишнее снизу (если оно вдруг есть).
Или простенький макрос [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