Đọc và ghi vào các ô trong Excel từ VBA rất mất thời gian phát sinh mỗi khi dữ liệu di chuyển giữa VBA và Excel. Đây cũng là một trong những nguyên nhân chính làm VBA chạy chậm.

Bạn nên cố gắng giảm số lần truyền dữ liệu giữa VBA và Excel. Đây là nơi mà phạm vi hữu ích. Thay vì đọc và ghi vào từng ô riêng lẻ trong một vòng lặp, hãy đọc toàn bộ phạm vi thành một mảng ở đầu, lặp qua mảng và sau đó ghi lại toàn bộ mảng ở cuối. Mã ví dụ sau đây cho thấy cách một phạm vi có thể được sử dụng để đọc và ghi các giá trị một lần, thay vì đọc từng ô riêng lẻ.

Dim vArray As Variant
Dim iRow As Integer
Dim iCol As Integer
Dim dValue As Double
vArray = Range("A1:C10000").Value2 ‘ read all the values at once from the Excel cells, put into an array 

For iRow = LBound(vArray, 1) To UBound(vArray, 1)
  For iCol = LBound(vArray, 2) To UBound(vArray, 2)
    dValue = vArray (iRow, iCol)
    If dValue > 0 Then 
      dValue=dValue*dValue ‘ Change the values in the array, not the cells 
    vArray(iRow, iCol) = dValue
  End If
Next iCol
Next iRow
Range("A1:C10000").Value2 = vArray ‘ writes all the results back to the range at once