Sorting page-numbers with ranges (i.e.: 6ff or 7-10 etc.)

p45cal · #3 08-31-2016, 05:00 PM

IF the worksheet is like yours with data starting row 1 and IF it's only the'-' and 'f' characters that can be within the page numbers, and IF there are no more than 20 page numbers per row, then try:

Code:

Sub blah()
For rw = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
  Rows(rw).Insert
  With Rows(rw).Resize(, 20)
    .NumberFormat = ""
    .FormulaR1C1 = "=LEFT(R[1]C,MIN(IFERROR(SEARCH(""-"",R[1]C),99),IFERROR(SEARCH(""f"",R[1]C),99))-1)"
    .Resize(2).Sort key1:=Cells(rw, 1), order1:=1, Orientation:=2, DataOption1:=1
  End With
  Rows(rw).Delete
Next rw
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Take String of numbers, expand ranges, sort, then compress back into ranges	AustinBrister	Word VBA	19	08-22-2016 05:18 PM
Sorting Numbers in a Document	rsrasc	Word VBA	3	01-04-2016 11:47 PM
Sorting Index According to Page Numbers	mohsen.amiri	Word	14	06-25-2015 09:50 PM
Sorting paragraph numbers	CommDude	Excel	1	01-02-2011 04:38 PM