Range("a7") = "=text(a6," & Chr(34) & "yymmdd" & Chr(34) & ")&text(counta(学号!a4:a65536)," & Chr(34) & "000" & Chr(34) & ")"
