如何使用VBA将验证应用于每列

Question

我有工作表超过100列中的数据。 在sheet2中，我为每一列提供了验证公式（正则表达式）。 我想通过在将数据粘贴到sheet3之前检查每一列的验证公式来将数据从sheet1复制到sheet3。 如果满足公式，则将其复制到sheet3中并用绿色填充该单元格；如果不满足，则将数据复制到sheet3中并用红色填充该单元格。

Sub test()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim wbk As Workbook
    Dim sRegex As Variant
    Dim lColumn As Long
    Dim sText As String
    Set sRegex = CreateObject("VBScript.RegExp")
    Set wb = ActiveWorkbook
    wb.Sheets("Sheet3").Activate
    lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    lColumn = wb.Sheets("Sheet3").UsedRange.Column + wb.Sheets("Sheet3").UsedRange.Columns.Count - 1
    For i = 1 To lColumn
    temp = Cells(1, i).Value
    For j = 2 To lastRow
    sText = Cells(j, i).Value
        Set wb = ActiveWorkbook
         sheetName = ActiveSheet.Name
    wb.Sheets("Sheet4").Activate
    sheetName = ActiveSheet.Name

    lRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    For k = 2 To lRow
    temp2 = wb.Sheets("Sheet4").Cells(k, 1).Value
    If wb.Sheets("Sheet4").Cells(k, 1).Value = temp Then
   temp1 = wb.Sheets("Sheet4").Cells(k, 2).Value
    sRegex.Pattern = wb.Sheets("Sheet4").Cells(k, 2).Value
    sRegex.Global = True
     Debug.Print TestRegex(sText, sRegex)
     Else
     End If
    Next k  
    Next j
    Next i
End Sub

Function TestRegex(sInput As String, sRegex As Variant) As Boolean
    TestRegex = sRegex.test(sInput)
   ' ActiveCell.Interior.ColorIndex = 3
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    wb.Sheets("Sheet3").Activate
    Cells(Selection.Row, Columns.Count).End(xlToLeft).Offset(, 1).Select
    'wb.Sheets("Sheet3").Cells(2, 9).Value = TestRegex
    ActiveCell.Value = TestRegex

End Function

Answer 1

我相信您知道如何复制数据，但是您不知道如何使用Regex验证对象。

如果我对您的理解正确，那么您将逐行复制，并且要基于REGEX表达式验证每行（从行中）。

我不太确定这样做的速度如何，但是您需要做的是首先创建一个正则表达式的对象，如下所示（我使用Late Binding，但是您可以随意将其添加到References中并使用Early Binding）。

以下是一些入门知识：

Function TestRegex(sInput As String, sRegex As Variant) As Boolean
    TestRegex = sRegex.test(sInput)
End Function


Sub test()
    Dim sRegex As Variant
    Set sRegex = CreateObject("VBScript.RegExp")
        sRegex.Pattern = "^[A-Z]" 'regex of your choice
        sRegex.Global = True

    Dim sText As String
        sText = "abc123"

    Debug.Print TestRegex(sText, sRegex)
End Sub