EXCELでのデータ処理についての質問です。

久しぶりに長いマクロを作ってみました（と言っても100行しかない・・・笑）。

ダウンロードしたファイルで動作は確認済みです。

Option Explicit

Const sInFile1_p1 As String = "hoge_"
Const sInFile1_p2 As String = "1130??.csv"
Const sInFile2_p1 As String = "lalala_"
Const sInFile2_p2 As String = "09_z.csv"


Sub a()
    Dim sToday As String
    Dim sCurPath As String
    
    Dim oWs0 As Workbook    ' 自身
    Dim oWs1 As Workbook    ' 入力1
    Dim oWs2 As Workbook    ' 入力2
    
    '入力ファイルのオープン
    Set oWs0 = ActiveWorkbook
    sToday = Format(Date, "yyyymmdd")
    
    '起動場所をファイル格納場所とみなす
    sCurPath = ActiveWorkbook.Path
    
    Set oWs1 = OpenBook(sCurPath & "\" & sInFile1_p1 & _
        sToday & sInFile1_p2)
    If IsNull(oWs1) Then Exit Sub
    
    Set oWs2 = OpenBook(sCurPath & "\" & sInFile2_p1 & _
        sToday & sInFile2_p2)
    If IsNull(oWs2) Then Exit Sub
    
    ' １つ目のデータを貼り付け
    Call getCells(oWs1, sInFile1_p1, True)
    ActiveSheet.Paste oWs0.Sheets(1).Range("A1")
    
    ' ２つ目のデータを貼り付け
    Call getCells(oWs2, sInFile2_p1, False)
    ActiveSheet.Paste oWs0.Sheets(1).Range("B1")
    
    ' 比較式を入れる
    oWs0.Activate
    Range("C2", "C" & Range("A1").CurrentRegion.Rows.Count).Formula = "=A2=B2"
    Range("A1").Select
        
    '入力ファイルをクローズする（確認時はコメントにするといい）
    Application.DisplayAlerts = False
    oWs2.Close
    oWs1.Close
    Application.DisplayAlerts = True
    
End Sub

' 曖昧な名前の入力ファイルを開く
'ret=ファイル有:ハンドル、無：Null

Function OpenBook(sFileName As String) As Workbook
    
    Dim sGetFileName As String
    sGetFileName = Dir(sFileName)
    If sGetFileName = "" Then
        MsgBox "入力ファイルがありません:" & sFileName
        Set OpenBook = Null
        Exit Function
    End If
    Workbooks.Open Filename:=sGetFileName
    Set OpenBook = ActiveWorkbook

End Function

'任意の位置から開始している行範囲をコピーする
'sHead:項目名、bFlg:フィルタ有無
Sub getCells(oWs As Workbook, sHead As String, bFlg As Boolean)

    Dim oLeftTop As Range   ' Sort用左上セル格納

    oWs.Activate
    '先頭からデータ開始しているときはヘッダ用に1行入れる
    If Range("A1").Value <> "" Then
        Rows("1:1").Insert Shift:=xlDown
        Range("A1").Select
    Else
        Range("A1").End(xlDown).Offset(-1, 0).Select
    End If
    Set oLeftTop = ActiveCell
    oLeftTop.Value = sHead

    With Selection
        .CurrentRegion.Select
        .Sort Key1:=oLeftTop, Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            SortMethod:=xlPinYin, DataOption1:=xlSortNormal
        'bug? (1回だと正しくソートされず)
        .Sort Key1:=oLeftTop, Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            SortMethod:=xlPinYin, DataOption1:=xlSortNormal
           
        If bFlg Then
            .AutoFilter
            .AutoFilter Field:=2, Criteria1:="0"
        End If
        .CurrentRegion.Copy
    End With
End Sub

注意：

●マクロを該当のフォルダに入れる前提です。

　　→　本当は上位フォルダにマクロをおいて、毎日のファイルはyyyymmddのフォルダに入れるのが楽と思います。

●結果は、画面上に出ますが、保存はしていません。

●元々の要求仕様上、１件でも違っていると、その後は、全部Falseになります

→本当はマッチしているのとそうではないのが出したいのだと思うのですが、、、

まあ、通常は全件マッチしているので、そこまでは不要なのですね。

変数が多くてわかりずらいコードになってしまいましたがVBAで作ってみました。

CSVファイルならばExcelで開かずに読み込んで処理するという方法もありましたが、作業手順どおりにExcelで開いて処理するように作ってみました。

使い方は、ファイルを開くダイアログが出るので、Book1かBook2のどちらかを選べば同じ日付のもう一つも開いて処理するようにしています。

Sub Macro()
    Dim dirPass As String
    Dim str As String
    Dim shizuke As String
    Dim pass1 As String
    Dim pass2 As String
    Dim WB1 As Workbook
    Dim WB2 As Workbook
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    Dim ws As Worksheet
    Dim OpenFileName As String
    
    '開くブックの取得
    OpenFileName = Application.GetOpenFilename()
    If OpenFileName = "False" Then Exit Sub
    
    If InStr(1, OpenFileName, "_") <= 0 Then Exit Sub
    shizuke = Mid(OpenFileName, InStrRev(OpenFileName, "_", Len(OpenFileName) - 7) + 1, 8)
    dirPass = Mid(OpenFileName, 1, InStrRev(OpenFileName, "\") - 1)
    
    'ファイルが存在するか調べる
    pass1 = Dir(dirPass & "\hoge_" & shizuke & "1130*.csv")
    pass2 = Dir(dirPass & "\lalala_" & shizuke & "09_z.csv")
    If pass1 = "" Or pass2 = "" Then
        MsgBox "日付のファイルが存在しません"
    End If
    
    Set ws = ActiveSheet
    
    'ブックを開く
    On Error Resume Next
    Set WB1 = Workbooks.Open(dirPass & "\" & pass1)
    Set WB2 = Workbooks.Open(dirPass & "\" & pass2)
    On Error GoTo 0
    
    'hogeシートをコピー
    With WB1.Worksheets(1)
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        j = 1
        For i = 1 To lastRow
            If .Cells(i, 2).Value = "0" Then
                ws.Cells(j, 1).Value = .Cells(i, 1).Value
                j = j + 1
            End If
        Next i
    End With
    
    'lalalaシートをコピー
    With WB2.Worksheets(1)
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        j = 1
        For i = 1 To lastRow
            If .Cells(i, 1).Value <> "" Then
                ws.Cells(j, 2).Value = .Cells(i, 1).Value
                j = j + 1
            End If
        Next i
    End With
    
    '降順で並べ替え
    ws.Columns("A:A").Sort Key1:=ws.Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
    ws.Columns("B:B").Sort Key1:=ws.Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
     
    '判定
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastRow
        If ws.Cells(i, 1).Value = ws.Cells(i, 2).Value Then
            ws.Cells(i, 3).Value = "TRUE"
        Else
            ws.Cells(i, 3).Value = "FALSE"
        End If
    Next i
End Sub