Kalau yang ingin dibuang adalah kata *Laporan*-nya, dan bisa dipastikan didepannya pasti ada kata *Laporan *nya maka bisa menggunakan fungsi MID buat memotong 7 karakter milik kata Laporan + 1 milik Spasi

Range("D" & lRow) = MID(sht.Range("A2"),8)

Jika di range A2 tidak pasti ada kata laporannya, bisa menggunakan fungsi replace, seperti yang sudah disampaikan dengan sangat jelas oleh Mr. Kid

Pada 02/08/2013 9:15, Ahmad Syaifullah Lubis menulis:
Range("D" & lRow) = sht.Range("A2")

Kirim email ke