🔥 Метод Copy объекта Range
Метод Copy позволяет скопировать содержимое и форматирование ячеек в буфер обмена или в другой диапазон. Он аналогичен сочетанию клавиш Ctrl + C в Excel.

📌 Как работает?
🔹 Если не указывать целевой диапазон, данные копируются в буфер обмена.
🔹 Если указать целевой диапазон, копируемый диапазон вставляется сразу.

📌 Примеры

✅ 1. Копировать диапазон в буфер обмена

Sub CopyToClipboard()  
    Range("A1:C3").Copy ' Копирует диапазон A1:C3 в буфер обмена  
End Sub  

✅ 2. Копировать и вставить в другой диапазон

Sub CopyToAnotherRange()  
    Range("A1:C3").Copy Destination:=Range("E1") ' Вставит копию в E1:G3  
End Sub  

✅ 3. Копировать на другой лист

Sub CopyToAnotherSheet()  
    Sheets("Лист1").Range("A1:C3").Copy Destination:=Sheets("Лист2").Range("A1")  
End Sub  

✅ 4. Копировать весь столбец

Sub CopyColumn()  
    Columns("A").Copy Destination:=Columns("D") ' Копирует столбец A в столбец D  
End Sub  

✅ 5. Копировать и вставить специальным способом (PasteSpecial), когда требуется вставить только значения, формулы или форматы:

Sub CopyAndPasteValues()  
    Range("A1:C3").Copy  
    Range("E1").PasteSpecial Paste:=xlPasteValues ' Вставит только значения  
    Application.CutCopyMode = False ' Убирает пунктирную рамку после копирования  
End Sub  

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

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

#VBA #ExcelVBA #Copy #Range #PasteSpecial