问循环，该循环为每次单击按钮添加新的excel工作表。

EN

Sub sjvyv()
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mm.dd")
    Dim ws As Worksheet, i As Long
    ReDim N(1 To Sheets.Count)

    i = 1
    For Each ws In Sheets
        If Left(ws.Name, 5) = szTodayDate Then
            N(i) = Mid(wsname, 6)
            i = i + 1
        End If
    Next ws

    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = szTodayDate & "." & i
End Sub

Sub AddSheet()
    Dim TodayDate As String
    Dim i As Integer
    TodayDate = Format(Date, "mm.dd")
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    i = 1

    Do While Not SheetNameAvailable(TodayDate & "." & i)
        i = i + 1
    Loop

    ws.Name = TodayDate & "." & i
End Sub

Function SheetNameAvailable(SheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Err.Clear
    Set ws = ThisWorkbook.Worksheets(SheetName)
    SheetNameAvailable = (Err.Number <> 0)
    On Error GoTo 0
End Function

On Error Resume Next
Set tempWS = Sheets(szTodayDate)

ws.Name = szTodayDate & IIf(tempWS Is Nothing, "", GetSheetCount(szTodayDate))

Set tempWS = Nothing

On Error GoTo 0

Function GetSheetCount(dateToTest) As Integer
    Dim i As Integer

    i = 1

    For Each sh In ThisWorkbook.Sheets
        If sh.Name Like dateToTest & "*" Then
            i = i + 1
        End If
    Next

    GetSheetCount = i
End Function


ws.Name = szTodayDate & ThisWorkbook.Sheets.Count + 1