iki rakam arasındaki ardışık sayıları metne eklemek

[Melrajas]

Merhaba,

Konuyla ilgili olarak örnek aşağıdaki gibidir;

A 201 210
B 134 145
C 380 394

yukarıdakilerin her biri bir hücrededir. yazdırmak istediğim;

A201
A202
A203
A204
-
-
A210
B134
B135
-
-
B145
şeklinde baştaki metin ile 2 rakam arasındaki değerleri birleştirerek yan yana veya alt alta yazdırabilir miyim?

teşekkürler...

 

[çıtır]

Formülle yapılmış örnek dosyanız.
http://s3.dosya.tc/server16/xjt0n9/Aralik.rar.html

 

[muygun]

Merhaba;
Makro çözümü alternatif olsun.
İyi çalışmalar.

Link:
http://dosya.co/2zfjdtd3wdqn/Melrajas-aralığa_bağlı_sayı.zip.html

 

[leumruk]

Selamlar,
Makro ile alternatif, veriler a sütununda kabul edilmiştir.

Sub birlestir()
sonsut = ActiveSheet.UsedRange.Columns.Count
If sonsut < 3 Then sonsut = 3
sonsat = Cells(Rows.Count, 1).End(3).Row
Range(Cells(1, 3), Cells(sonsat, sonsut)).ClearContents
For x = 1 To sonsat
hucre = WorksheetFunction.Trim(Cells(x, 1))
sy = Len(hucre) - Len(Replace(hucre, " ", ""))
If sy = 2 Then
deg = Split(hucre, " ")
hrf = deg(0)
sayi1 = deg(1)
sayi2 = deg(2)
sut = sayi2 - sayi1
say = 2
For y = sayi1 To sayi2
say = say + 1
Cells(x, say) = hrf & y
Next
End If
Next
MsgBox "İşlem tamamlandı.", vbOKOnly, "l e u m r u k"
End Sub