EXCEL sloučení buněk a zachování dat

Od: Datum: 05.07.15 15:22 odpovědí: 1 změna: 05.07.15 16:45

Dobrý den,

potřebuji sloučit sloupečky (každý obsahuje nějaká data) do jednoho sloupečku tak, aby všechny hodnoty byly za sebou v tomto sloupečku a byly odděleny čárkou.

Př. Sloupec 1 ma hodnotu "A" a Sloupec 2 má hodnotu "B", po sloučení vznikne Sloupec C s hodnotou "A,B"

Tabulka má několik sloupců (5), které potřebuji takto sloučit, má přes 1000 řádků, takže to ručně nepůjde. Pokud bude jedna z buněk na řádku prázdná, potřebuji řešení, které nezpůsobí dvě čárky za sebou...

Děkuji za odpovědi


Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Datum: 05.07.15 16:45
avatar

jj, to bude chtít makro.

*

tady máte zdroják pro dva sloupečky a třicet řádků. Doufám že se v kódovaní dobře zobrazí. Kdyby ne, tak se mrkněte na obrázek. Napište až vám všechno bude jezdit a já přidám.

*

Option Explicit
Dim I As Integer
Dim Mujrank As Range

Sub macro1()
I = 0
Set Mujrank = Range("A1")
For I = 0 To 30
If (Len(Mujrank.Offset(I, 0).Value) <> 0 And (Len(Mujrank.Offset(I, 1).Value) <> 0)) Then
Mujrank.Offset(I, 2).Value = Mujrank.Offset(I, 0).Value & "," & Mujrank.Offset(I, 1).Value
Else
Mujrank.Offset(I, 2).Value = ""
End If
Next I
End Sub

Ohodnoceno: 0x
 

 

 

Přihlásit se k odběru odpovědí z této otázky:

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.