Question

excel中，如何删除列的问题，用vba编码。

我的条件是，我有一列数据全部是日期，我想将该列之前的列全部删掉。该列之前的列数不超过15个，删除完后自动将列左移，也就是说结果应该是含有日期的列自动变成了首列。谢谢！
补充一下，含有日期的列的位置不是固定的，可以是第一列以后和第十五列之间的任何一列。日期格式是yyyy.mm.dd

Answer 1

Sub dlt() '在VBA中自定义一个块
For lie = 1 To 15 '搜索前15列，其实可是任意较大的数
If IsDate(Cells(1, 1)) Then Exit Sub '判断A1中的值是不是日期，是，就退出程序，
Range( “1：1

Answer 2

是哪一种日期格式？
参考：方法一
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