Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   [решено] EXCEL Заполнить выделенный столбец (http://forum.oszone.net/showthread.php?t=343194)

Profile 07-12-2019 03:36 2899324

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

Iska 07-12-2019 07:11 2899329

Profile, сам документ, упаковав его в архив, я полагаю, Вы не выложите, так?

Что именно из этого:
Скрытый текст

Вы подразумеваете под «заполнить»?

Самое простое (но не единственное): быстрая навигация по Рабочему листу — Ctrl-стрелки, с одновременным выделением — Ctrl-Shift-стрелки. А так:
Keyboard shortcuts in Excel - Office Support
Excel Spreadsheets: Navigation, shortcut keys, data sort and filter, formulas and functions | PCWorld
The Complete Guide on Navigation Shortcut Keys In Excel
и т.п.

Ну, и, до кучи: 7 Excel tips for huge spreadsheets: Split Screen, Freeze Panes, Format Painter and more | PCWorld.

Profile 07-12-2019 14:26 2899373

ну конечно же Ctrl+D!!!!!
Спасибо вам большое.

Iska 07-12-2019 14:50 2899384

Profile, честно говоря, не понял, как Вам поможет Ctrl-D вместо таскания ползунков:
Цитата:

Цитата Profile
таскать ползунок вниз - вообще не вариант, самое меньшее тысяч 10 строк, »

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

Profile 08-12-2019 00:21 2899442

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

Цитата:

Цитата Iska
честно говоря, не понял, как Вам поможет Ctrl-D вместо таскания ползунков: »

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

Цитата:

Цитата Iska
а так-то Ctrl-D/Ctrl-R вроде как общеизвестные сочетания. »

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

Profile 08-12-2019 00:42 2899443

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

Profile 08-12-2019 01:24 2899444

Вроде вопрос решился вот таким образом:
Код:

Sub Select1()
    With ActiveCell.Parent
        Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column)).Select
    End With
End Sub

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

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

Iska 08-12-2019 10:15 2899463

Profile, то есть, на самом деле речь не про 10000 строк, а про весь столбец — так получается?! Странно это всё.

Цитата:

Цитата Profile
как сделать, чтобы при выполнении макроса, сразу же заполнялась данными выделенная область? »

Ввели данные в ячейку, затем нажали не Enter, а Ctrl-Enter.

Цитата:

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

У меня — нет.

bredych 08-12-2019 23:02 2899580

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

Iska 08-12-2019 23:42 2899585

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 2899989

Цитата:

Цитата Iska
Проще тогда уж макрос изменить на: »

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

Iska 11-12-2019 19:37 2899997

Цитата:

Цитата Profile
…но в обе стороны, т.е. вверх и вниз. »

Так и задумывалось — весь столбец, за исключением первой строки с заголовком.

Цитата:

Цитата Profile
что бы заполняло/выделяло только в низ от позиции курсора. »

Код:

Sub Sample()
    With ActiveCell
        Intersect(.EntireColumn, .Parent.Range(CStr(.Row) & ":" & CStr(.Parent.Rows.Count)).EntireRow).FormulaR1C1 = "Value"
    End With
End Sub



Время: 23:27.

Время: 23:27.
© OSzone.net 2001-