Question

请告知填写此说明所需的代码：

我需要创建一个宏来复制范围L18：L20并将公式粘贴到相应的列中（M18：M20）。然后，我需要使用特殊粘贴，并复制和粘贴范围为L18：L20的范围M18：M20中的值。

然后我需要这个循环，所以当我运行宏时，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()测试找到第一个空列。
编辑：我喜欢R3uk比我更好地找到最后一个使用过的列，使用他的技术macro1_ByR3uk()（我们每天都学习:-)）

宏将一个范围复制到另一个范围，作为值和公式

2 个答案: