how to combine all work sheets into one sheets in excel
VBA code
Sub CombineWorksheets() Dim ws As Worksheet Dim destWs As Worksheet Dim lastRow As Long Dim copyRange As Range ' Create a new worksheet for combined data Set destWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) destWs.Name = "Combined" ' Loop through each worksheet in the workbook For Each ws In ThisWorkbook.Worksheets If ws.Name <> destWs.Name Then lastRow = destWs.Cells(destWs.Rows.Count, 1).End(xlUp).Row + 1 Set copyRange = ws.UsedRange copyRange.Copy destWs.Cells(lastRow, 1) End If Next ws End Sub
博文
