Выделение всей активной строки со значениями до последнего активного значения в таблице

@Superbochka · Регистрация: 04.12.2020

Студворк — интернет-сервис помощи студентам

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

@КостяФедореев · 29.04.2021, 10:40

Superbochka, Вы активируете первую ячейку строки, а выделится должна вся строка?

I can · 29.04.2021, 10:43

Сообщение от Superbochka

мне нужно выделить

Не нужно выделять.

@Superbochka · 29.04.2021, 10:44 **[ТС]**

Активирую всю строку, а макрос должен сам найти и выделить с 1 по последнее значение(сплошником)

I can · 29.04.2021, 10:46

Сообщение от Superbochka

найти и выделить

Да с какой целью выделять то?

@Superbochka · 29.04.2021, 10:49 **[ТС]**

чтобы их потом вынести на другую строку, для расчетов по формулам, с этой целью

I can · 29.04.2021, 10:51

Сообщение от Superbochka

вынести на другую строку

А зачем выделять? Почему сразу не перенести?

@КостяФедореев · 29.04.2021, 10:55

Superbochka, В модуль эта книга

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        RRow = Target.Row
        CRow = Target.Column
        LastCol = Sh.Cells(RRow, Columns.Count).End(xlToLeft).Column
        Sh.Range(Cells(RRow, 1), Cells(RRow, LastCol)).Select
    End If
End Sub

@Superbochka · 29.04.2021, 11:50 **[ТС]**

Вставил в книгу, что-то не работает или куда именно надо вставить код?
Не пойму
А можно сделать, чтобы через макрос обычный было, (не private) а просто sub?

@КостяФедореев · 29.04.2021, 11:56

Superbochka, Вам I can,

Сообщение от I can

А зачем выделять? Почему сразу не перенести?

задал вопрос
Вы опишите задачу полностью, чтоб понимать, что Вам нужно.
Как выбирается строка, которая должна выделиться, что после выделения делать с этой строкой?
А лучше с файлом-примером.

@Superbochka · 29.04.2021, 13:17 **[ТС]**

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

Вот прикрепил файл, тут что выделено жирным шрифтом в строке, найти в строке числа и так до конца строки(таблицы) и просто выделить(чтобы было выделено для копирования в будущем)

Вот например, строка 9(жирным шрифтом), я ее выделяю курсором(всю строку, как активную строку) и запускаю макрос, который находит в строке числа и до конца строки(строки таблицы) выделяет(только значения, без слова "обратный"), если можно так сделать
Надеюсь понятно пояснил

@Superbochka · 29.04.2021, 13:23 **[ТС]**

Вот скрин, как-то так должно быть

Просто выделение значений

@КостяФедореев · 29.04.2021, 14:49

Superbochka, нажимайте на ячейки в желтой колонке

@Superbochka · 29.04.2021, 15:24 **[ТС]**

Спасибо за помощь и код, но немного не то, что хотелось бы

@КостяФедореев · 29.04.2021, 15:34

Superbochka, так надо?

Visual Basic
1
2
3
4
5
6
7
8
Sub www()
    RRow = ActiveCell.Row
    LastCol = Cells(RRow, Columns.Count).End(xlToLeft).Column
    If Not IsNumeric(Cells(RRow, LastCol)) Then LastCol = LastCol - 1
    Range(Cells(RRow, 4), Cells(RRow, LastCol)).Select
 
    MsgBox Range(Cells(RRow, 4), Cells(RRow, LastCol)).Address
End Sub

@Superbochka · 29.04.2021, 16:31 **[ТС]**

Да, так, как и нужно, спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75

	Excel Выделение всей активной строки со значениями до последнего активного значения в таблице 29.04.2021, 10:17. Показов 2680. Ответов 15 Метки excel vba (Все метки) Здравствуйте, прошу помощи Есть таблица, со значениями, где мне нужно выделить всю активную строку со значениями до последнего активного значения(чтоб он автоматически определял и выделял с 1 значения в найденной активной строке до последнего значения) Как это можно сделать? гугл не помог 0

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	29.04.2021, 10:40
	Superbochka, Вы активируете первую ячейку строки, а выделится должна вся строка? 0

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75
	29.04.2021, 10:44 [ТС]
	Активирую всю строку, а макрос должен сам найти и выделить с 1 по последнее значение(сплошником) 0

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75
	29.04.2021, 10:49 [ТС]
	чтобы их потом вынести на другую строку, для расчетов по формулам, с этой целью 0

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75
	29.04.2021, 11:50 [ТС]
	Вставил в книгу, что-то не работает или куда именно надо вставить код? Не пойму А можно сделать, чтобы через макрос обычный было, (не private) а просто sub? 0

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75
	29.04.2021, 13:23 [ТС]
	Вот скрин, как-то так должно быть Просто выделение значений Миниатюры 0

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75
	29.04.2021, 15:24 [ТС]
	Спасибо за помощь и код, но немного не то, что хотелось бы 0

@Superbochka 0 / 0 / 0 Регистрация: 04.12.2020 Сообщений: 75
	29.04.2021, 16:31 [ТС]
	Да, так, как и нужно, спасибо большое 0

Выделение всей активной строки со значениями до последнего активного значения в таблице

Решение