Jeg har et problemi Excel, som jeg ønsker hjælp til.
Jeg har et stort datasæt i Excel, hvor hver række ikke indeholder samme mængde data. Nogen har sidste værdi i kolonne O, mens andre har det i kolonne AE. Jeg ønsker at kopier sidste celle som indeholder data til en ny kolonne så sidste celle med data alle sammen er i samme kolonne.
Sub Last_Col() x = ActiveSheet.UsedRange.Rows.Count LastCol = Range("A1").SpecialCells(xlLastCell).Column LastRow = Range("A1").SpecialCells(xlLastCell).Row
'starter i række 1, ret 1 til aktuel første række For t = 1 To LastRow Cells(t, LastCol + 1) = Cells(t, Columns.Count).End(xlToLeft) Next End Sub
Synes godt om
Ny brugerNybegynder
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.