transposar una cel·la

Un "truc" ràpid:

Com passar de
Una cel·la amb a/b/c/d/e
A una cel·la amb
a
b
c
d
e

És dir, com "transposar" una cel·la?

1. OpenOffice.org / LibreOffice
amb aquesta fòrmula: =SUBSTITUEIX(A1;"/";CARAC(10))

Amb OOoBasic

Sub Transposa()

    Dim s1 As String

    Dim s2 As String

    s1 = ThisComponent.Sheets.getByName("Full1").GetCellByPosition(0,0).String

    s2 = Replace(s1, "/", Chr(10))

    ThisComponent.Sheets.getByName("Full1").GetCellByPosition(0,1).String = s2

End Sub

2. Excel
Una fórmula pràcticament idèntica: =SUSTITUIR(A1;"/";CARACTER(10))

Amb VisualBasic:

Sub Transposa()
    Dim s1 As String
    Dim s2 As String


    s1 = Hoja1.Cells(1, 1)
    s2 = Replace(s1, "/", Chr(10))
    Hoja1.Cells(2, 1) = s2
End Sub

L'única diferència en el BASIC és la forma d'accedir a les cel·les.