VBA：想要将特定年份的某些月份数据提取到相应的工作表中

Question

我使用此代码创建不同年份的新工作表（2017年，2016年，2015年......）。但是我仍然需要将“数据”表中的数据提取到相应的“年”表

中

我的数据会在日期为DMYYYY格式的地方。 日期记录

2/1/1997 XXX - ＆gt;去“1997”

23/12 // 2017 xxxx - ＆gt;去“2017”

代码：

Sub Select_Month_Year_Data()

    Dim cell As Excel.Range
    Dim wsWithSheetNames As Excel.Worksheet
    Dim wbToAddSheetsTo As Excel.Workbook

    Worksheets("Ref").Select
    Set wsWithSheetNames = ActiveSheet
    Set wbToAddSheetsTo = ActiveWorkbook

    For Each cell In wsWithSheetNames.Range("A2:A32")

        With wbToAddSheetsTo

            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = cell.Value

            If Err.Number = 1004 Then
                Debug.Print cell.Value & " already used as a sheet name"
            End If

            On Error GoTo 0

       End With

   Next cell

End Sub