在Excel表里制作一个复制按钮
如何在Excel表里制作一个复制按钮，复制的区域不固定（根据随意选定区域然后点击按钮起到复制作用）请问代码怎么写？
Sub CopyRang()
Dim CR
CR = InputBox("请输入需要拷贝的区域，例如“A1:E5”", "系统提醒：输入不区分大小写", "A1:E5")
If Trim(CR) = "" Then
MsgBox ("您没有输入区域，将使用默认区域！")
CR = "A1:E5"
End If
Range(CR).Copy
End Sub
----------------------------------------------------------
这个是让你输入区域复制，可以解决问题吗？