Змінити розмір діапазону за допомогою VBA
Цей підручник покаже, як користуватися Змінити розмір власності з Об'єкт діапазону змінити, щоб повернути новий діапазон, розмір якого змінено з вихідного об’єкта Діапазон.
Синтаксис
Синтаксис властивості Resize:
| 1 | Діапазон ("A1"). Змінити розмір (RowSize, ColumnSize) |
Де Діапазон ("A1") - це ваш початковий діапазон.
RowSize та ColumnSize мають бути більшими за нуль. Кожен введення необов’язковий (наприклад, ви можете опустити RowSize, щоб змінити лише кількість стовпців, або навпаки).
Змінити розмір кількості рядків і стовпців
Наступний приклад розширює діапазон однією клітинкою A1 до діапазону A1: D10, збільшуючи кількість рядків до 10 і кількість стовпців до 5.
| 1 | Діапазон ("A1"). Змінити розмір (10, 5) .Виберіть |
Або, як правило, ви призначаєте змінений діапазон змінній:
| 12 | 'Змініть розмір діапазону до потрібного розміру та призначте зміннійВстановити newRng = ActiveSheet.Range ("A1"). Змінити розмір (10, 5) |
Змінити розмір лише кількості рядків
Наступний приклад змінює лише кількість рядків:
| 12 | "Змініть лише розмір рядка, новий діапазон становитиме $ A $ 1: $ A $ 10Встановити newRng = rng.Resize (10) |
Змінити розмір лише кількості стовпців
Наступний приклад змінює лише кількість стовпців:
| 12 | 'Змінити лише розмір стовпця, новий діапазон буде $ A $ 1: $ E $ 1Встановити newRng = rng.Resize (, 5) |
Змінити розмір діапазону таблиці, щоб виключити заголовок
Якщо у вас є таблиця на активному аркуші з рядком заголовка, код спочатку виділить всю таблицю, а потім переміститься вниз на один рядок, щоб виключити заголовок за допомогою методу Range.Offset. Потім він буде використовувати властивість Range.Resize, щоб зменшити розмір на один рядок.
| 1234567891011 | Sub SelectTableData ()'** ВАЖЛИВО **'Натисніть будь -яку клітинку таблиці перед запуском макросу'Перемістіться вниз на один рядок за допомогою Зсуву, а потім зменшіть розмір діапазону на один рядокВстановіть tbl = ActiveCell.CurrentRegion.Offset (1, 0) .Resize (tbl.Rows.Count - 1, _tbl.Columns.Count)'Дані вибираються за винятком рядка заголовкаtbl.Address.SelectEnd Sub |
Запишіть 2-D масив для діапазону
Іншим поширеним використанням є запис двовимірного масиву на аркуш. Оскільки діапазон для запису повинен відповідати розміру масиву, який зазвичай не відомий заздалегідь, метод Resize використовується для встановлення діапазону виводу
Приклад нижче читатиме дані в діапазоні A1: E10 в активному аркуші до масиву та записуватиме масив на аркуш «Виведення», починаючи з комірки A1:
| 123456 | Sub WriteArray ()'Зчитування даних у масивіdata = Діапазон ("A1: E10"). Значення'Змініть розмір діапазону виводу та запишіть масивРобочі аркуші ("Вивід"). Діапазон ("A1"). Змінити розмір (UBound (дані, 1), UBound (дані, 2)). Значення = даніEnd Sub |
Автор: Вінамра Чандра
