susan 发表于 2014-2-13 11:54:25

按A列数据批量创建新表(控件按钮代码)

Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim i%, j%
    For i = 1 To .End(xlUp).Row
      For j = 2 To Sheets.Count
            If Cells(i, 1) = Sheets(j).Name Then
                Exit For
            End If
      Next
      Sheets.Add(after:=Sheets(Sheets.Count)).Name = Cells(i, 1)
    Next
End Sub

286300390 发表于 2017-3-28 18:24:02

具体点呢？？

286300390 发表于 2017-3-28 19:25:25

可以具体点吗？
页: [1]
查看完整版本: 按A列数据批量创建新表(控件按钮代码)