Dear LT Dmp
Pakai macro ya....
Option Explicit
Sub pecah()
Dim i As Integer
Dim nom As Integer
Dim kar As Variant
Dim wis As Variant
Dim has As Variant
kar = Range("C20").Value
For i = 1 To Int(Len(kar) / 85) + 1
wis = Left(kar, 86)
If Right(wis, 1) = " " Then
has = Left(wis, 85)
Else
If Len(wis) < 86 Then
nom = Len(wis)
Else
nom = InStrRev(wis, " ", -1)
End If
has = Mid(wis, 1, nom)
End If
Range("M" & 30 + i) = has
kar = Mid(kar, Len(has) + 1)
Next i
End Sub
sebenarnya macro tersebut dapat disederhanakan, silahkan diubah sesuai
kebutuhan.
Salam
Nang Agus
2015-08-06 12:23 GMT+07:00 It Dpm [email protected] [belajar-excel] <
[email protected]>:
>
>
> Dear Master Excel sekalian,
>
> Mohon bantuan para master sekalian,
> bagaimana caranya split (memecah) text
> yang panjang menjadi beberapa cell tanpa
> ada kata yang terpenggal seperti contoh terlampir...
>
>
> terima kasih sebelumnya
>
>
>
