移除 external/internal defect間不同的columns RemoveDistinctColumns

Function reg(str As String, pattern As String)
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.pattern = pattern
    regEx.Global = True
    regEx.IgnoreCase = True
    Set Matches = regEx.Execute(str)

    If Matches.Count = 0 Then
        reg = "Not Found"
    Else
        reg = Matches(0).Value
    End If

End Function

Sub RemoveDistinctColumns()

    Dim sel As String
    Dim title As String
 
    For i = 1 To 60
        title = Cells.Item(1, i)

       
        If (reg(title, "Artifact ID|Title|Description|Submitted By|Submitted On|Last Modified|Closed|Status|Category|Priority|Assigned To|Reported in Release|Fixed in Release|Estimated Effort|Actual Effort|Planned For|Review Peer|Verifier|Precausation|Injection Cause|Application For|Resolved&Unit Test Detail|Injection Phase|Review Finish Day|Module|Expect Finish Date|Injection Version|Analyze Finish Date|Verify Finish Day|Severity|Defect 提出日期|Rejection Reason|Rejection Reason Details|Req ID|Detected Env|Owner|Owner  Finish Date|Inject By|Client ID|Discover Phase|Responsible Party|Monitoring Status|Dependency Parent|Dependency Children|Item Link") = "Not Found") Then
     
     
            sel = sel + Columns(i).Address + ","
        ElseIf title = "Failed Category" Then
            sel = sel + Columns(i).Address + ","
        End If
     
     
    Next
 
 
 
    sel = Left(sel, Len(sel) - 1)
    Range(sel).Select


    Selection.Delete Shift:=xlToLeft
End Sub