Avatar billede szaabi Nybegynder
07. november 2010 - 20:23

VBA Excel: Combine sheets undtagen de to første linjer af hvert sheet

Hejsa

Jeg 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
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester