Excel Solun sisällä tekstin rivivälin muuttaminen

olisikohan ne tekstilistat parempia siellä tekstinkäsittelyssä eikä taulukkolaskennassa...?

Ei taida saada muutettua.
Pinennä fonttia
Käytä rivitetyn tekstin sijaan rivittämätöntä ja muuta rivien korkeutta
Siirrä taulukko tekstinkäsittelyyn ja muuta solujen riviväliä siellä

Microsoftikin tunnustaa ettei rivivälin säätäminen ole mahdollista suoraan soluun. Mutta jos on aivan pakko nysvätä Exceliin, niin silloin voi käyttää solussa TextBoxeja, ja muotoilee sitten kappale-valikosta riviväliä. Toimii kyllä, kun äsken kokeilin.

En suomenkielistä ohjetta löytänyt tähän, mutta vastaavalla tavalla se toimii.

https://support.office.com/en-us/article/Change-line-spacing-8690fcda-1a4c-41fe-bf43-439f7c5d3c7a

Tuossa alla on makro, joka muodostaa valittuihin soluihin TextBoxit, ja kopioi jokaisen solun tekstisisällön kyseiseen TextBoxiin. Samalla muutetaan TextBoxien riviväli arvoon 0,8. Oletus taitaa olla 1,0. Vaihtamalla arvoa tuohon koodin muuttujaan rivivali saa kokeiltua eri arvoja.

Muuttujan arvossa desimaalierotin on piste, ei pilkku.

Ja kannattaa tallentaa ennen makron ajamista taulukosta kopio, koska paluuta ei makron jälkeen ole enää vanhaan. Kokeilemalla saattaa löytyä haluttu lopputulos. Omalla vastuulla siis...

Sub solut_tekstiboxeihin()
    Dim rivivali As Double
    Dim alue As Range
    
    rivivali = 0.8 'Tätä arvoa muutetaan
    
    If TypeName(Selection) = "Range" Then
        Set alue = Selection
        For Each solu In alue
            If Application.WorksheetFunction.IsText(solu) Then
                ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                solu.Left, solu.Top, solu.Width, solu.Height).Select
                Selection.ShapeRange.TextFrame2.TextRange.Characters. _
                Text = solu.Value
                Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat. _
                SpaceWithin = rivivali
            End If
        Next solu
    Else
        MsgBox "Valinta ei ole tyyppiä Range, vaan " _
        & TypeName(Selection) & "!"
    End If
End Sub