MS Excel

Ide to
Predpoklady:
1. vstupný údaj v tvare čísla.písmená.medzera.pomlka.medzera.čísla.písmená, t.j. tak ako uvádzaš, napr. 1525PA - 1546PA, či 1320QAC - 15888QAC, ale s medzerami pred a za pomlkou, máš v bunke A1
2. písmená v reťazci sú rovnaké na začiatku i na konci (*PA - *PA; *QAC - *QAC), rády číselného rozsahu od-do sa môžu líšiť, od musí byť ale menšie, než do
3. výsledok chceš v stĺpci b a v bunkách majú byť okrem číselnej časti zapísané i tie písmená

kód, ktorý Ti to spracuje je (premenných som nadeklaroval viac, než je nutné, kvôli prehľadnosti):
Option Explicit

Sub vypln()
Dim Vstup As String, Zaciatok As String, Koniec As String, Kod As String
Dim Od As Long, Po As Long, j As Long, Vloz As Long
Dim Stred As Integer
Application.ScreenUpdating = False
Vstup = Range("A1")
Stred = InStr(Vstup, "-")
Zaciatok = Left(Vstup, Stred - 2)
Koniec = Right(Vstup, Len(Vstup) - Stred - 1)
Od = Val(Zaciatok)
Po = Val(Koniec)
Kod = Right(Zaciatok, Len(Zaciatok) - Len(Od))
Vloz = Od
For j = 1 To Po - Od + 1
Cells(j, 2) = Vloz & Kod
Vloz = Vloz + 1
Next j
End Sub
citovat