我在 A 列中有从 A2 开始的条目。有些单元格包含日期,有些是空白,有些单元格包含文本和数字。
我想清除不包含有效日期的单元格。
VBA 有一个 IsDate 函数,它在确定单元格的内容是否为合法日期方面非常可靠。
sub scrubNonDates()
dim i as long
with worksheets("sheet1")
for i=2 to .cells(.rows.count, "A").end(xlup).row
if not ISDATE(.cells(i, "A")) then .cells(i, "A").clear
next i
end with
end sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句