Sub 列全体をコピペ() 'アクティブシートの列コピペ&列削除 With ActiveSheet'列コピペ .Columns("O:O").Copy Columns("E:E")'列削除 .Columns("F:O").DeleteEnd WithEnd Sub

Option Explicit Sub SheetUnion() Dim i As Integer 'ループ用 'i = 0 'ファイル名をシート名にする。注："-4"とは".xls"の4文字分を除くため。 Dim Filename As String Filename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) '1枚目のシートに"…