1. ابتدا فایل اکسل خود را باز کنید.


2. به قسمت Developer در نوار ابزارهای بالا بروید. اگر این گزینه را نمی‌بینید، می‌توانید از طریق File > Options > Customize Ribbon آن را فعال کنید.


3. روی Visual Basic کلیک کنید تا ویرایشگر VBA باز شود.


4. در منوی Insert، گزینه Module را انتخاب کنید تا یک ماژول جدید ایجاد شود.


5. در پنجره باز شده کد زیر را وارد کنید:

 
 Sub SplitWorksheet() 
     Dim i As Long 
     Dim ws As Worksheet 
     Set ws = ThisWorkbook.Sheets(1) 'تنظیم شیتی که می‌خواهید تقسیم شود 
     Dim rowCount As Long 
     rowCount = 1000 'تعداد ردیف‌های هر فایل جدید 
     For i = 1 To ws.UsedRange.Rows.Count Step rowCount 
     ws.Rows(i & ":" & i + rowCount - 1).Copy 
     Workbooks.Add 
     ActiveSheet.Paste 
     Application.CutCopyMode = False 
     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Split_" & i \ rowCount & ".xlsx" 
     ActiveWorkbook.Close 
     Next i 
 End Sub 
 

6. کد را با زدن F5 اجرا کنید یا روی دکمه Run در نوار ابزار کلیک کنید.


7. ماکرو شروع به تقسیم فایل به تعداد فایل‌های جداگانه با تعداد ردیف مشخص شده می‌کند و هر فایل را در مسیر فایل اصلی ذخیره می‌کند.