Макрос для копирования одного диапазона в другой, как значения и в формулах

Question

Пожалуйста посоветуйте на код, необходимый для заполнения этого описания:

Мне нужно создать макрос, чтобы скопировать диапазон L18: L20 и вставить формулы в соответствующий столбец (M18: M20). Затем мне нужно использовать специальную пасту и скопировать и вставить значения из диапазона M18: M20 в диапазоне L18: L20.

Мне нужно это для сортировки цикла, поэтому, когда я запускаю макрос, формулы из M18: M20 копируются и вставляются в N18: N20, а затем значения копирования и вставки из N18: от N20 до M18: M20 и т. Д. ,

Вот мой код:

Sub Macro1() 

Range("L18:L20").Copy 
Range("M18:M20").PasteSpecial Paste:=xlPasteFormulas, _ 
          Operation:=xlNone, _ 
          SkipBlanks:=False, _ 
          Transpose:=False 
Range("M18:M20").Copy 
Range("L18:L20").PasteSpecial Paste:=xlPasteValues, _ 
          Operation:=xlNone, _ 
          SkipBlanks:=False, _ 
          Transpose:=False 

End Sub 

Answer 1

Дайте этому попытку:

Sub test_Andrew() 

Dim Ws As Worksheet, _ 
    LastCol As Integer 

Set Ws = ActiveSheet 

With Ws 
    LastCol = .Cells(18, .Columns.Count).End(xlToLeft).Column 

    .Range(.Cells(18, LastCol), .Cells(20, LastCol)).Copy 
    .Cells(18, LastCol + 1).PasteSpecial Paste:=xlPasteFormulas, _ 
           Operation:=xlNone, _ 
           SkipBlanks:=False, _ 
           Transpose:=False 
    .Range(.Cells(18, LastCol + 1), .Cells(20, LastCol + 1)).Copy 
    .Cells(18, LastCol).PasteSpecial Paste:=xlPasteValues, _ 
           Operation:=xlNone, _ 
           SkipBlanks:=False, _ 
           Transpose:=False 
End With 
End Sub 

Answer 2

Попробуйте это:

Sub Macro1(colindex As Integer) 
    ' ' Macro1 Macro ' 
    'make our ranges variable and based on the input column 
    Dim range_alpha As Range, range_beta As Range 
    Set range_alpha = ActiveSheet.Range(ActiveSheet.Cells(18, colindex), ActiveSheet.Cells(20, colindex)) 
    Set range_beta = ActiveSheet.Range(ActiveSheet.Cells(18, colindex + 1), ActiveSheet.Cells(20, colindex + 1)) 
    range_alpha.Select 

    range_alpha.Select 
    Selection.Copy 
    range_beta.Select 
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
    range_beta.Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    range_alpha.Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
    Range("M18:M20").Select 
End Sub 


Sub Macro1_BySelection() 
    '' use this sub to call Macro 1 if you want to select a column first 
    Macro1 Selection.Column 
End Sub 


Sub Macro1_ByProbe() 
    '' use this sub to call Macro 1 for the first empty column found 
    Dim tst As String 
    Dim colindex As Integer 
    colindex = 1 
    tst = ActiveSheet.Cells(18, colindex).Value 

    Do While tst <> "" 
     colindex = colindex + 1 
     tst = ActiveSheet.Cells(18, colindex).Value 
    Loop 

    Macro1 colindex 
End Sub 
Sub Macro1_ByR3uk() 
    Dim LastCol As Integer 
    LastCol = ActiveSheet.Cells(18, ActiveSheet.Columns.Count).End(xlToLeft).Column 

    Macro1 LastCol + 1 
End Sub 

Ваша первоначальная функция была улучшена, чтобы действовать не на фиксированный диапазон «Lxx», но принять число как индекс столбца.

Два предлагает два различных способа другого макроса определения, которые варьируются использовать:

• Macro1_BySelection() использует ячейку, которая выбирается при вызове макроса.
• Macro1_ByProbe() тесты, чтобы найти первую пустую колонку.
• EDIT: Я любил путь R3uk по поиску последних использовавшихся колонков лучше, чем я, использовал свою технику macro1_ByR3uk() (мы учимся каждый день :-))