求助！！VBA将复制粘贴的代码录入单元格内，调取单元格内容即可运行复制粘贴代码

南海蝴蝶

求助！！VBA将复制粘贴的代码录入单元格内，调取单元格内容即可运行复制粘贴代码，如下，将宏1运行方式改成宏2运行
Sub 宏1()
    Range("A1:A30").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End Sub

工作表单元格K1内容为Selection.Copy
工作表单元格K2内容为Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Sub 宏2()
    复制 = Range("K1")
    粘贴 = Range("K2")
    Range("A1:A30").Select
    复制
    Range("C1").Select
    粘贴
End Sub

Jaofuan

是这样吗？
Sub jaofuan()
    Dim ar
    ar = Range("A1:A30")
    Range("C1").Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

南海蝴蝶

Jaofuan 发表于 2023-3-15 11:27
是这样吗？
Sub jaofuan()
    Dim ar

对不起，是我提问出错了，宏2的复制、粘贴为单元格内的内容。问题修正如下
Sub 宏1()
    Range("A1:A30").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End Sub

工作表单元格K1内容为Selection.Copy
工作表单元格K2内容为Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Sub 宏2()
    复制 = Range("K1")
    粘贴 = Range("K2")
    Range("A1:A30").Select
    复制
    Range("C1").Select
    粘贴
End Sub