縦でレコード保管する場合、こっちの方が楽だけど行数が厳しい。 タイトル行かどうかだけ判別必要でそれ以外は判別無しでOK ------------------ If IsArray(TargetFiles... ======================================= 縦でレコード保管する場合、こっちの方が楽だけど行数が厳しい。 タイトル行かどうかだけ判別必要でそれ以外は判別無しでOK ------------------ If IsArray(TargetFiles) Then For i = LBound(TargetFiles) To UBound(TargetFiles) If InStr(TargetFiles(i), "_reg") = 0 Then importFilename = TargetFiles(i) 'ワークシートの最終行を取得 lastRow = tempListSheet.Cells(Rows.Count, 1).End(xlUp).Row 'CSVファイル取込 Set importCsvSheet = Workbooks.Open(importFilename) If lastRow = 1 Then Range("A1:F1").Select Else Range("A2:F2").Select End If Range(Selection, Selection.End(xlDown)).Select Selection.Copy tempListSheet.Activate If lastRow = 1 Then tempListSheet.Range("A" & lastRow).Select Else tempListSheet.Range("A" & lastRow + 1).Select End If ActiveSheet.Paste importCsvSheet.Close End If Next i End If http://ift.tt/1abnmbU June 28, 2017 at 1...