PDA

Показать полную графическую версию : [решено] EXCEL Заполнить выделенный столбец


Profile
07-12-2019, 03:36
Доброго времени суток всем.
...вижу, что тема заезженная, но так и не нашел подходящего способа для себя.
Впервые столкнулся с большим документом, раньше как-то не заморачивался на вставках.
Документ огромнейший, таскать ползунок вниз - вообще не вариант, самое меньшее тысяч 10 строк, с адресной строкой - тоже как-то не очень.
Может все таки есть какой-нит вариант типа ctrl+C ctrl+V?
...работаю с office 2007.
Посоветуйте пожалуйста.
Спасибо.)

Iska
07-12-2019, 07:11
Profile, сам документ, упаковав его в архив, я полагаю, Вы не выложите, так?

Что именно из этого:
https://i.imgur.com/zvag3RL.png
Вы подразумеваете под «заполнить»?

Самое простое (но не единственное): быстрая навигация по Рабочему листу — Ctrl-стрелки, с одновременным выделением — Ctrl-Shift-стрелки. А так:
Keyboard shortcuts in Excel - Office Support (https://support.office.com/en-us/article/keyboard-shortcuts-in-excel-1798d9d5-842a-42b8-9c99-9b7213f0040f?ui=en-US&rs=en-US&ad=US)
Excel Spreadsheets: Navigation, shortcut keys, data sort and filter, formulas and functions | PCWorld (https://www.pcworld.com/article/3211436/excel-spreadsheets-navigation-shortcut-keys-data-sort-and-filter-formulas-and-functions.html)
The Complete Guide on Navigation Shortcut Keys In Excel (https://www.financewalk.com/keyboard-shortcuts-excel-navigation/)
и т.п.

Ну, и, до кучи: 7 Excel tips for huge spreadsheets: Split Screen, Freeze Panes, Format Painter and more | PCWorld (https://www.pcworld.com/article/3153964/7-excel-tips-for-huge-spreadsheets-split-screen-freeze-panes-format-painter-and-more.html).

Profile
07-12-2019, 14:26
ну конечно же Ctrl+D!!!!!
Спасибо вам большое.

Iska
07-12-2019, 14:50
Profile, честно говоря, не понял, как Вам поможет Ctrl-D вместо таскания ползунков:
таскать ползунок вниз - вообще не вариант, самое меньшее тысяч 10 строк, »
Я полагал, что у Вас проблема именно с выделением потребных диапазонов, а так-то Ctrl-D/Ctrl-R вроде как общеизвестные сочетания.

Profile
08-12-2019, 00:21
Эх рано радовался.
...пока "ctrl+shift-стрелкавниз" не начала упирается в какие нибудь данные в столбце.
Просто я использую фильтры и мне надо выделить столбец и забить его числами, не обращая внимания на то есть там какие-нибудь другие данные или нет, т.е. другими словами перезаписать весь столбик вместе с пустыми строками и с данными, если есть.
У меня получается так - если столбец пустой, то данные записываются от начала до конца, если есть хоть какое-то число, где-нибудь по середине, то данные заполняются до этого места, где стоит это число.

честно говоря, не понял, как Вам поможет Ctrl-D вместо таскания ползунков: »
...вот как я делаю: данные ввожу всегда во второй ячейке сверху (первая у меня используется для названий), потом "ctrl+shift+стрелкавниз" (происходит выделение), потом ctrl+d (вставляются данные, которые я вводил во вторую ячейку). Но вся проблема в том, что выделение происходит до первого значения вниз, а мне нужно, что бы выделялся весь столбец до самого низа, без разницы - есть там значения или нету.
Так же "ctrl+стрелкавниз/стрелкавверх" - тоже упирается в значения на своем пути, мне просто надо что бы выделение было с места курсора и до самого низа. ...и перемещение только: "самый верх" и "самый низ".

а так-то Ctrl-D/Ctrl-R вроде как общеизвестные сочетания. »
...да я как-то таблицами раньше и не пользовался. А тут вот пришлось работать, приходится параллельно учиться.
В сети нашел разные примеры как выделять и вставлять, но ни один не подходит.

Profile
08-12-2019, 00:42
Очень хорошо выделяется и перезаписывается весь столбец, когда кликаешь по горизонтальным буквенным координатам, тогда во все строки записывается данные из первой ячейки столбца, но это не подходит тоже, так как там у меня названия.

Profile
08-12-2019, 01:24
Вроде вопрос решился вот таким образом:
Sub Select1()
With ActiveCell.Parent
Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column)).Select
End With
End Sub

столбик выделяется от позиции курсора до самого низа,
соответственно назрел следующий вопрос, как все это еще больше улучшить?
как сделать, что бы при выполнении макроса, сразу же заполнялась данными выделенная область?

Еще помогите решить вопрос с перемещением курсора, у меня закреплена первая строка, и если я нахожусь внизу листа, то "ctrl+стрелкавверх" просто перепрыгивает на первую строчку, т.е. на экране фактически остается нижняя область листа.

Iska
08-12-2019, 10:15
Profile, то есть, на самом деле речь не про 10000 строк, а про весь столбец — так получается?! Странно это всё.

как сделать, чтобы при выполнении макроса, сразу же заполнялась данными выделенная область? »
Ввели данные в ячейку, затем нажали не Enter, а Ctrl-Enter.

Еще помогите решить вопрос с перемещением курсора, у меня закреплена первая строка, и если я нахожусь внизу листа, то "ctrl+стрелкавверх" просто перепрыгивает на первую строчку, т.е. на экране фактически остается нижняя область листа. »
У меня — нет.

bredych
08-12-2019, 23:02
Если надо заполнить весь, а мешают данные, то что мешает кликнуть на верхнюю таблетку, выделив столбец до конца времён, и нажав del удалить все оттуда перед ctrl+d?

Iska
08-12-2019, 23:42
bredych, в первой строке заголовок. Он и мешает.

Проще тогда уж макрос изменить на:
Sub Sample()
With ActiveCell
Intersect(.EntireColumn, .Parent.Range("2:" & CStr(.Parent.Rows.Count)).EntireRow).Select
End With
End Sub

или зараз на:
Sub Sample()
With ActiveCell
Intersect(.EntireColumn, .Parent.Range("2:" & CStr(.Parent.Rows.Count)).EntireRow).FormulaR1C1 = "Value"
End With
End Sub

Profile
11-12-2019, 19:03
Проще тогда уж макрос изменить на: »

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

Iska
11-12-2019, 19:37
…но в обе стороны, т.е. вверх и вниз. »
Так и задумывалось — весь столбец, за исключением первой строки с заголовком.

что бы заполняло/выделяло только в низ от позиции курсора. »
Sub Sample()
With ActiveCell
Intersect(.EntireColumn, .Parent.Range(CStr(.Row) & ":" & CStr(.Parent.Rows.Count)).EntireRow).FormulaR1C1 = "Value"
End With
End Sub




© OSzone.net 2001-2012