代码如下Sub A()s1="a"s1="c"b1="1"b2="10"Sheets(1).Range(s1 & b1 & ":" & s2 & b2).SelectSelection.CopySheets(1).Range("A11").SelectActiveSheet.PasteEnd Sub其中Range(s1 & b1 & ":" & s2 & b2)是要你复制的区域。Range("A11")是你开始粘贴的第一行
楼主想要表达什么,录制一个宏就行了呀