1️⃣ Кнопка «Сегодня»
Поля начальной и конечной дат заполняются значениями текущей даты.

Private Sub CommandButton1_Click()
    TextBox1.Text = Date
    TextBox2.Text = Date
End Sub

2️⃣ Кнопка «Вчера»
Поля начальной и конечной дат заполняются значениями прошедшей (вчерашней) даты.

Private Sub CommandButton2_Click()
    TextBox1.Text = Date - 1
    TextBox2.Text = Date - 1
End Sub

3️⃣ Кнопка «Текущий месяц»
Поле начальной даты заполняется значением первого дня текущего месяца, а поле конечной — значением текущей даты.

Private Sub CommandButton3_Click()
    TextBox1.Text = DateSerial(Year(Date), Month(Date), 1)
    TextBox2.Text = Date
End Sub

4️⃣ Кнопка «Прошлый месяц»
Поле начальной даты заполняется значением первого дня предыдущего месяца, а поле конечной — значением последнего дня предыдущего месяца.

Private Sub CommandButton4_Click()
    TextBox1.Text = DateSerial(Year(Date), Month(Date) - 1, 1)
    TextBox2.Text = DateSerial(Year(Date), Month(Date), 0)
End Sub

5️⃣ Кнопка «Прошлый год»
Поле начальной даты заполняется значением первого дня предыдущего года, а поле конечной — значением последнего дня предыдущего года.

Private Sub CommandButton5_Click()
    TextBox1.Text = DateSerial(Year(Date) - 1, 1, 1)
    TextBox2.Text = DateSerial(Year(Date) - 1, 12, 31)
End Sub

#VBA #ExcelVBA #Date #DateSerial #ИнтервалДат #Период

✨ Функции для сортировки массива

🛠 Функция для сортировки массива по возрастанию с числовым сравнением числовых элементов массива

Function SortArray(myArray As Variant) As Variant
Dim l As Long, u As Long, i1 As Long, i2 As Long, im As Long, tmp As Variant
'Определение наименьшего индекса массива
l = LBound(myArray)
'Определение наибольшего индекса массива
u = UBound(myArray)
    For i1 = l To u
        im = i1
        For i2 = i1 To u
            'Поиск наименьшего элемента массива, начиная с элемента myArray(i1)
            If myArray(i2) < myArray(im) Then im = i2
        Next
        'Если наименьший элемент не является текущим (im <> i1),
        'тогда наименьший элемент и текущий меняются местами
        If im <> i1 Then
            tmp = myArray(i1)
            myArray(i1) = myArray(im)
            myArray(im) = tmp
        End If
    Next
SortArray = myArray
End Function

Внешний цикл сравнивает по очереди каждый элемент массива с наименьшем элементом, найденным вложенным циклом среди оставшихся элементов (с бóльшими индексами), и, если наименьший элемент myArray(im) не является текущим элементом myArray(i1), они меняются местами.

🛠 Функция для сортировки массива с выбором вида сортировки

Function SortArrayNew(myArray As Variant, mySort As Long) As Variant
Dim l As Long, u As Long, i1 As Long, i2 As Long, im As Long, tmp As Variant
l = LBound(myArray)
u = UBound(myArray)
    For i1 = l To u
        im = i1
            For i2 = i1 To u
                Select Case mySort
                    Case Is = 0
                        If myArray(i2) < myArray(im) Then im = i2
                    Case Is = 1
                        If CStr(myArray(i2)) < CStr(myArray(im)) Then im = i2
                    Case Is = 2
                        If myArray(i2) > myArray(im) Then im = i2
                    Case Is = 3
                        If CStr(myArray(i2)) > CStr(myArray(im)) Then im = i2
                End Select
            Next
        If im <> i1 Then
            tmp = myArray(i1)
            myArray(i1) = myArray(im)
            myArray(im) = tmp
        End If
    Next
SortArrayNew = myArray
End Function

Дополнительный параметр mySort позволяет выбрать сортировку по возрастанию или убыванию и с числовым или текстовым сравнением числовых элементов массива. Значения, которые может принимать параметр mySort в таблице ниже.

#Function #Функция #SortArray #СортировкаМассива

Значения, которые может принимать параметр mySort.

📌 Пример сортировки массива
Пример использования разных видов сортировки одномерного массива в VBA Excel с выводом результатов на рабочий лист:

