Minulla on noin 50 riviä tietoja (tuotenumero) allekkain sarakkeessa ja nämä tulisi yhdistää yhteen soluun niin että jokaisen tuoetnumeron väliin tuli ; ?
MIkä olisi paras tapa? Kiitos!
MIkä olisi paras tapa? Kiitos!
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
=A1 & ";" & B1
Kopioi sarake Wordiin. Korvaa kappaleenvaihdot puolipisteillä (Search/Replace).
Function yhteen(r) As String
Dim result As String
w = r.Columns
a = r
n = UBound(a)
result = a(1, 1)
For i = 2 To n
result = result & ";" & a(i, 1)
Next i
yhteen = result
End Function