需要excel中按钮的代码,该按钮将插入新的单元格范围,包括公式

需要excel中按钮的代码,该按钮将插入新的单元格范围,包括公式,excel,vba,insert,range,formulas,Excel,Vba,Insert,Range,Formulas,我正在尝试创建一个包含未定义数量的房间的数据库,其中每个房间都包含许多饰面材料。因此,对于第一个房间,我创建了一系列单元格,从a列第1行到Y列第10行,有许多复杂的公式,我想要一个按钮,可以自动复制这组10行,在它们下面。我知道如何创建一个按钮,我所需要的只是一个代码,以获得另一组预定义的单元格和第一组的公式。救命啊!非常感谢。(对不起,我的语言不是以英语为母语的人…试试这段代码开始吧 子原始集合 Dim arraySource As Variant ' this is were you wil

我正在尝试创建一个包含未定义数量的房间的数据库,其中每个房间都包含许多饰面材料。因此,对于第一个房间,我创建了一系列单元格,从a列第1行到Y列第10行,有许多复杂的公式,我想要一个按钮,可以自动复制这组10行,在它们下面。我知道如何创建一个按钮,我所需要的只是一个代码,以获得另一组预定义的单元格和第一组的公式。救命啊!非常感谢。(对不起,我的语言不是以英语为母语的人…

试试这段代码开始吧

子原始集合

Dim arraySource As Variant ' this is were you will store your sourced data
Dim strPastetab as string ' this is the name of the tab you will paste to.  You can build an appropriate loop to do as many sheets as you want

arraySource = Sheets("sourcesheet").range("A1:Y10") 'fills your array
Sheets(strPastetab).Range("A1:Y10") = arraySource ' paste your array as long as these are the same size their should be no problem 

End sub

这听起来是一个使用内置
范围的好机会。Copy
方法。这里有一个指向MSDN文档的链接,其中包括一些非常有用的示例(由Bill Jelen编写):请发布您已经尝试过的内容,如果它不起作用,我将假设我没有尝试过任何代码,因为我知道这超出了我的知识能力。感谢您的代码,但它在最后一行代码(Sheets(strPastetab).Range(“A1:Y10”)=arraySource)的某个地方给我带来了一个错误。运行时错误“9”:下标超出范围???我真的不知道如何处理这个错误。将整个代码块发布给您,这样会更容易帮助您