Tanya rumus untuk memisahkan beberapa kalimat dalam satu sel yang datanya dibuat dengan menggunakan alt+enter menjadi beberapa baris
Tanya rumus untuk memisahkan beberapa kalimat dalam satu sel yang datanya dibuat dengan menggunakan alt+enter menjadi beberapa baris
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
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