u011270458的专栏

Sub addtable()'' addtable Macro' 宏由 Administrator 录制，时间: 2020/11/15''Dim number,numberstartnumber = Sheets("汇总").UsedRange.Rows.Countnumberstart = number - 11Dim a As Stringa = Format(DateAdd("d", -1, Date), "m.d")Dim i As Integer Dim s,cl..

Sub STARTING()'' STARTING Macro' 宏由 Administrator 录制，时间: 2020/08/12'' Range("A1:B7").Select Range("B7").Activate Rows("1:7").Delete Shift:=xlShiftUp Columns("G:J").Select Selection.Delete Shift:=xlShiftToLeft Columns("K:L").Se...

Sub funcff()Dim i, j, l, o, d, hl = Columns.Countl = 21j = 2o = 22d = 4h = 20For i = 1 To lCells(h, j).Selectj = j + 7Selection.CopyCells(o, 1).SelectActiveSheet.PasteCells(h, d).Selectd = d + 7Selection.CopyCells(o, 2).Selecto = o +

Sub acknowledge()'' acknowledge Macro' 宏由 Administrator 录制，时间: 2020/08/07'' Range("A1:B7").Select Range("B7").Activate Rows("1:7").Delete Shift:=xlShiftUp Columns("C:E").Select Range("E1").Activate Selection.Copy Filename...