[radecky]

Mireczki od #programowanie #sql #bazydanych, potrzebuje pomocy bo mam zaćmienie i nie wiem jak zapytać o to internet ;)

Mam tabele

A; 1,2,3,4
B; 1,2,3,4
....

potrzebuje podpowiedzi jak zapytaniem wyciągnąć to w postaci:

A;1
A;2
A;3
A;4
B;1
B;2
...

Pomożecie? (╥﹏╥)

[DarkAlchemy]

@radecky: jaka baza? MS SQL 2016 i wyżej?
https://docs.microsoft.com/en-us/sql/t-sql/functions/string-split-transact-sql?view=sql-server-2017
(przykład z CROSS APPLY w dokumentacji)

[radecky]

@DarkAlchemy: Postgres, zaraz zerkne czy to zadziała.

[l.....y]

@radecky: Pivot table

[aloucie]

@radecky: pivot + union?

[JacobTheLiar]

dla znanej ilości kolumn można bez pivota i bez corss apply, powinno działać dla każdej bazy. przykład podam dla MSSQL

declare
@tableIn table (id char(1), col1 int, col2 int, col3 int)
insert into @tableIn values
('A', 1, 2, 3),
('B', 4, 5, 6),
('C', 7, 8, 9)

declare
@tableOut table (id char(1), col int)

insert into @tableOut
select id , col1 from @tableIn union all
select id , col2 from @tableIn union

[JacobTheLiar]

a z unpivotem na MSSQL

select tout.id, tout.marks col
from @tableIn tin
unpivot
(
marks
for col in (col1, col2, col3)
) tout;

[radecky]

Dzięki Panowie ale udało mi sie znaleźć dość eleganckie rozwiazanie do excela ;)

Option Explicit

Sub Main()

Columns("B:B").NumberFormat = "@"
Dim i As Long, c As Long, r As Range, v As Variant

For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
v = Split(Range("B" & i), ", ")
c = c + UBound(v) + 1
Next i

For i = 2 To c
Set r = Range("B" & i)
Dim arr As