Paling praktis, kayaknya pakai makro saja, dibuatkan UDF Fungsi buatan sendiri itu akan mengembalikan Text Comment dari cell yg dirujuk
code VBA ditulis di module standard Function TextComment(Cell As Range) As String TextComment = Replace(Cell.Comment.Text, Chr(10), " ") End Function penggunaannya misal di sheet1 range A1:V000, sebagian besar ada commnets nya data comment ingin di tempatkan di sheet2 range B2:W1001 tinggal ketikkan formula di sheet2 cell B2 =TextComment(Sheet1!A1) Truss dicopy ke kanan dan bawahnya sampai W1001 Dengan sedikit modifikasi TextComment bisa diatur agar hanya mengambil comment tanpa nama user (yg biasanya ditulis di paing atas baris 1) yaitu menghilangkan karakter dari no 1 sampai ditemukannya Chr(10) 2012/1/12 Saifudin Mnp <saif...@ymail.com> > ** > selamat pagi para pakar (jam brp ini? kbetulan baru bangun tidur) > Si Adul menyodorkan data yg sebenarnya sudah tersusun rapi (pake kata > "sebenarnya"). > sayang sekali poin2 yg penting malah diinput berupa comment. > Bagaimana cara me-lookup comment sehingga data yg ada bisa disajikan > menjadi sebuah report? > Atas petunjuk para pakar, saya ucapkan terima kasih >
