Sub aa()
a = 1
For i = 1 To Range("a56565").End(3).Row
If Weekday(DateSerial(Year(Cells(i, 1)), Month(Cells(i, 1)), Day(Cells(i, 1))), vbMonday) = 5 Then
Sheets("Sheet2").Cells(a, 1).Value = "第" & a & "周末"
Sheets("Sheet2").Cells(a, 2).Value = Cells(i, 3)
a = a + 1
End If
Next
End Sub