Sub 宏1() ' ' 宏1 宏 ' ' Range("E3:E33").Select Selection.Copy tyear = 2010 tmonth = 1 For startIndex = 3 To 2701 Step 31 '2436 Range("E" & startIndex).Select ActiveSheet.Paste For i = 0 To 30 Range("D" & (startIndex + i)).Select d = "" & tyear If tmonth < 10 Then d = d & "0" End If d = d & tmonth ActiveCell.FormulaR1C1 = d Next tmonth = tmonth + 1 If tmonth = 13 Then tyear = tyear + 1 tmonth = 1 End If Next End Sub Sub 宏2() ' ' 宏1 宏 ' ' col = 5 For startIndex = 3 To 2701 Step 31 '2536 Sheets("Sheet1").Select Range(Cells(2, col), Cells(32, col)).Select ' e2:e30 Application.CutCopyMode = False Selection.Copy Sheets("批发_20180322").Select ' Sheets("Sheet2").Select Range(Cells(startIndex, 7), Cells(startIndex, 7)).Select ' g3:g3 ActiveSheet.Paste col = col + 1 Next End Sub Sub 宏111() ' ' 宏1 宏 ' ' Range("E3:E33").Select Selection.Copy tyear = 2010 For startIndex = 2700 To 2917 Step 31 '2729 Range("E" & startIndex).Select ActiveSheet.Paste For i = 0 To 30 Range("D" & (startIndex + i)).Select d = "" & tyear & "99" ActiveCell.FormulaR1C1 = d Next tyear = tyear + 1 Next End Sub
Sub 宏2() ' ' 宏2 宏 ' ' For startIndex = 2 To 258 Step 1 ' rowStart = (startIndex - 2) * 35 + 2 Sheets("源表").Select Range("C1:AK1").Select Selection.Copy Sheets("目标表").Select Range("D" & rowStart).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("源表").Select Range("C" & rowStart & ":AK" & rowStart).Select Application.CutCopyMode = False Selection.Copy Sheets("目标表").Select Range("F" & rowStart).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("源表").Select ActiveWindow.ScrollColumn = 1 Range("A" & startIndex).Select Application.CutCopyMode = False Selection.Copy Sheets("目标表").Select Range("C" & rowStart).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("C" & rowStart).Select Selection.Copy For i = 1 To 34 tmpRowIndex = rowStart + i Range("C" & tmpRowIndex).Select ActiveSheet.Paste Next Next 'ActiveWorkbook.Save End Sub
Sub 宏2() ' ' 宏2 宏 ' ' For startIndex = 2 To 50 Step 1 '258 rowStart = (startIndex - 2) * 35 + 2 Sheets("源表").Select Range("C" & startIndex & ":AK" & startIndex).Select Application.CutCopyMode = False Selection.Copy Sheets("目标表").Select Range("F" & rowStart).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("源表").Select Range("C1:AK1").Select Selection.Copy Sheets("目标表").Select Range("D" & rowStart).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("源表").Select ActiveWindow.ScrollColumn = 1 Range("A" & startIndex).Select Application.CutCopyMode = False Selection.Copy Sheets("目标表").Select Range("C" & rowStart).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("C" & rowStart).Select Selection.Copy For i = 1 To 34 tmpRowIndex = rowStart + i Range("C" & tmpRowIndex).Select ActiveSheet.Paste Next Next 'ActiveWorkbook.Save End Sub