🔥 Свойство CurrentRegion объекта Range

Свойство Range.CurrentRegion позволяет получить диапазон, который включает все смежные заполненные ячейки, начиная с указанной ячейки. Это свойство полезно для работы с таблицами данных, чтобы автоматически определять область с данными.

📌 Примеры:

1️⃣ Получить диапазон данных, начиная с ячейки A1:

Range("A1").CurrentRegion.Select  

🔹 Выделит весь диапазон, включающий ячейки вокруг A1, которые содержат данные, и заканчивающийся на первой пустой строке или столбце.

2️⃣ Скопировать все данные в текущей области:

Range("A1").CurrentRegion.Copy  

🔹 Копирует все данные в области, начиная с A1, и заканчивающейся первой пустой строкой и столбцом.

3️⃣ Записать значение в первую ячейку следующего столбца за текущей областью:

Range("A1").CurrentRegion.Cells(1, Range("A1").CurrentRegion.Columns.Count + 1).Value = "Новый столбец"  

🔹 Запишет значение "Новый столбец" в первую ячейку нового столбца, который будет добавлен в текущую область.

4️⃣ Получить количество строк и столбцов в текущей области:

Dim rowsCount As Long  
Dim colsCount As Long  
rowsCount = Range("A1").CurrentRegion.Rows.Count  
colsCount = Range("A1").CurrentRegion.Columns.Count  
MsgBox "Rows: " & rowsCount & ", Columns: " & colsCount  

🔹 Покажет количество строк и столбцов в текущей области данных.

💡 Важно:
✔️ CurrentRegion включает все смежные ячейки, содержащие данные, и прекращает область перед первой пустой строкой и перед первым пустым столбцом.
✔️ Свойство CurrentRegion очень полезно для работы с таблицами или базами данных в Excel.

#VBA #ExcelVBA #Range #CurrentRegion