有没有去有单元格值中添加或删除任何单元格范围或工作表的副本,而无需使用按钮

问题描述 投票:0回答:1

我试图做一个单元格的值决定了多少份应作出。我想,如果单元格的值下降,它会删除那些高于该值的表来做到这一点。我目前拥有的增加工作没有问题,只是无法弄清楚如何使它删除复印时的值变小。我想我可以做一个按钮做一次检查只是想使它更加自动化。

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
excel vba
1个回答
© www.soinside.com 2019 - 2024. All rights reserved.