请VBA高手帮忙复制SHEET表

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:49:24
各位高手：我工作上遇到一个问题。具体如下：
1、就是打一个工作表。我在sheet1的A2单元格内随意输入一个数值。如：A2=3
2、运用VBA，能自动根据这个数值生成复制sheet1内所有内容并生成与A2单元格内数值相同的sheet表3个。
敬请指教！谢谢。在线等。。。。。

这样就可以了：

Sub MyMacro2()
Dim i As Integer, t As Integer
t = Range("A2").Value
For i = 1 To t
Sheets.Add
Next i
MsgBox "已添加新工作表个数： " & t
End Sub

Good Luck!

Private Sub Worksheet_Change(ByVal Rng As Range)
n = Rng.Row
If Rng.Row = 2 And Rng.Column = 1 Then
t = CInt(Rng.Value)
For i = 1 To t
Sheets.Add
Next i
MsgBox "已添加新工作表个数： " & t
End If
End Sub

Option Explicit

Private Sub temp()
Dim I As Long
If Not IsNumeric([A2]) Then
MsgBox "请输入数字！", vbExclamation + vbOKOnly, "错误"
Exit Sub
End If

For I = 1 To CLng([A2])
Sheets("Sheet1").Copy After:=Sheets("Sheet1")
Next I
End Sub