Marker dine navne og kør makro - Destination skal være samme ark
Sub Test() For Each c In Selection x = c & " ": y = c.Offset(0, 1) z = z & Application.WorksheetFunction.Rept(x, y) Next antal = Len(z) - Len(Application.WorksheetFunction.Substitute(z, " ", "")) + 1 Application.InputBox("Marker øverste destinationscelle", "", , , , , , 8).Select Selection.Resize(antal) = Application.WorksheetFunction.Transpose(Split(z, " ")) End Sub
Det er bare gået rigtigt godt. Det var helt perfekt det du lavede. Mange tak for det.
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.