Sub Primer()
Dim myArr As Variant, x As Variant, i As Long, n As Long
    For i = 1 To 4
        myArr = Array(46, 25, "Лето", 508, 35, "лес", 11, 5, "25ф", "Лес", 45, 58, "лето", 350)
                myArr = SortArrayNew(myArr, i - 1)
        n = 1
            For Each x In myArr
                Cells(n, i) = myArr(n - 1)
                n = n + 1
            Next
    Next
End Sub

Результаты разных видов сортировки массива myArr на изображении ниже.

Результаты разных видов сортировки массива myArr.

✨ Удаление пустых строк 1
Поиск пустых строк должен осуществляться снизу вверх, чтобы при их удалении не возник бесконечный цикл.

1️⃣ Удаление пустых строк со всего листа

Sub Primer1()
Dim n As Long, i As Long
'Определяем номер строки последней ячейки
'используемого диапазона на рабочем листе
n = Cells.SpecialCells(xlLastCell).Row
    'Ищем и удаляем пустые строки
    For i = n To 1 Step -1
        If Rows(i).Text = "" Then Rows(i).Delete
    Next
End Sub

2️⃣ Удаление пустых строк из заданного диапазона

Sub Primer2()
Dim n As Long, i As Long, myRange As Range
Set myRange = Range("A1:G200")
    With myRange
        n = .Rows.Count
        For i = n To 1 Step -1
            If .Rows(i).Text = "" Then .Rows(i).Delete
        Next
    End With
End Sub

#VBA #ExcelVBA #xlLastCell #RowsDelete #УдалениеПустыхСтрок

🔥 Метод Cut объекта Range
Метод Cut вырезает содержимое указанного диапазона ячеек и помещает его в буфер обмена. После этого вы можете вставить эти данные в другое место с помощью метода Paste.

📝 Пример

Sub CutExample1()
    ' Вырезаем данные из диапазона A1:A5
    Range("A1:A5").Cut
    
    ' Вставляем данные в диапазон B1:B5
    Range("B1:B5").Select
    ActiveSheet.Paste
End Sub

🔍 Важные моменты
🔹 Метод Cut работает только в пределах активного листа.
🔹 Если вы хотите вырезать данные и вставить их на другой лист, активируйте другой лист перед вставкой.

Sub CutExample2()
    ' Вырезаем данные из диапазона A1:A5 на активном листе (Лист1)
    Range("A1:A5").Cut
    
    Лист2.Select
    ' Вставляем данные в диапазон B1:B5 на Лист2
    Range("B1:B5").Select
    ActiveSheet.Paste
End Sub

💡 Совет
Используйте метод Cut для быстрого перемещения данных без потери форматирования.

#VBA #ExcelVBA #Cut #Paste #ВырезаниеЯчеек

🔥 Метод Delete объекта Range
Метод Delete удаляет указанный диапазон ячеек, строк или столбцов, а также позволяет управлять тем, как оставшиеся данные будут смещаться после удаления.

📝 Пример

Sub DeleteExample()
    ' Удаляем строку 3
    Rows(3).Delete
    
    ' Удаляем столбец B
    Columns("B").Delete
    
    ' Удаляем диапазон A1:C3 и сдвигаем оставшиеся ячейки вверх
    Range("A1:C3").Delete Shift:=xlUp
End Sub

🔍 Параметры метода Delete
1️⃣ Shift:=xlUp — сдвигает оставшиеся ячейки вверх (по умолчанию для строк).
2️⃣ Shift:=xlToLeft — сдвигает оставшиеся ячейки влево (по умолчанию для столбцов).

💡 Советы
🔹 Если вы удаляете строки или столбцы, параметр Shift можно не указывать — Excel автоматически сдвинет данные.
🔹 Будьте осторожны при удалении данных — восстановить их можно только через отмену (Ctrl + Z) или резервную копию.

#VBA #Delete #Paste #УдалениеЯчеек #xlUp #xlToLeft

🔍 Метод Find объекта Range
Метод Find позволяет найти первую ячейку в диапазоне, содержащую заданное значение. Это быстрый и удобный способ искать данные на листе, аналогичный Ctrl + F в Excel.

📌 Основные параметры Find
🔹 What – что ищем (обязательный параметр).
🔹 LookIn – где искать (значения, формулы или комментарии).
🔹 LookAt – точное или частичное совпадение.
🔹 SearchOrder – искать по строкам или по столбцам.
🔹 MatchCase – учитывать регистр букв.
🔹 SearchDirection – направление поиска (xlNext – вперёд, xlPrevious – назад).

📌 Примеры

1️⃣ Поиска значения в диапазоне

