Question

excel 用按钮复制工作表1的指定内容到工作表2，3，中。

工作表1中有以上内容，想通过点击一个按钮就能把内容带公式表格全部复制到工作表2中，3中，等等，其中工作表2或3的名称不固定。能实现吗，请高手帮助。最好能达到点击一次按钮就复制一次。就像点一次，复制到表2中，再点一次复制到表3中，

Answer 1

在第一个sheet中插入一个图形，并右键，选择制定宏，

如图，并将宏名字改成testcopy

然后点击新建，出个这代码

然后把下面的内容覆盖到这两局代码上

Public i As Long

Sub testcopy()

x = Sheets.Count

j = i + 2

If j > x Then

    MsgBox "所有sheet页都已经用完了"

    i = 0

    GoTo line:

End If

pt = Sheets(j).Name

Application.DisplayAlerts = False

Sheets(j).Delete

Sheets(1).Copy , Sheets(j - 1)

ActiveSheet.DrawingObjects.Select

    Selection.Delete

ActiveSheet.Name = pt

i = i + 1

Sheets(1).Select

line:

End Sub

然后回到excel中，点击这个按钮 就行了 

这个功能是 你点击这个图形 ，首先把你第二个sheet给删除了 然后把第一个sheet复制成第二个sheet，内容和第一个sheet一模一样，你再点击这个图形，就复制到第三个了 注意是复制的整个sheet，即sheet中的所有内容（图片除外）

追问

试过了，没有成功，只提示sheel页都已经用完了。再帮我看看吧，大神。

追答

试的时候，你有几个sheet ，不要少于两个sheet

Answer 2

这个需要用VBA，并不难做，但是叙述起来有点麻烦。