Tekst 2 keer nodig

[gertvn]

Goedemiddag forum leden,

Ik heb een vraag, ik heb een hele rij met tekst/nummer waarvan er 1 in het excelbestand staan alleen heb ik van elk tekst/nummer er twee nodig onder elkaar
Dit heb ik
TWT-101-R01B09
TWT-101-R01B10
TWT-101-R01B11
TWT-101-R02B01
TWT-101-R02B02

Ik heb nodig
TWT-101-R01B09
TWT-101-R01B09
TWT-101-R01B10
TWT-101-R01B10
TWT-101-R01B11
TWT-101-R01B11
TWT-101-R02B01
TWT-101-R02B01
TWT-101-R02B02
TWT-101-R02B02

Deze nummer wil inlezen daarom moeten ze per twee onder elkaar staan in 1 kolom, kan iemand helpen dit probleem op te lossen??

Alvast bedankt

 

[edmoor]

Waar lees je mee?
1 Keer lezen en 2x gebruiken lijkt me dan beter.

 

[JEC.]

Met een macro, als je data start in A2

Sub jec()
 Dim sq, ar As Variant, i As Long
 sq = Range("A2", Range("A" & Rows.Count).End(xlUp))
 ReDim ar(1 To 2 * UBound(sq), 1 To 1)
 
 For i = 1 To UBound(ar)
   ar(i, 1) = sq((i - 1) \ 2 + 1, 1)
 Next
 
 Range("A2", Range("A" & Rows.Count).End(xlUp)).ClearContents
 Range("A2").Resize(UBound(ar)) = ar
End Sub

 

[JEC.]

Of maak een tabel van kolom A en gebruik power query

Dit is dan de M-code

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    repeat = Table.AddColumn(Source, "Repeat", each {1..2}),
    exprepeat = Table.ExpandListColumn(repeat, "Repeat"),
    dltrepeat = Table.RemoveColumns( exprepeat,{"Repeat"})
in
    dltrepeat

 

[sylvester-ponte]

als het orgineel begint in A1 dan zet je

=INDEX($A:$A; INTEGER(RIJ(A2)/2);1)

er naast en trek je naar beneden

 

[JEC.]

Of met een formule

=INDEX(A:A;SEQUENCE((COUNTA(A:A)-1)*2;;2;1/2);0)&""