Sub シートへの振分け() '画面停止Application.ScreenUpdating = False Dim i As Long 'すべてのシートに実行 For i = 1 To Sheets.Count With Worksheets("マスタシート").Range("A2").CurrentRegion '1列目をシート名でフィルターをかける .AutoFilter Fie…