时间对应的秒数被批量清零

yue5lin

    我用VBA写了一个程序，其中有一个单元格的数据是：2018/4/6  13:14:05，在对这个数据进行加减运算，并按一定条件筛选后，原有的单元格内容变成了：2018/4/6  13:14:00，秒数都被清零了，原来的数据有6万多行，每一行的秒数都变成了0，一直找不出原因在哪，请各位高手帮忙解惑，不胜感激。
    涉及到的VBA编码如下：
    Columns("X:X").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("X1").FormulaR1C1 = "leadtime"
    Range("X2").Select
    Range("X2").FormulaR1C1 = "=N(RC[-2])-RC[-21]"
    Selection.AutoFill Range("X2:X" & [A500000].End(xlUp).Row)
    Range("X2:X" & [A500000].End(xlUp).Row).Select
    Selection.NumberFormatLocal = "G/通用格式"
    ActiveSheet.UsedRange.AutoFilter Field:=24, Criteria1:=">30" _
        , Operator:=xlOr, Criteria2:="<=0"
    Selection.ClearContents
    ActiveSheet.ShowAllData

yue5lin

哪位大大来帮忙解决一下，困扰好久了，每次源数据都被莫名其妙改动了。

ww87725244

还是上传附件吧

yue5lin

单位的电脑设置了权限，强制不让上传附件...请见谅

huang1314wei

不上附件就解决不了