Diziler (Array) ile Hızı 100 Katına Çıkartın

Array (Dizi) Mantığı

10.000 satırı döngüyle hücreye yazdırmak 15 saniye sürer. Tümünü Array(Dizi) değişkenine alıp bir defada Excel'e basmak 0.1 saniye sürer.

VBA Kodu:

Sub HiziHisset()
    Dim liste(1 To 3) As String
    liste(1) = "Ocak"
    liste(2) = "Şubat"
    liste(3) = "Mart"
    Range("A1:C1").Value = liste
End Sub

Ne Göreceksiniz? RAM'deki 3 elemanlı kutu, A1, B1 ve C1 hücrelerine göz kırpma hızında yatay olarak yerleşecektir.