Range listdown using WPS Office

[Mr Kamal]

Hi

please help me

i have the range in excel sheet one column as below:

34501-34504
38210-38212

I want to listdown it in excel sheet in one column as below:

34501
34502
34503
34504
38210
38211
38212

regards,
Mr. Kamal

 

[Snakehips]

@Mr Kamal Paste this vba code to the vba editor and give it a try.

Sub Re_List()

Dim Acell As Range
Dim SpltA() As String
Dim r As Long, c As Long
Application.ScreenUpdating = True

' ***assuming no headers so data starts row 1 edit to suit
r = 1  '**
'Re-List A data in column B
For Each Acell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).row)  '***

    SpltA = Split(Acell, "-")
    For c = 0 To (SpltA(1) - SpltA(0))
        Range("B" & r) = SpltA(0) + c
        r = r + 1
    Next

Next
Application.ScreenUpdating = True
End Sub

Hope that helps.

 

[Mr Kamal]

First i say thanks you Mr. Snakehips. But i am using WPS office.

 

[Fluff]

When using anything other then Excel, you need to clearly state that & it should be posted in the General Discussion & Other Applications section.
I have done that for you this time.

 

[Mr Kamal]

please anybody reply me