Sub SplitWorkbookWithHeader() Dim ws As Worksheet Dim wb As Workbook Dim newWb As Workbook Dim headerRow As Range Dim dataRange As Range Dim rowsPerFile As Long Dim lastRow As Long Dim i As Long, ...
系统Office
