Új hozzászólás Aktív témák

• #53693 the radish senior tag

  Új Válasz 2024-12-17 09:01:54 #53693

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  the radish

  senior tag

  Sziasztok!

  Alábbi makrót szeretném kiterjeszteni az első 50 sorra:
  Sub vba_concatenate()
Dim rng As Range
Dim i As String
Dim SourceRange As Range
Set SourceRange = Range("I1:O1")
For Each rng In SourceRange
i = i & rng
'& ""
Next rng
Range("R1").Value = Trim(i)
End Sub
  (I-O oszlopoban található adatok összefűzése az R oszlopba, 1-50 sorig)
  +1: miért nem tudom rendes kódként, sortörések nélkül ide beilleszteni?
  Előre is köszönöm!

Új hozzászólás Aktív témák