Sub FindExample()  
    Dim cell As Range  
    Set cell = Range("A1:A100").Find(What:="Иван", LookIn:=xlValues, LookAt:=xlWhole)  
     
    If Not cell Is Nothing Then  
        MsgBox "Найдено в ячейке: " & cell.Address  
    Else  
        MsgBox "Значение не найдено!"  
    End If  
End Sub  

2️⃣ Поиск с учётом регистра и точного совпадения

Sub FindExactMatch()  
    Dim cell As Range  
    Set cell = Range("A1:A100").Find(What:="ABC", LookAt:=xlWhole, MatchCase:=True)  
      
    If Not cell Is Nothing Then  
        MsgBox "Точное совпадение найдено в " & cell.Address  
    Else  
        MsgBox "Совпадений нет!"  
    End If  
End Sub  

3️⃣ Поиск в формулах (а не в значениях)

Sub FindInFormulas()  
    Dim cell As Range  
    Set cell = Range("A1:A100").Find(What:="*SUM*", LookIn:=xlFormulas)  
      
    If Not cell Is Nothing Then  
        MsgBox "Формула найдена в " & cell.Address  
    Else  
        MsgBox "Формул с таким текстом нет!"  
    End If  
End Sub  

Метод Find с What:="*SUM*" нашел формулу =СУММ(A1:A3)

4️⃣ Цикл поиска всех совпадений
Метод Find ищет только первое совпадение. Чтобы найти все вхождения, используем FindNext:

Sub FindAllMatches()  
    Dim firstCell As String, cell As Range  
    Set cell = Range("A1:A100").Find(What:="Иван", LookIn:=xlValues)  

    If Not cell Is Nothing Then  
        firstCell = cell.Address  
        Do  
            MsgBox "Найдено в: " & cell.Address  
            Set cell = Range("A1:A100").FindNext(cell)  
        Loop While Not cell Is Nothing And cell.Address <> firstCell  
    Else  
        MsgBox "Значение не найдено!"  
    End If  
End Sub  

⚠️ Важно
🔹 Find возвращает только первую найденную ячейку, для остальных используйте FindNext.
🔹 Если поиск не нашёл совпадений, метод вернёт Nothing, поэтому всегда проверяйте If Not cell Is Nothing.
🔹 Если LookAt:=xlWhole, то Find ищет только полные совпадения. Если xlPart, то подстроку в тексте.

💡 Когда использовать?
✅ Для быстрого поиска данных в больших таблицах.
✅ В макросах, где нужно найти конкретную запись и изменить её.
✅ Для анализа данных с повторяющимися значениями.

#VBA #ExcelVBA #Find #FindNext #Range #Поиск

Объект Range
Определение и обращение
Свойство Address (адрес диапазона)
Свойство Borders (границы ячеек)
Свойство Cells (ячейки диапазона)
Свойство Column (номер первого столбца)
Свойство Columns (коллекция столбцов в диапазоне)
Свойство CurrentRegion (текущая таблица)
Свойство End (последняя заполненная ячейка)
Свойство EntireColumn (столбцы диапазона)
Свойство EntireRow (строки диапазона)
Свойство Font (шрифт текста в ячейке)
Свойство Formula (формула)
Свойство FormulaLocal (формула на языке пользователя)
Свойство FormulaR1C1 (формула в стиле R1C1)
Свойство FormulaR1C1Local (формула в стиле R1C1 на языке пользователя)
Свойство HasFormula (содержит ли ячейка формулу)
Свойство Height (высота диапазона)
Свойство Hidden (скрывает строки или столбцы)
Свойство Interior (формат заливки)
Свойство Merge (объединение ячеек)
Свойство NumberFormat (форматы чисел, дат, процентов)
Свойство Offset (смещение диапазона)
Свойство Resize (изменение размера диапазона)
Свойства Row (номер первой строки)
Свойства Rows (коллекция строк в диапазоне)
Свойство Text (текстовое представление значения)
Свойство Value (значение)
Свойство Value2 (точные числовые значения)
Свойство Width (ширина диапазона)
Метод Activate (активация ячейки)
Метод AutoFit (автоподбор ширины и высоты)
Метод Clear (очистка ячеек)
Метод Copy (копирование ячеек)
Метод Cut (вырезание ячеек)
Метод Delete (удаление ячеек)
Метод Find (поиск первого совпадения)
Метод FindNext (поиск всех совпадений)
Метод Insert (вставка ячеек)
Метод Merge (объединение ячеек)
Метод PasteSpecial (специальная вставка)
Метод RemoveDuplicates (удаление дубликатов)
Метод Replace (поиск и замена)
Метод Select (выделение ячеек)
Метод Sort (сортировка данных)
Метод UnMerge (отмена объединения ячеек)

