jika masih ada keinginan cara lain, terlampir beberapa formula dan 1 makro (subProsedur)
FORMULA
=OFFSET($C$1,ROW(1:$10)+(COLUMN(A1)-1)*10,0)
atau
=INDEX($A$2:$A$121,ROW(1:$10)+(COLUMN(A1)-1)*10)
atau
jika boleh ada Baris dan Kolom BANTU, rumus menjadi sederhana
karena Baris dan Kolom Bantu tsb, sebanarnya adalah BAGIAN dari formula
yg dipisahakan dari formula utama
=INDEX($A$2:$A$121, F$48+$E49)
MAKRO
berikut ini loop yg akan menekik data sekolom menjadi kolom kolom
dengan tinggi tertentu
C = 1
For Each xCell In rangeData
If xCell.Value = vbNullString Then Exit For
R = R + 1
Hasil(R, C) = xCell.Value
If R = iKolom Then
R = 0: C = C + 1
End If
Next xCell
Semuanya ada di workbook terlampir; semoga masih ada gunanya
2011/12/27 Wxwx Tit <wxwxtit@yahoo.co.id>
Dear Pakar Excel,Mohon bantuan dari pakar excel semua untuk memudahkan permasalahan saya.Di dalam Kolom A terdapat beberapa data ex 100 baris, semua data tidak ada yang sama
dari data yg 100 itu ingin di pecah ke beberapa kolom
misalkan setiap kolom berisi 10 baris,
file terlampir ya.terima kasih atas pencerahannya.Alex Purnama
Salam
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário