验证列

Question

我想验证名为'Header1'和'Header2'的2个不同的列。两列都必须具有数值，如果不是文本，特殊字符等，宏应该粘贴否。该单元格（有错误）在名为“Error_Sheet”的另一个工作表的“B”列中。

对于列'Header1'，单元格'A2'的值应该贯穿整列。对于列'Header2'，B2的值应该整个列都存在。

列中没有空格。

这是我的代码： -

Sub CellCheck()

    Dim Header(1 To 2) As String
    Header(1) = "Header1"
    Header(2) = "Header2"

    Dim rCell As Range
    Dim sMyString As String

    On Error GoTo ErrorHandle

    Set rCell = Range("A2:A)

    If IsNumeric(rCell.Value) = False And _
       IsError(rCell.Value) = False Then

        Sheets("error_sheet").Range("A" & Row).Value = "There are " & _
        Application.WorksheetFunction.IsNumeric(r) & " Rows with error in column" & _
        Header(i)

        On Error GoTo ErrorHandle

        Set rCell = Range("B2:B)

    End If

End Sub