#VBA #ExcelVBA #Range #Диапазон

🔍 Метод FindNext объекта Range
Метод FindNext используется вместе с Find, чтобы найти все вхождения искомого значения в диапазоне.

📌 Как работает FindNext?
🔹 Find ищет первое совпадение.
🔹 FindNext ищет следующее совпадение и т.д.
🔹 Если FindNext снова находит первую ячейку, поиск необходимо завершить.

📌 Примеры

1️⃣ Поиск всех совпадений в заданном диапазоне

Sub FindAllOccurrences()  
    Dim firstCell As String, cell As Range  
    Set cell = Range("A1:A100").Find(What:="Иван", LookIn:=xlValues)  

    If Not cell Is Nothing Then  
        firstCell = cell.Address ' Запоминаем первую найденную ячейку  
        Do  
            MsgBox "Найдено в: " & cell.Address  
            Set cell = Range("A1:A100").FindNext(cell) ' Ищем следующее  
        Loop While cell.Address <> firstCell  
    Else  
        MsgBox "Значение не найдено!"  
    End If  
End Sub  

2️⃣ Поиск всех совпадений и их выделение цветом

Sub HighlightAllMatches()  
    Dim firstCell As String, cell As Range  
    Set cell = Range("A1:A100").Find(What:="Иван", LookIn:=xlValues)  

    If Not cell Is Nothing Then  
        firstCell = cell.Address  
        Do  
            cell.Interior.Color = RGB(255, 255, 0) ' Закрашиваем найденную ячейку  
            Set cell = Range("A1:A100").FindNext(cell)  
        Loop While cell.Address <> firstCell  
    End If  
End Sub  

3️⃣ Поиск с учётом регистра и точного совпадения

Sub FindExactMatch()  
    Dim firstCell As String, cell As Range  
    Set cell = Range("A1:A100").Find(What:="ABC", LookAt:=xlWhole, MatchCase:=True)  

    If Not cell Is Nothing Then  
        firstCell = cell.Address  
        Do  
            MsgBox "Точное совпадение в " & cell.Address  
            Set cell = Range("A1:A100").FindNext(cell)  
        Loop While cell.Address <> firstCell  
    End If  
End Sub  

⚠️ Важно
🔹 FindNext продолжает поиск с последней найденной ячейки.
🔹 Если FindNext снова нашёл первую найденную ячейку, поиск необходимо завершить, чтобы не уйти в бесконечный цикл.

💡 Когда использовать?
✅ Если нужно найти все совпадения, а не только первое.
✅ В макросах, где данные обновляются, заменяются или выделяются.
✅ При анализе данных с повторяющимися значениями.

#VBA #ExcelVBA #FindNext #Поиск #Range

🔥 Метод Insert объекта Range
Метод Insert позволяет вставлять новые ячейки, строки или столбцы в диапазон, сдвигая существующие данные. Это аналог кнопки "Вставить" в Excel.

📌 Синтаксис

Range.Insert(Shift, CopyOrigin)  

🔹 Shift (необязательно) – определяет направление сдвига:
✅xlShiftDown – сдвиг вниз (для вставки строк);
✅xlShiftToRight – сдвиг вправо (для вставки ячеек).

🔹 CopyOrigin (необязательно) – копирует форматирование соседних ячеек:
✅xlFormatFromLeftOrAbove – копирует сверху или слева (по умолчанию);
✅xlFormatFromRightOrBelow – копирует снизу или справа.

📌 Примеры

1️⃣ Вставить пустую строку перед A1

Sub InsertRow()  
    Range("A1").EntireRow.Insert  
End Sub  

2️⃣ Вставить новый столбец перед A

Sub InsertColumn()  
    Range("A1").EntireColumn.Insert  
End Sub  

3️⃣ Вставить ячейки со сдвигом вниз

Sub InsertCellsDown()  
    Range("B2:C3").Insert Shift:=xlShiftDown  
End Sub  

4️⃣ Вставить ячейки со сдвигом вправо

Sub InsertCellsRight()  
    Range("B2:B5").Insert Shift:=xlShiftToRight  
End Sub  

5️⃣ Вставить строку и скопировать формат сверху

Sub InsertRowWithFormat()  
    Range("A5").EntireRow.Insert CopyOrigin:=xlFormatFromLeftOrAbove  
