我试图做一个单元格的值决定了多少份应作出。我想,如果单元格的值下降,它会删除那些高于该值的表来做到这一点。我目前拥有的增加工作没有问题,只是无法弄清楚如何使它删除复印时的值变小。我想我可以做一个按钮做一次检查只是想使它更加自动化。
Sub CreateDistro()
Dim i As Long
Dim Num As Integer
Dim Name As String
Dim xActiveSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set ActiveSheet = ActiveSheet
Num = Range("C1")
If Num > 1 Then
For i = 1 To Num
Name = ActiveSheet.Name
xActiveSheet.Copy After:=ActiveWorkbook.Sheets(Name)
ActiveSheet.Name = "Distro-" & i
Next
End If
xActiveSheet.Activate
Application.ScreenUpdating = True
End Sub