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
- Five nights in anime 1 - Download - Adult games
- Igi 1 download - Download - Shooters
- Poppy playtime chapter 1 download pc - Download - Horror
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