End Sub  

⚠️ Важно:
🔹 Если в Insert не указать Shift, Excel сам выберет направление сдвига.
🔹 Если диапазон — целая строка (EntireRow) или столбец (EntireColumn), то вставка сдвигает весь лист.
🔹 При вставке столбца или строки копирование форматов (CopyOrigin) помогает сохранить стиль таблицы.

💡 Когда использовать?
✅ Автоматическое добавление строк/столбцов в таблицы.
✅ Вставка новых данных без потери существующих.

#VBA #ExcelVBA #Insert #Range #Вставка

🔗 Метод Merge объекта Range
Метод Merge позволяет объединять несколько ячеек в одну, сохраняя только верхнее левое значение. Это эквивалент кнопки "Объединить и поместить в центр" в Excel.

📌 Синтаксис

Range.Merge (Across)  

🔹 Across (необязательный) – объединение по строкам:
✅ True – объединяет только по горизонтали (в каждой строке отдельно).
✅ False (по умолчанию) – объединяет весь диапазон в одну ячейку.

📌 Примеры

1️⃣ Объединить диапазон в одну ячейку

Sub MergeCells()  
    Range("A1:C3").Merge  
End Sub  

2️⃣ Объединить ячейки в каждой строке отдельно

Sub MergeAcrossRows()  
    Range("A1:C3").Merge Across:=True  
End Sub  

3️⃣ Объединить и установить текст в центр

Sub MergeAndCenter()  
    With Range("B2:D2")  
        .Merge  
        .HorizontalAlignment = xlCenter  
    End With  
End Sub  

4️⃣ Проверить, объединены ли ячейки

Sub CheckMergedCells()  
    If Range("A1").MergeCells Then  
        MsgBox "Ячейка A1 объединена!"  
    Else  
        MsgBox "Ячейка A1 не объединена."  
    End If  
End Sub  

5️⃣ Разъединить объединённые ячейки

Sub UnmergeCells()  
    Range("A1:C3").UnMerge  
End Sub  

⚠️ Важно:
🔹 После Merge остаётся только верхнее левое значение, остальные данные теряются!
🔹 Если не задать Across:=True, Excel объединит всю область в одну ячейку.
🔹 Использование Merge может мешать сортировке и обработке данных, поэтому иногда лучше применять CenterAcrossSelection для выравнивания текста.

Sub CenterAcrossSelectionExample()
    Range("B1:F1").HorizontalAlignment = xlCenterAcrossSelection
End Sub

💡 Когда использовать?
✅ Форматирование заголовков и шапок таблиц.
✅ Создание отчётов с объединёнными ячейками.
✅ Визуальное оформление данных.

#VBA #ExcelVBA #Merge #Range #Объединение

📋 Метод PasteSpecial объекта Range
Метод PasteSpecial позволяет вставлять не просто данные, а формулы, форматы, значения, ширину столбцов и другие элементы. Это аналог кнопки "Специальная вставка" в Excel.

📌 Синтаксис

Range.PasteSpecial (Paste, Operation, SkipBlanks, Transpose)  

🛠 Параметры
🔹 Paste – что вставлять (значения, формулы, форматы и т. д.).
🔹 Operation – математическая операция (xlAdd, xlSubtract и др.).
🔹 SkipBlanks – игнорировать пустые ячейки (True / False).
🔹 Transpose – поменять местами строки и столбцы (True / False).

📌 Примеры

1️⃣ Вставить только значения (без формул)

Sub PasteValues()  
    Range("A1:A10").Copy  
    Range("C1").PasteSpecial Paste:=xlPasteValues  
    Application.CutCopyMode = False ' Убираем режим копирования  
End Sub  

2️⃣ Вставить только форматы ячеек

Sub PasteFormats()  
    Range("A1:A10").Copy  
    Range("C1").PasteSpecial Paste:=xlPasteFormats  
End Sub  

3️⃣ Вставить ширину столбцов

Sub PasteColumnWidths()  
    Range("A:A").Copy  
    Range("C:C").PasteSpecial Paste:=xlPasteColumnWidths  
End Sub  

4️⃣ Вставить формулы без форматирования

Sub PasteFormulas()  
    Range("A1:A10").Copy  
    Range("C1").PasteSpecial Paste:=xlPasteFormulas  
End Sub  

5️⃣ Вставить транспонированные данные (строки → столбцы)

Sub PasteTransposed()  
    Range("A1:D1").Copy  
    Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True  
End Sub  

