Having problems with message search?
sebaiknya di sheet di hilangkan dulu merged-cellsnya
lalu melalui menu View > FormulaBar : jangan tampakkan formla bar
(agar menselect cells yg berisi data besar itu lebih mudah & mudah dilihat
selectionnya)
blok / select: cells yg berisi data yg akan dikonversi
di contoh terlampir = B5:U5
tekan alt + F8
pilih nama makro : TextTopRow
klik tombol RUN
hasil akan ditulis di row di bawah data yg diolah
diberi pembatas beberapa row kosong
'== makaronya seperpti ini ==
Sub ctv_TextToRow()
Dim col As Integer
Dim r As Long, n As Long
Dim k As String, kr As String
Dim S As String
For col = 1 To Selection.Columns.Count
r = 0
S = Selection(1, col).Value
For n = 1 To Len(S)
k = Mid(S, n, 1)
kr = kr & k
If k = Chr(10) Then
r = r + 1
ActiveCell(5 + r, col) = kr
kr = ""
End If
Next n
Next col
End Sub
2009/7/14 oyi kresnamurti <kresnamurti@...>
:)
assalamu'alaikum xl-mania,
ini postingan saya yg pertama, dari member yg bisanya cuma lurking
dowang dan 'mencuri' ilmu dari para suhu disini.
hari ini saya sedang mengkonversi file pdf ke xls, namun ada beberapa
sheet yg kurang sempurna pengkonversiannya sehingga data yg harusnya 33
row digabung menjadi satu. contohnya saya lampirkan di email ini.
saya sudah coba utak-atik namun tidak ketemu juga bagaimana caranya
memisahkan data yang ada dalam satu sel menjadi, misalnya, 33 baris/row.
bila dikonversi dari teks ke kolom ada fungsinya di excel, nah kalau
dari text to row, ada tidak? bila tidak ada, mungkin ada cara pemecahannya?
mohon bantuannya, terima kasih.
--
wassalam,
oyi kresnamurti
Offline 
Send Email