再次改写

row = Range(“A1048576”).End(xlUp).row

                Set wb = Workbooks.Add
                wb.Sheets(1).Range("a1") = GetColName(j) & i & "单元格内容长度不为4！"                    wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False                    wb.Close False


                Set wb = Workbooks.Add
                wb.Sheets(1).Range("a1") = GetColName(j) & i & "单元格内容长度不为2！"                    wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False                    wb.Close False


    Set wb = Workbooks.Add
    wb.Sheets(1).Range("a1") = mzchongfu & "单元格内容重复!"        wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False        wb.Close False


        Set wb = Workbooks.Add
        wb.Sheets(1).Range("a1") = ywchongfu & "单元格内容重复!"            wb.SaveAs ThisWorkbook.Path & "\错误输出结果" & Format(Now, "yyyymmddhhmmss") & ".txt", FileFormat:=xlText, CreateBackup:=False            wb.Close False