求助！！到单元格内容为代码，如何运行

南海蝴蝶

求助！！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

excel玉米

VBA 如何把字符串转换为可执行语句？看这里  https://www.zhihu.com/question/30356186

zjzyj

Sub test()

x = Range("K1").Value   'K1单元格填入：A1:A30
y = Range("K2").Value   'K2单元格填入：C1

Range(x).Copy Range(y)

End Sub

南海蝴蝶

zjzyj 发表于 2023-3-16 08:39
Sub test()

x = Range("K1").Value   'K1单元格填入：A1:A30

非常感谢您！
可以粘贴成文本格式吗？

zjzyj

南海蝴蝶 发表于 2023-3-17 14:58
非常感谢您！
可以粘贴成文本格式吗？

range(y).value=range(x).value

zjzyj

南海蝴蝶 发表于 2023-3-17 14:58
非常感谢您！
可以粘贴成文本格式吗？

Sub test()

x = Range("K1").Value
y = Range("K2").Value

m = Range(x).Rows.Count
n = Range(x).Columns.Count
Range(y).Resize(m, n).Value = Range(x).Value

End Sub