Sub test()
    
    Sheets("打印发货单").Cells.Clear
    Set dNum = CreateObject("scripting.dictionary")
    With Sheets("发货单明细")
        LastRowA = .Cells(Rows.Count, "a").End(xlUp).Row
        For i = 2 To LastRowA
            Key = .Cells(i, 8).Value
            dNum(Key) = ""
        Next
            arr = dNum.keys
            '.Range("a12").Resize(1, UBound(arr) + 1) = arr
            '.Range("a12").Resize(UBound(arr) + 1) = Application.Transpose(arr)
        
        For i = 0 To UBound(arr)
                    Sheets("模板").[A3] = "客户:"
                    Sheets("模板").[c3] = ""
                    Sheets("模板").[f2] = ""
                    Sheets("模板").Range("A5:F14").ClearContents
        
            k = 0
            For j = 2 To LastRowA
                If .Cells(j, 8) = arr(i) Then
                    Sheets("模板").[A3] = "客户:" & .Cells(j, 2)
                    Sheets("模板").[c3] = .Cells(j, 1)
                    Sheets("模板").[f2] = arr(i)
                    
                    Sheets("模板").Cells(5 + k, 1) = .Cells(j, 3)
                    Sheets("模板").Cells(5 + k, 2) = .Cells(j, 4)
                    Sheets("模板").Cells(5 + k, 3) = .Cells(j, 5)
                    Sheets("模板").Cells(5 + k, 4) = .Cells(j, 6)
                    Sheets("模板").Cells(5 + k, 5) = .Cells(j, 7)
                    k = k + 1
                End If
            
            Next
            
            Sheets("模板").Range("A1:g19").Copy
            Sheets("打印发货单").Activate
            Sheets("打印发货单").Cells(i * 19 + 1, 1).Select
            
            
            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            ActiveSheet.Paste
            
        
        Next
     
            
    End With

End Sub
'1 ,18,35
'1 2 3
 

求源代码，要求写出日报表，月报表和年报表。采纳后可答谢。

下面是我部分的代码，求大佬指点，弄了一天了看不出来到底哪里错了，情况是这样的：

1.如果gameover=0，也就是if里面的语句不执行的话，整个程序完全正常，但是只要gameover=1了，函数结束的时候就会跳出stack around the variable 'insx2' was corrupted;

2.如果把insx1和insx2放到全局变量上，就会显示stack around the variable 'score' was corrupted，如果把score也放到全局变量上，游戏结束时直接跳出Buffer!=nullptr&&buffer_count>0；

3.如果给score初始化，也会跳Buffer!=nullptr&&buffer_count>0.

实在不知道怎么回事了，跪求大佬指点！！

	char insx1[] = "按AWSD或者方向键控制方向";
	char insx2[] = "连按方向键可以加速";
	WriteConsoleOutputCharacter(*hOutPutPoint, insx1, strlen(insx1), cursor, &bytes);
	cursor.Y++;
	WriteConsoleOutputCharacter(*hOutPutPoint, insx2, strlen(insx2), cursor, &bytes);
	SetConsoleActiveScreenBuffer(*hOutPutPoint);
	if (gameover) {
		char score[100] = { 0 };
		sprintf_s(score, strlen(score),"您的分数为:%d重来请按1，退出可按任意键", (arr[head_v][head_h] - 2) * 3);
		cursor.Y++;
		WriteConsoleOutputCharacter(*hOutPutPoint, score, strlen(score), cursor, &bytes);
		if (_getch() == 1)main();
	}

萌新求教，请问码代码的时候如何快速移动光标，除了用方向键还有其他办法吗，环境为Dev C++

如图，光标往前移动几格或移动到上一行或移动到 } 后，都该如何操作呢？

实现下面的的修改操作

 @Modifying
    @Query("update dmp_collection_offline  set successNum= :successNum,failNum= :failNum,endDate=:endDate where id= :id ")
    fun updateByid1(@Param("id") id: String,
                   @Param("successNum") successNum: Int?,
                   @Param("failNum") failNum: Int?,
                   @Param("endDate") endDate: Date?)