⚠️ Важно:
🔹 Перед PasteSpecial всегда нужно вызывать Copy, чтобы вставка сработала (из буфера обмена).
🔹 Application.CutCopyMode = False убирает мигающую рамку (марш муравьев) вокруг скопированных данных.
🔹 Если SkipBlanks:=True, пустые ячейки не будут заменять данные в целевом диапазоне.

💡 Когда использовать?
✅ Удаление формул, оставляя только значения.
✅ Копирование только форматов или ширины столбцов.
✅ Изменение структуры данных (транспонирование).

#VBA #ExcelVBA #PasteSpecial #Range #СпециальнаяВставка #Копирование

🔄 Метод RemoveDuplicates объекта Range
Метод RemoveDuplicates позволяет удалить повторяющиеся строки в указанном диапазоне, оставляя только первое уникальное вхождение. Это аналог кнопки "Удалить дубликаты" в Excel.

📌 Синтаксис

Range.RemoveDuplicates Columns, Header  

🔹 Columns – массив номеров столбцов, по которым удаляются дубликаты (например, Array(1, 3)).
🔹 Header – указание наличия заголовка:
✅ xlYes – первая строка считается заголовком.
✅ xlNo – все строки участвуют в удалении дубликатов.
✅ xlGuess (по умолчанию) – Excel сам определяет наличие заголовков.

📌 Примеры

1️⃣ Удалить дубликаты по первому столбцу

Sub RemoveDuplicatesOneColumn()  
    Range("A1:A10").RemoveDuplicates Columns:=1, Header:=xlNo  
End Sub  

2️⃣ Удалить дубликаты по нескольким столбцам (A и C)

Sub RemoveDuplicatesMultipleColumns()  
    Range("A1:C10").RemoveDuplicates Columns:=Array(1, 3), Header:=xlYes  
End Sub  

3️⃣ Удалить дубликаты с автоматическим определением заголовка

Sub RemoveDuplicatesAutoHeader()  
    Range("A1:D20").RemoveDuplicates Columns:=2, Header:=xlGuess  
End Sub  

4️⃣ Удалить дубликаты во всём диапазоне данных

Sub RemoveAllDuplicates()  
    Dim ws As Worksheet  
    Set ws = ActiveSheet  
    ws.UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes  
End Sub  

⚠️ Важно
🔹 Метод сохраняет первое вхождение, удаляя все последующие дубликаты.
🔹 Если Header:=xlYes, Excel не считает заголовок первым вхождением.
🔹 Работает только для строк с точным повторением значений в указанных столбцах — если данные в строке повторяются по указанным столбцам в другом порядке, метод их не удалит.

💡 Когда использовать?
✅ Очистка больших таблиц от повторяющихся данных.
✅ Фильтрация уникальных значений для последующего анализа.

#VBA #ExcelVBA #RemoveDuplicates #Range #УдалениеДубликатов

🔳 Метод Select объекта Range
Метод Select используется для выбора (выделения) диапазона на листе. Это аналог ручного выделения ячеек в Excel с помощью мыши или клавиатуры.

📌 Примеры

1️⃣ Выделить одну ячейку

Sub SelectSingleCell()  
    Range("B2").Select  
End Sub  

2️⃣ Выделить диапазон ячеек

Sub SelectRange()  
    Range("A1:D5").Select  
End Sub  

3️⃣ Выделить весь столбец

Sub SelectColumn()  
    Columns("B").Select  
End Sub  

4️⃣ Выделить всю строку

Sub SelectRow()  
    Rows("3").Select  
End Sub  

5️⃣ Выделить ячейки с данными (используем CurrentRegion)

Sub SelectDataRegion()  
    Range("A1").CurrentRegion.Select  
End Sub  

6️⃣ Выделить последнюю заполненную строку в столбце A

Sub SelectLastRow()  
    Dim LastRow As Long  
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
    Range("A" & LastRow).Select  
End Sub  

7️⃣ Выделить последнюю заполненную колонку в строке 1

Sub SelectLastColumn()  
    Dim LastCol As Long  
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column  
    Cells(1, LastCol).Select  
End Sub  

⚠️ Важно
🔹 Метод Select не всегда нужен в VBA, так как большинство операций можно выполнить без выделения ячеек.
🔹 Метод Select работает на активном листе. Если необходимый лист неактивен, его необходимо активировать:

Sheets("Лист1").Activate  
Range("A1").Select  

💡 Когда использовать?
✅ При создании макросов, которые имитируют пользовательские действия.
✅ В кодах для навигации по ячейкам.

