Sub addtable()
'
' addtable Macro
' 宏由 Administrator 录制,时间: 2020/11/15
'
'
Dim number,numberstart
number = Sheets("汇总").UsedRange.Rows.Count
numberstart = number - 11
Dim a As String
a = Format(DateAdd("d", -1, Date), "m.d")
Dim i As Integer
Dim s,clearst,clearend As Integer
clearst = number + 2
clearend = number + 11
For i = Worksheets.Count - 2 To 1 Step -1
s = s + 1
IF s >= 2 Then
Sheets(s).Activate
Rows(numberstart & ":" & number).Select
Selection.Copy
Range("A" & number + 1).Select
ActiveSheet.Paste
Range("A" & numberstart+13 & ":A" & number + 12).Select
Selection.Formula = a
IF s >= 3 Then
Range("C" & clearst & ":E" & clearend).ClearContents
Range("H" & clearst & ":I" & clearend).ClearContents
Range("M" & clearst & ":O" & clearend).ClearContents
End If
End If
Next
End Sub