Question

Excel用VBA按钮控件实现下面的功能。

如何实现新建表格并且在新建表格的A1单元格输入“name”，B1单元格输入“age”，C1单元格输入“ID”。求程序。

Answer 1

sub test()
dim sh as workSheet
set sh=workSheets.add(after:=workSheets(workSheets.count))
with sh
.[a1]="name":.[b1]="age":.[c1]="ID"
end with
end sub

追问

sheet1 有个按钮，点击之后，新建一张表格即sheet2，在sheet2中把sheet1中的（A1）单元格的内容复制到sheet2 中（B1）单元格，把sheet1中的(A2)单元格的内容复制到sheet2中的（C1）单元格中，怎么做啊？

追答

sub test()
dim sh as workSheet
set sh=workSheets.add(after:=workSheets(workSheets.count))
with sh
.range("B1:C1")=application.TRANSPOSE(workSheets("Sheet1").range("A1:A2"))

end with
end sub