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
0x
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
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.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.