Návod pre menej znalých (tiež sa medzi nich radím... ):
1. Skopíruj si hárok do iného a rob to v ňom (aby pôvodné dáta ostali zachované...) - označ si všetky bunky
2. Spusti VBE (ALT+F11)
3. Stlač Ctrl+R - vyber si svoj hárok
4. V ponuke vyber Insert - Module a do editora vlož tento kód:
Sub MakeOneColumn()
Dim vaCells As Variant
Dim vOutput() As Variant
Dim i As Long, j As Long
Dim lRow As Long
If TypeName(Selection) = "Range" Then
If Selection.Count > 1 Then
If Selection.Count <= Selection.Parent.Rows.Count Then
vaCells = Selection.Value
ReDim vOutput(1 To UBound(vaCells, 1) * UBound(vaCells, 2), 1 To 1)
For j = LBound(vaCells, 2) To UBound(vaCells, 2)
For i = LBound(vaCells, 1) To UBound(vaCells, 1)
If Len(vaCells(i, j)) > 0 Then
lRow = lRow + 1
vOutput(lRow, 1) = vaCells(i, j)
End If
Next i
Next j
Selection.ClearContents
Selection.Cells(1).Resize(lRow).Value = vOutput
End If
End If
End If
End Sub
5. stlač F5Všetky označené dáta by mali byť v jednom stĺpci pod sebou.