VBA Excel: Combine sheets undtagen de to første linjer af hvert sheet
HejsaJeg har en kodestreng til at combine flere sheets til et sheet. Det funger som det skal, men jeg står og skal have den til at combine al info på sheetsene undtagen de to første linjer. Hvordan bygger jeg det ind? her er min kode:
Sub Combine_Sheets()
Dim j As Integer
On Error Resume Next
Sheets(2).Select
Worksheets.Add ' add a sheet in first place
Sheets(2).Name = "01 - Combined"
' copy headings
Sheets(3).Activate
Range("A3").EntireRow.Select
Selection.Copy Destination:=Sheets(2).Range("A3")
' work through sheets
For j = 3 To Sheets.Count ' from sheet 3 to last sheet
Sheets(j).Activate ' make the sheet active
Range("A3").Select
Selection.CurrentRegion.Select ' select all cells in this sheets
' select all lines except title
Selection.Offset(2, 0).Resize(Selection.Rows.Count - 1).Select
' copy cells selected in the new sheet on last line
Selection.Copy Destination:=Sheets(2).Range("A65536").End(xlUp)(2)
Next
Column_Width
SortWorksheets
End Sub