заполнить пустые ячейки - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/заполнить пустые ячейки - Мир MS Excel

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

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

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

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

Дата: Среда, 18.07.2012, 15:07 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 117

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

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

Коллеги, снова здравствуйте !

Возвращаюсь к Вам с очередной просьбой\вопросом.

Мне часто приходится протягивать пустые ячейки при копировании сводной таблицы ( вставить как значение )
Я записал макрос, но он работает только с конкретным файлом, в точности повторяя мои действия.

Что нужно мне :

Что бы по он срабатывал в той ячейке куда я нажимаю.

Как делаю я:
1. фильтр по пустому значению ( столбец cool

cool

( начинаю с левой части таблицы т.к. там подряд идут цифры )
2. Нахожу конец диапазона ( обозначаю его)
3. пишу простую формулу =В2 ( в первой пустой ячейке отфильтрованного диапазона В3)
4. протягиваю эту формулу до конца диапазона.

Один столбец готов ( обычно 3-4 столбца )

во вложении полная таблица.

К сообщению приложен файл: 123321.xls (30.5 Kb)

bigqpp
скайп

Сообщение отредактировал qpp - Среда, 18.07.2012, 15:09

Ответить

Дата: Среда, 18.07.2012, 15:15 | Сообщение № 2

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

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

Сообщений: 16743

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

я себе в персонал кинул такой макрос и кнопку вывел
[vba]

Code

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

[/vba]
Можно несколько столбцов сразу
Предварительно выделить то, что нужно заполнить.
Если нижние пустые ячейки не заполнились - нажать еще раз.

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

Ответить

Дата: Среда, 18.07.2012, 15:29 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

1. Выделаете ячейку диапазона (для этого примера можно любую, для других - левую верхнюю пустую) - F5 - Выделить - Пустые ячейки - ОК - с клавиатуры нажимаете знак = - стрелка вверх - Ctrl+Enter
2. Ставьте Excel 2010. Тогда будет возможность повторять значения строк прямо в сводной, соответственно

Quote (qpp)

при копировании сводной таблицы ( вставить как значение )

делать ничего не надо будет, таблица будет уже заполнена

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 18.07.2012, 15:32 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 117

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

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

Но если у меня в столбце несколько данных, то этот макрос не срабатывает, а тянет только первое значение... Перебивая остальные.

Стоит 2007 корпоративный ( никто мне 10-ый не поставит)

За комбинацию спасибо

хорошо что в детстве играл в Мортал Комбат ( это тянет на АНИМАЛИТИ !!)

bigqpp
скайп

Сообщение отредактировал qpp - Среда, 18.07.2012, 15:35

Ответить

Дата: Среда, 18.07.2012, 15:39 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 117

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

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

Я задам вопрос в этой же теме, возможно вы мне подскажите.

У меня есть 30 файлов одинаковых по структуре ( столбцы) но разные по содержанию.

Можно ли в екселе их быстро схлопнуть в один файл (желательно что бы еще напротив каждой строки писал название файла из которого это подтянуто)?

сейчас делаю через Аксес

bigqpp
скайп

Ответить

Дата: Среда, 18.07.2012, 15:58 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 117

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

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

я ставил фильтр по пустым.

теперь разобрался, если его не ставить все работает !

Я очень хочу научится писать макросы, это облегчает жизнь на работе ! ! !

bigqpp
скайп

Ответить

Дата: Среда, 18.07.2012, 17:05 | Сообщение № 7

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

Ранг: Форумчанин

Сообщений: 117

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

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

Я позволю задать себе еще один вопрос

как сделать

так что бы это работало не только по столбцу В

А по любому мной выделенному диапазону ?

bigqpp
скайп

Ответить

Дата: Среда, 18.07.2012, 17:09 | Сообщение № 8

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

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

Сообщений: 16743

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Code

Sub Макрос1()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

[/vba]

или еще проще
[vba]

Code

Sub Макрос1()
Selection = Selection.Value
End Sub

[/vba]

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

Ответить

Дата: Среда, 18.07.2012, 17:35 | Сообщение № 9

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

Ранг: Форумчанин

Сообщений: 117

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

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

Спасибо.

И последний вопрос на сегодня.

Аналогичный, как сделать это без привязки к конкретной ячейки, книге?

Т.е. я навожу на ячейку и в ней появляются ВПР на соседнее значение в этой строке ( справа)
т.к. много файлов привязано как раз к справочнику, и я постоянно впр-ю одно и тоже .

[vba]

Code

Sub Макрос2()
'
' Макрос2 Макрос
'

'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'[Справочник Общий (ПЕРЕКОД).xlsx]ТН_вп'!C1:C2,2,0)"
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3],'[Справочник Общий (ПЕРЕКОД).xlsx]Бренд_город'!C1:C2,2,0)"
Range("F3").Select
End Sub

[/vba]

bigqpp
скайп

Сообщение отредактировал qpp - Среда, 18.07.2012, 17:43

Ответить

Дата: Среда, 18.07.2012, 18:04 | Сообщение № 10

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

Ранг: Форумчанин

Сообщений: 117

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

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

я прошу прощения, уже перегрелся, все работает !

Спасибо еще раз !

bigqpp
скайп

Ответить

Дата: Понедельник, 27.10.2014, 18:37 | Сообщение № 11

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2010

Здравствуйте,

Цитата _Boroda_, 18.07.2012 в 17:09, в сообщении № 8

Sub Макрос1()
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

или еще проще
Sub Макрос1()
Selection = Selection.Value
End Sub

к сожалению не работает.
[moder]К сожалению, не работает только у вас. И, поскольку мы файла вашего не видим, то, скорее всего, так и не заработает.
Кстати, если вдруг желание возникнет разобраться, то сразу отсылаю к Правилам форума - создавайте свою тему.

Сообщение отредактировал _Boroda_ - Понедельник, 27.10.2014, 23:35

Ответить

Дата: Понедельник, 27.10.2014, 18:40 | Сообщение № 12

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

Ранг: Экселист

Сообщений: 9032

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

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

Excel 2010

Копипаст не работает?

А при чем здесь:

Цитата

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

ЮMoney 41001841029809

Ответить

Дата: Пятница, 19.05.2017, 04:44 | Сообщение № 13

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

добрый день!
все делаем как вы и посоветовали, выделяем пустые, нажимаем = стрелка вверх - Ctrl+Enter, происходит заполнение пустых ячеек значением номера вышестоящей ячкейки по левому столбцу. что делаем не так?

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

понедельник начинается в субботу...жаль что суббота не начинается в понедельник))

Ответить

Дата: Пятница, 19.05.2017, 10:04 | Сообщение № 14

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

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

Сообщений: 931

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

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

Excel 2007

katrin_z,
Прежде чем делать эти манипуляции, смените формат ячеек всего диапазона с текстового на общий.

"Учиться, учиться и еще раз учиться!"
WM: R399923528092

Ответить

Дата: Понедельник, 22.05.2017, 00:01 | Сообщение № 15

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

спасибо огромное!

понедельник начинается в субботу...жаль что суббота не начинается в понедельник))

Ответить

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

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

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!