Question

我需要查找给定的列名，例如在图片中查找是否存在列名“ FileNumber”。如果确实存在，我想查看该列以查看所有数字是否都是给定数字（例如，必须为“ 101”）；如果不正确，我要突出显示该数字（在此处突出显示“ 102”）

如何在VBA中实现这一目标？

Sub FindColumns()  
    Dim rngToSearch As Range
    Dim lookToFind As Variant
    Dim iCtr As Long

    Set rngToSearch = ThisWorkbook.Worksheets("Sheet").Range("A1:C1")

    lookToFind = Array("Filename", "FileNumber", "Author") 'add all Column header that you want to check

    With rngToSearch
        For iCtr = LBound(lookToFind) To UBound(lookToFind)
            If WorksheetFunction.CountIf(rngToSearch, lookToFind(iCtr)) > 0 Then ' Check if column is preset or not
                    MsgBox lookToFind(iCtr) & " Column Found" ' Pop-up msg if column is exist
            Else
                    MsgBox lookToFind(iCtr) & " Column Not Found" ' Pop-up msg if column is Not Found
            End If
        Next
    End With
End Sub

Answer 1

使用Application.WorksheetFunction.Match查找您要查找的名称的列号。然后对列进行检查。

这里是一个例子：

Option Explicit

Public Sub ValidateData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet")

    Dim ColumnNames() As Variant
    ColumnNames = Array("Filename", "FileNumber", "Author") 'add all Column header that you want to check

    Dim Headers As Variant 'read all headers into an array
    Headers = ws.Range("A1", ws.Cells(1, ws.Columns.Count).End(xlToLeft)).Value

    Dim HeaderColumn As Long 'this is the column number where the header was found

    Dim ColName As Variant
    For Each ColName In ColumnNames 'loop through your list of names
        HeaderColumn = 0 'initialize
        On Error Resume Next 'next line throws error if it does not match
        HeaderColumn = Application.WorksheetFunction.Match(ColName, Headers, 0)
        On Error GoTo 0 're-activate error reporting

        If HeaderColumn <> 0 Then
            'header name was found
            MsgBox ColName & " Column found"

            'perform different checks on each column
            Select Case ColName
            Case "FileNumber"
                CheckFileNumberColumn ws.Range(ws.Cells(2, HeaderColumn), ws.Cells(ws.Rows.Count, HeaderColumn).End(xlUp))

            'Case "Author"  'add  other cases as needed
                'CheckAuthorColumn ws.Range(ws.Cells(2, HeaderColumn), ws.Cells(ws.Rows.Count, HeaderColumn).End(xlUp))

            End Select
        Else
            'header name was not found
            MsgBox ColName & " Column not found"
        End If
    Next ColName
End Sub

'this is the procedure to check the FileNumber column
Private Sub CheckFileNumberColumn(DataToValidate As Range)
    Dim iRow As Long
    For iRow = 1 To DataToValidate.Rows.Count
        If DataToValidate.Cells(iRow, 1).Value <> 101 Then
            DataToValidate.Cells(iRow, 1).Interior.Color = RGB(255, 0, 0)
        End If
    Next iRow
End Sub

检查给定字符串的特定列名，然后突出显示与VBA中给定值不匹配的列中的值

1 个答案: