在第vba列

Question

我正在尝试创建一个函数，它将扫描一列并删除（或替换为任何形式）任何日期的任何日期。 8/24或8/24/16。我一直无法找到一种有效的方法。

Answer 1

检查以下代码。猜猜这会做什么

    Sub Change_Dtfld2Blank()
    cllRange = 100 ''SpecifyNo of rows in question
    clNum = 1 '''Specify Colum Number
    sSheetname = "Sheet2" ''Specify Sheet name

    For i = 1 To cllRange
        If IsDate(Sheets(sSheetname).Cells(i, clNum).Value) Then
            Sheets(sSheetname).Cells(i, clNum) = ""
        End If
    Next i
    End Sub

jlo6687.info