Excel для выбора столбца, даже если есть пустые ячейки
Привет, я в настоящее время использую этот код, но он только выбирает столбец, пока не найдет пустую ячейку. Я хочу, чтобы выбрать столбец с ячейки H3 до последнего значения в этом столбце, даже если есть пустые строки
Range("H3").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select 
- Выберите флажки выпадающего окна HTML с помощью VBA
- Найдите строку, выберите эту строку и все строки над ней
- SQL - Получить максимальное использование пользователем
- Выберите диапазон в excel и сделайте его таблицей для дальнейшей справки
- Как использовать диапазоны заданий
- SQL в Excel VBA Синтаксис
- В столбцах Visual Basic (Excel) выберите слишком много столбцов
- Выберите EntireColumn из ActiveCell, за исключением первых трех строк
- Как назначить условный диапазон значению, скопировать указанный диапазон и затем вставить скопированные строки в таблицу?
- использовать привязку оператора к кадру данных pandas для чтения данных, удаления нежелательных столбцов, переименования столбцов и чтения нескольких строк
- Как написать макрос Excel для выбора группы ячеек?
- Прямая ссылка на диапазон Excel с использованием VBA
- Как отменить выбор диапазона после применения критериев автофильтра в VBA?
Сделай это проще. Сначала объявите переменную, которая может содержать последнюю строку, используемую в интересующем столбце, и объявить переменную для хранения диапазона и ее установки. Это поможет вам в долгосрочной перспективе.
например, посмотрите на следующий код …
Sub Test() Dim LastRow As Long Dim Rng As Range 'This will find the last row used in column H LastRow = Cells(Rows.Count, "H").End(xlUp).Row 'Set the Rng variable Set Rng = Range("H3:H" & LastRow) 'Now do whatever you like to do with this range, like Rng.Select MsgBox Rng.Address Rng.Interior.Color = vbYellow 'etc 'If you want to perform multiple actions on the same range, you can also use With and End With block like below With Rng .Value = "Test" .Font.Size = 14 .Font.Bold = True .HorizontalAlignment = xlCenter .RowHeight = 25 'etc End With End Sub
with activeworkbook.sheets("sheet1") ' you did not mention sheet name range(.range("h3") , .Cells(.Rows.Count, "h").End(xlUp)).select end with
что сказал. не пытайтесь использовать Select . почему вы выбираете диапазон?