Sub NDataCheck() '获取E列的数据,并校验 end_row = Range("E65536").End(xlUp).Row 'E列数据最后行号 For i = 2 To end_row 'If Cells(i, "E").Interior.ColorIndex 43 T...【阅读全文】
'''''''''''''''''''''''''''' 通用数据校验宏'''''''''''''''''''''''''''Dim gTestVal(100) As StringSub TblCheckBased(TblNum As Integer) Dim CurTable As Table '行列号 Dim rowNum_start As Integer &...【阅读全文】