Rumus Memisahkan kalimat dalam Cell

  1. 6 tahun lalu

    Tanya rumus untuk memisahkan beberapa kalimat dalam satu sel yang datanya dibuat dengan menggunakan alt+enter menjadi beberapa baris

  2. Coba ini :

    Sub SplitCelltoRow()
    
    Dim Rng As Range
    Dim MyRng As Range
    On Error Resume Next
    TitleId = "SplitCelltoRow"
    Set MyRng = Application.Selection
    Set MyRng = Application.InputBox("Range", TitleId, MyRng.Address, Type:=8)
    For Each Rng In MyRng
        ChrCount = VBA.Len(Rng) - VBA.Len(VBA.Replace(Rng, vbLf, ""))
        If ChrCount > 0 Then
            Rng.Offset(1, 0).Resize(ChrCount).Insert shift:=xlShiftDown
            Rng.Resize(ChrCount + 1).Value = Application.WorksheetFunction.Transpose(VBA.Split(Rng, vbLf))
        End If
    Next
    End Sub

  3. diditsatriyadi

    14 Des 2017 Terverifikasi Surabaya + 1.104 Poin

    karakter <alt>+<enter> di excel adalah kode ascii 10 atau di excel menggunakan formula CHAR(10)

    jadi jika ingin memakai formula kira-kira seperti file berikut

 

atau Mendaftar untuk ikut berdiskusi!