【ExcelVBA】IPアドレスから接続スイッチを特定する。MACテーブルとARPテーブルを自動読み込み

Sub MACARPテーブル紐づけ()
    'シート文字を全削除
    Cells.Clear
    
    '基本情報設定
    検索パス = ThisWorkbook.Path
    MACファイル検索文字 = "*mac.txt"
    ARPファイル検索文字 = "*arp.txt"
    
    'ヘッダを作成
    ヘッダ = Array("ホスト名", "インタフェース", "MACアドレス", "紐づくIPアドレス", "", "MACアドレス", "IPアドレス")
    Range("A1:G1") = ヘッダ
    
    Dim ファイルパスリスト()
    Dim ファイル名リスト()
    
    'パスからファイル名とファイルパスを取得
    Call ファイル情報取得(検索パス, ファイルパスリスト, ファイル名リスト)
    
    'ファイル数だけ繰り返し
    For i = LBound(ファイル名リスト) To UBound(ファイル名リスト)
        Select Case True
            'MACファイルだった場合の処理値を設定
            Case ファイル名リスト(i) Like MACファイル検索文字
                セレクト列1 = 3
                セレクト列2 = 1
                貼り付け開始列 = 2
                貼り付け終了列 = 3
                
            'ARPファイルだった場合の処理値を設定
            Case ファイル名リスト(i) Like ARPファイル検索文字
                セレクト列1 = 3
                セレクト列2 = 1
                貼り付け開始列 = 6
                貼り付け終了列 = 7
            Case Else
                GoTo 次へ
        End Select
        
        'ファイルの内容をリストに格納
        リスト = ファイルの内容を配列へ格納(ファイルパスリスト(i))
        
        'リストの内容から必要なデータのみ抽出
        テーブル = セレクト(リスト, セレクト列1, セレクト列2)
        
        'セルの貼り付け範囲を特定
        開始行 = Cells(Rows.Count, 貼り付け開始列).End(xlUp).Row + 1
        終了行 = Cells(Rows.Count, 貼り付け開始列).End(xlUp).Row + UBound(テーブル)
        
        'データを貼り付け
        Range(Cells(開始行, 貼り付け開始列), Cells(終了行, 貼り付け終了列)) = テーブル
        
        'MACアドレスの場合のみファイル名を貼り付け
        If ファイル名リスト(i) Like MACファイル検索文字 Then
            Range(Cells(開始行, 1), Cells(終了行, 1)) = ファイル名リスト(i)
        End If
次へ:
    Next
    
    'VLOOKUP関数貼り付け用のスペースを取得
    全テーブル = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 4))
    
    'スペースにVLOOKUP関数を準備
    For i = 2 To UBound(全テーブル)
        全テーブル(i, 4) = "=VLOOKUP(C" & i & ",$F$2:$G$100001,2,0)"
    Next i
    
    'VLOOKUP関数を貼り付け
    Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 4)) = 全テーブル

End Sub

Function ファイル情報取得(パス, ByRef ファイルパスリスト, ByRef ファイル名リスト)
    Dim FSO, ファイルオブジェクト As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
     
    Dim 仮ファイルパスリスト()
    Dim 仮ファイル名リスト()
    Dim ループカウンタ As Long
    ループカウンタ = 0
    For Each ファイルオブジェクト In FSO.GetFolder(パス).Files
        ReDim Preserve 仮ファイルパスリスト(ループカウンタ)
        ReDim Preserve 仮ファイル名リスト(ループカウンタ)
        仮ファイルパスリスト(ループカウンタ) = ファイルオブジェクト.Path
        仮ファイル名リスト(ループカウンタ) = ファイルオブジェクト.Name
        ループカウンタ = ループカウンタ + 1
    Next
    ファイルパスリスト = 仮ファイルパスリスト
    ファイル名リスト = 仮ファイル名リスト
End Function
Function ファイルの内容を配列へ格納(ファイルパス)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set テキストファイル = FSO.OpenTextFile(ファイルパス)
    ファイルの内容を配列へ格納 = Split(テキストファイル.ReadAll, vbLf)
    テキストファイル.Close
End Function
Function セレクト(リスト, 列1, 列2)
    i = 1
    Dim テーブル()
    For Each ライン In リスト
        ReDim Preserve テーブル(1 To 2, 1 To i)
        スペース削除 = WorksheetFunction.Trim(ライン)
        On Error Resume Next
            テーブル(1, i) = Split(スペース削除)(列1)
            テーブル(2, i) = Split(スペース削除)(列2)
            i = i + 1
    Next
    セレクト = WorksheetFunction.Transpose(テーブル)
End Function