Sub DELCO()
lie = 1 '将筛选后的第一列数据提取
j = 1 '写入sheet2的行变量For hang = 1 To ActiveSheet.UsedRange.Rows.Count '遍历第一行到当前表总行数 If[......]Sub DELCO()
lie = 1 '将筛选后的第一列数据提取
j = 1 '写入sheet2的行变量For hang = 1 To ActiveSheet.UsedRange.Rows.Count '遍历第一行到当前表总行数 If[......]