求助:一次性建立100个sheet1的副本

exqq12345

求助: 用vba 一次性建立100个sheet1的副本

饮冰e士

sub test()
for i=1 to 100

  sheet1.copy after:=sheets(sheets.count)
next i

end sub

Yalishanda30

额。。。。。。。。

cyq4896

Sub test()
    For i = 1 To 100
        Sheet1.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = i
    Next
End Sub

cyq4896

试试看 ....

wengjl

Sub 复制副本()
    ' 2024-9-25
    ' 一次性将原表复制N份
    For i = 1 To 100
      bmc = "FB" & i
      For ii = 1 To Worksheets.Count           
        If Worksheets(ii).Name = bmc Then      
          Application.DisplayAlerts = False
          Worksheets(ii).Delete  
          Exit For
        End If
      Next ii
      Sheet1.Cells.Copy
      Sheets.Add.Name = bmc
      Cells(1, 1).PasteSpecial
      Sheets(bmc).Move after:=Sheets(Sheets.Count)
    Next   
End Sub

ykcbf1100

参与一下。。。