#VBA #ExcelVBA #Select #Range #Выделение #ВыделениеЯчеек

🔄 Переопределение размерности массивов
Переопределять размерность динамических массивов в одной процедуре можно неоднократно, как по количеству измерений, так и по количеству элементов в измерении. Для переопределения размерности используется оператор ReDim.

📌 Примеры

1️⃣ Переопределение массивов с указанием размеров числами

Dim Massiv1() As Integer, Massiv2() As String
ReDim Massiv1(1 To 20)
ReDim Massiv2(3, 5, 4)

2️⃣ Переопределение массива с помощью переменной

Dim Massiv1() as Variant, x As Integer
x = 20
ReDim Massiv1(1 To x)

При переопределении размерности динамических массивов в VBA Excel теряются значения их элементов. Чтобы сохранить значения используется оператор Preserve.

3️⃣ Переопределение массива с сохранением значений

Dim Massiv1() As String
----- операторы -----
ReDim Massiv1(5, 2, 3)
----- операторы -----
ReDim Preserve Massiv1(5, 2, 7)

⚠️ Важно
🔹 Переопределяемый массив должен быть динамическим. При попытке переопределить массив, объявленный с указанием размерности (Dim Massiv(1 To 9) As String), произойдет ошибка компиляции с сообщением: Array already dimensioned (Массив уже имеет размерность).
🔹 Переопределить с оператором Preserve можно только последнюю размерность динамического массива. Это недоработка разработчиков, которая сохранилась и в VBA Excel 2016. Без оператора Preserve можно переопределить все размерности.

4️⃣ Еще один пример с ReDim Preserve

Sub Primer()
Dim x() As Byte, i1 As Byte, i2 As Byte, i3 As Byte
    ReDim x(2, 2, 2)
        For i1 = 0 To 2
            For i2 = 0 To 2
                For i3 = 0 To 2
                    x(i1, i2, i3) = i1 + i2 + i3
                Next
            Next
        Next
    ReDim Preserve x(2, 2, 3)
End Sub

Так все работает, но при попытке переопределения размерности: ReDim Preserve x(3, 2, 3) или даже ReDim Preserve x(2, 3, 2), происходит ошибка "Run-time error '9': Subscript out of range" (Ошибка времени выполнения '9': Индекс вне диапазона).

#VBA #ReDim #Preserve #Array #Массив #Размерность

🔢 Метод Sort объекта Range
Метод Sort позволяет отсортировать данные в указанном диапазоне по одному или нескольким столбцам. Это аналог кнопки "Сортировка" в Excel.

📌 Синтаксис

Range.Sort Key1, Order1, Key2, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, DataOption1, DataOption2, DataOption3  

🔹 Key1 – первый столбец для сортировки (Range("A1")).
🔹 Order1 – порядок (xlAscending – по возрастанию, xlDescending – по убыванию).
🔹 Header – есть ли заголовки (xlYes / xlNo / xlGuess).
🔹 Orientation – направление (xlSortRows – по строкам, xlSortColumns – по столбцам).
🔹 Остальные параметры – дополнительные уровни сортировки.

📌 Примеры

1️⃣ Простая сортировка по возрастанию (столбец A)

