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

• #7419 Delila_1 veterán kenesei1982 #7418

  Új Válasz 2010-06-21 09:15:32 #7419

  Ú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

  

  Delila_1

  veterán

  válasz kenesei1982 #7418 üzenetére

  Valami elválsztót biztosan akarsz az adatok közé tenni. Az alábbi makró minden cella értéke után tesz egy vesszőt, és egy szóközt. Az eredményt az L1 cellába írja be.

  Sub osszefuz()
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  sz = sz & Cells(sor, 1) & ", "
  Next
  Cells(1, 12) = Left(sz, Len(sz) - 2)
  End Sub

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