Sub dlt() '在VBA中自铅指定义一个块
For lie = 1 To 15 '搜索前15列,其实可是任意较大的汪键数槐陵配
If IsDate(Cells(1, 1)) Then Exit Sub '判断A1中的值是不是日期,是,就退出程序,
Range( “1:1
是哪一种睁雹销日期格悉游式?
参考:方法一
Sub Example()
Dim Counter
For Counter = 1 To 15
If IsDate(WorksheetFunction.Substitute(Cells(1, 1).Value, ".", "-")) Then Exit Sub
Range("A:A"肆前).Delete
Next
End Sub