Sub SortAscending()  
    Range("A1:A10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo  
End Sub  

2️⃣ Сортировка по убыванию (столбец B)

Sub SortDescending()  
    Range("B1:B10").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes  
End Sub  

3️⃣ Сортировка по двум столбцам (сначала по A, потом по B)

Sub SortTwoColumns()  
    Range("A1:C10").Sort _  
        Key1:=Range("A1"), Order1:=xlAscending, _  
        Key2:=Range("B1"), Order2:=xlDescending, _  
        Header:=xlYes  
End Sub  

✅ 4. Сортировка без учета регистра

Sub SortCaseInsensitive()  
    Range("A1:A10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, MatchCase:=False  
End Sub  

5️⃣ Сортировка по строкам (не по столбцам!)

Sub SortByRows()  
    Range("A1:D5").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortRows  
End Sub  

⚠️ Важно
🔹 Если в диапазоне есть заголовки, указывайте Header:=xlYes, иначе заголовок будет отсортирован вместе с данными.
🔹 MatchCase:=True учитывает регистр, а False — игнорирует.
🔹 Orientation:=xlSortRows используется для сортировки по строкам, а xlSortColumns (по умолчанию) — для сортировки по столбцам.

#VBA #ExcelVBA #Sort #Range #Сортировка

🔄 Метод UnMerge объекта Range
Метод UnMerge используется для разъединения ранее объединенных ячеек в указанном диапазоне. Он выполняет обратное действие методу Merge.

📌 Примеры

1️⃣ Разъединить объединенные ячейки:

Sub UnMergeRange()
'    Range("A1:D5").Merge
    Range("A1:D5").UnMerge
End Sub

2️⃣ Отмена объединения по одной ячейке:

Sub UnMergeSingleCell()
'    Range("A1:D5").Merge
    Range("A1").UnMerge
End Sub

Разъединены будут все ячейки, составляющие объединенную ячейку.

3️⃣ Разъединить все объединенные ячейки на активном листе:

Sub UnMergeAll()  
    ActiveSheet.Cells.UnMerge  
End Sub  

4️⃣ Разъединить объединенные ячейки и заполнить их значением верхней левой ячейки:

Sub UnMergeAndFill()
    Dim rng As Range, addr As String, val As Variant
    For Each rng In ActiveSheet.UsedRange
        If rng.MergeCells Then
            addr = rng.MergeArea.Address  ' Сохраняем адрес объединенной области
            val = rng.Cells(1, 1).Value  ' Сохраняем значение из первой ячейки
            rng.UnMerge  ' Разъединяем ячейки
            Range(addr).Value = val  ' Вставляем сохраненное значение во все ячейки
        End If
    Next rng
End Sub

⚠️ Важно
🔹 Если объединенная ячейка содержала данные, после UnMerge значение останется только в верхней левой ячейке, а остальные станут пустыми. Если хотите сохранить данные во всех разъединенных ячейках, используйте пример 4.

💡 Когда использовать?
✅ При подготовке данных для работы (объединенные ячейки могут мешать обработке).
✅ Перед выполнением операций копирования, вставки или сортировки.
✅ Для автоматической очистки листов от объединений.

#VBA #ExcelVBA #UnMerge #Range #ОбъединенныеЯчейки

🔍 Метод Replace объекта Range
Метод Replace позволяет искать и заменять значения в указанном диапазоне. Это аналог функции "Найти и заменить" (Ctrl + H) в Excel, но с возможностью автоматизации через VBA.

📌 Синтаксис

Range.Replace What, Replacement, [LookAt], [SearchOrder], [MatchCase], [MatchByte], [SearchFormat], [ReplaceFormat]  

🔹 What – что ищем.
🔹 Replacement – на что заменяем.
🔹 LookAt – искать целую ячейку (xlWhole) или часть (xlPart).
🔹 SearchOrder – искать по строкам (xlByRows) или по столбцам (xlByColumns).
🔹 MatchCase – учитывать ли регистр (по умолчанию False).
🔹 SearchFormat, ReplaceFormat – искать/заменять с учетом форматов.

📌 Примеры

1️⃣ Простая замена текста в диапазоне

Sub ReplaceText()  
    Range("A1:A10").Replace What:="Ошибка", Replacement:="Исправлено"  
End Sub  

Заменит "Ошибка" на "Исправлено" в диапазоне A1:A10.

2️⃣ Замена с учетом регистра

Sub ReplaceCaseSensitive()  
    Range("B1:B10").Replace What:="День", Replacement:="Ночь", MatchCase:=True  
End Sub  

Заменит "День" на "Ночь", но "день" или "ДЕНЬ" не изменит.

3️⃣ Замена в ячейках, которые содержат только искомый текст

Sub ReplaceWholeCell()  
    Range("C1:C10").Replace What:="100", Replacement:="200", LookAt:=xlWhole  
End Sub  

Заменит только в ячейках, содержащих ровно "100". Если в ячейке "1000" — не изменит.

4️⃣ Замена по всему листу с поиском по столбцам

Sub ReplaceOnSheet()  
    Cells.Replace What:="USD", Replacement:="EUR", SearchOrder:=xlByColumns  
End Sub  

Заменит "USD" на "EUR" во всех ячейках листа, поиск будет идти по столбцам.

5️⃣ Замена с учетом формата ячейки

Sub ReplaceBoldText()
    Application.FindFormat.Font.Bold = True ' Настроить поиск жирного текста
    Cells.Replace What:="Ошибка", Replacement:="Исправлено", SearchFormat:=True
    Application.FindFormat.Clear ' Очищаем формат поиска
End Sub

Заменит текст только в тех ячейках, где "Ошибка" была написана жирным шрифтом.

#VBA #ExcelVBA #Replace #Range #Автоматизация #Замена