Sub CompareAndCopy_Fast_WithInitialFolder() Dim refWorkbook As Workbook Dim refSheet As Worksheet Dim activeSheet As Worksheet Dim refData As Variant, activeData As Variant Dim dict As Object Dim lastRowRef As Long, lastRowActive As Long D…

Sub SelectFilesAndImport() Dim fd As FileDialog Dim selectedFile As Variant Dim importSheet As Worksheet Dim wb As Workbook Dim ws As Worksheet Dim lastRow As Long ' Acrobat用 Dim AcroApp As Object, AcroAVDoc As Object, AcroPDDoc As Object…