Не правильно копировать значения

Question

У меня есть проблема с моим макросом, чтобы скопировать пасту только значения диапазона A6:AM46,A52:AM84 в AN6 местоположение на том же листе.

Sub PréparerGrilles() 


    Range("A6:AM46,A52:AM84").Select 
    Selection.Copy 

    Range("AN6").Select 
    Application.CutCopyMode = False 
    ActiveSheet.Paste 

End Sub 

Я получаю ошибку 1004 (множественный выбор) ошибки Не могли бы вы помочь мне с этим?

Answer 1

Чтобы скопировать значения от от A6:AM46,A52:AM84 к AN6:BZ46,AN52:BZ84 вы можете сделать следующее:

Sub PreparerGrilles() 
    Range("AN6:BZ46").Value = Range("A6:AM46").Value 
    Range("AN52:BZ84").Value = Range("A52:AM84").Value 
End Sub 

---

Версия с использованием Range.Copy метода:

Sub PreparerGrilles() 
    Range("A6:AM46").Copy Destination:=Range("AN6:BZ46") 
    Range("A52:AM84").Copy Destination:=Range("AN52:BZ84") 
    Range("AN6:BZ46").Value = Range("AN6:BZ46").Value 
    Range("AN52:BZ84").Value = Range("AN52:BZ84").Value 
End Sub 

Я рекомендую вам не замедлит ваш код вниз, используя это. Это также приведет к потенциально неправильным значениям, если ваши формулы относятся ко всему, что не было частью копии.

---

Версия с использованием PasteSpecial xlPasteValues метода:

Sub PreparerGrilles() 
    Range("A6:AM46").Copy 
    Range("AN6:BZ46").PasteSpecial xlPasteValues 
    Range("A52:AM84").Copy 
    Range("AN52:BZ84").PasteSpecial xlPasteValues 
End Sub 

I сильно рекомендую использовать этот метод, так как это приводит к слишком много «невоспроизводимый» ошибки из-за пользователей копируют вещи через буфер обмена между когда ваш код выполняет Копирование и когда он вставляет Paste, а также из-за того, что ваша копия защелкнула все, что пользователь мог вручную вставить в буфер обмена.

Answer 2

Application.CutCopyMode = False очищает буфер обмена ....

Лучше код, который:

Sub Test() 

    Dim wb As Workbook, ws As Worksheet 

    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("SOMMAIRE") 'this means it will only work on this sheet, you should change the name of the sheet or ask me what do you want in order to get it working on other sheets 

    ws.Range("A6:AL46").Copy 
    ws.Range("AN6").PasteSpecial xlValues 

    ws.Range("A52:AM84").Copy 
    ws.Range("AN52").PasteSpecial xlValues 

End Sub 

Отредактировано: Теперь, когда необходимо сделать трюк. Попробуйте и скажите, работает ли он

Редактировано2: Это то, что вы хотите, по крайней мере, за то, что вы просили до сих пор.