GZ模板定义名称

​Sub defineAROW()

    ActiveWorkbook.Names.Add Name:="AROW", RefersTo:="=INDIRECT(""A""&ROW())"

    ActiveWorkbook.Names.Add Name:="CROW", RefersTo:="=INDIRECT(""C""&ROW())"

    ActiveWorkbook.Names.Add Name:="DROW", RefersTo:="=INDIRECT(""D""&ROW())"

    ActiveWorkbook.Names.Add Name:="EROW", RefersTo:="=INDIRECT(""E""&ROW())"

    ActiveWorkbook.Names.Add Name:="KROW", RefersTo:="=INDIRECT(""K""&ROW())"

    ActiveWorkbook.Names.Add Name:="Jcolumn", RefersTo:="=VALUE(IF(Kcolumn=""1"",1,Kcolumn-1))"

    ActiveWorkbook.Names.Add Name:="Kcolumn", RefersTo:="=MID(CELL(""filename"",AROW),FIND(""]"",CELL(""filename"",AROW))+1,255)"

End Sub