Excel VBA - Использование функции диапазона в пределах функции диапазона

Question

Здесь есть 2 вещи. Первое: я использую цикл For для перехода через каждую строку. Второй: я не знаю, какой последний столбец содержит данные в каждой строке, и поэтому я пытаюсь использовать функцию Range.End, чтобы найти ее. Чтобы выбрать последний столбец с данными в строке х, код, который работает в:

Cells(x, Range("C" & x).End(xlToRight).Column).Select 

Как видно из вышесказанного, я начинаю из столбца C, строки X и ищет последнюю ячейку с данными в эта строка. Я не думаю, что важно, с какого столбца я начинаю, поскольку в столбцах A, B, C, D и E обязательно будут данные.

Теперь я пытаюсь выбрать диапазон из ячеек (x, 3) (или столбца X строки X) в последнюю ячейку с данными в строке x. Следующий код не работает:

Range("Cells(x,3):Cells(x, Range("C" & x).End(xlToRight).Column)").Select 

Я не знаю, если мне позволено использовать функцию диапазона, как это. Ошибка представляет собой ошибку компиляции с указанием «ожидаемый: разделитель списков или)», и он выделяет C в Range("C" & x). Я внимательно смотрел, но ничего не вижу.

Я высоко ценю любую помощь.

Answer 1

Используйте это так:

Range(Cells(x,3), Cells(x, Range("C" & x).End(xlToRight).Column)).Select 

Answer 2

Вашего метод с использованием End(xlToRight) будет работать только если ваш диапазон непрерывный.

Если у вас пустые ячейки в середине диапазона (скажем, столбцы M и N пустые), вы не получите ячейки с данными в столбцах «O: X».

Для Select последнего столбца с данными в строке х, используйте:

Cells(x, Cells(x, Columns.Count).End(xlToLeft).Column).Select 

Чтобы Select все Range использования:

Range(Cells(x, 3), Cells(x, Cells(x, Columns.Count).End(xlToLeft).Column)).Select 

Однако редко бывает необходимость Select, если вы «должно» тогда лучше сначала определить Range, например:

Dim Rng As Range 

Set Rng = Range(Cells(x, 3), Cells(x, Cells(x, Columns.Count).End(xlToLeft).Column)) 

И позже, если вам нужно Select его использовать:

Rng.Select