Proses jadi lebih cepat dikarenakan penyampaian menggunakan index atau enumerasinya lebih cepat ditangkap oleh Excel ketimbang penyampaian menggunakan teks. coba juga,Cells(Rows.Count, 1).End(3)(2).Select O iya, diluar asumsi kasus pak Hendrik, mungkin mis Jan tertarik bagaimana perbandingan performanya apabila: misal, data dati row1 s.d. row1000000 kesemuanya (kita ekstrimkan) merupakan nullstring. Kita ketik di cell A1 formula ="" kemudian copy paste sampai row1000000, setelah itu semuanya divaluekan, copypastespecial: value row1:row1000000.
>semoga bermanfaat --- In [email protected], Jan Raisin <miss.jan.raisin@...> wrote: > > ini adalah hasil percobaan dengan keempat script > > script 1 dari pak hendrik > script 2 dari mr kid > script 3 & 4 dari pak Anton > > hasilnya sbb: > > cara 1 : Columns("A:A").Find(vbNullString).Select Alamat akhir : $A$4 > Waktu : 0 | 4877 > cara 2 : cells(rows.count,1).end(xlup).offset(1).select Alamat akhir : $A$4 > Waktu : 0 | 1435 > cara 3 : Columns(1).Find(").Select Alamat akhir : $A$4 Waktu > : 0 | 2371 > cara 4 : Cells(Rows.Count, 1).End(3).Offset(1).Select Alamat akhir : $A$4 > Waktu : 0 | 589 > > ternyata yang paling cepat adalah script nomor 4 dari pak Anton, > padahal scriptnta mirip dengan script nomor 2 dari mr kid tapi perbedaan > waktunya bisa hampir sepertiganya sendiri. > > Bisa tolong dijelaskan oleh pak Anton atau mr Kid? > > Wassalam, > > -MJR- >
