Combine consecutive numbers in more than 1 c
Closed
Anex
-
Aug 2, 2009 at 11:20 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Aug 3, 2009 at 06:21 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Aug 3, 2009 at 06:21 AM
Related:
- Combine consecutive numbers in more than 1 c
- Fnaf 1 download pc - Download - Horror
- Tentacle locker 1 - Download - Adult games
- Fnia 1 - Download - Adult games
- Igi 1 download - Download - Shooters
- Gta 1 download - Download - Action and adventure
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Aug 3, 2009 at 06:21 AM
Aug 3, 2009 at 06:21 AM
I presume the letters are different columns that is A D G are in column A,column B,column C respectively. from A1 down without any column headings.
(if not use data-texttocolmns with delimiter as "space" to separate the letters into different columns)
try this macro
(if not use data-texttocolmns with delimiter as "space" to separate the letters into different columns)
try this macro
Sub test() Dim rng As Range, c As Range Worksheets("sheet2").Cells.Clear With Worksheets("sheet1") Set rng = Range(.Range("a1"), .Range("a1").End(xlDown)) For Each c In rng c.EntireRow.Copy With Worksheets("sheet2") .Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True End With Next c End With With Worksheets("sheet2") Set rng = Range(.Range("a2"), .Range("a2").End(xlDown)) rng.Sort key1:=Range("a1"), order1:=xlAscending, header:=xlNo End With End Sub