Dim d As New Dictionary‘后面好像没用上
Dim arr1()
Dim ksname As String
rowend = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
If rowend = 3 Then rowend = 4
ActiveSheet.Range("A4:AE66") = ""
ksname = ActiveSheet.Range("C2").Value
rowend = Sheet20.Range("A" & Sheet3.Rows.Count).End(xlUp).Row’sheet3个工作表在你的工作薄中没有啊