Cho em hỏi vấn đề Redim trong code Vba (1 người xem)

[minhtuan55]

Em đang tự học về VBA về code xữ lý Mãng để lọc dữ liệu. Em có 1 đoạn Code sau

Code không cần Redim

Sub GhiCHu()
Dim Arr(), Dk As String, I As Long, R As Long, k As Long, cot As Long
Dk = Range("h4").Value
Arr = Range("B4:d1000").Value
R = UBound(Arr)
For I = 1 To R
    If UCase(Arr(I, 1)) <> UCase(Dk) Then
       k = k + 1
          For cot = 1 To 3
              Arr(k, cot) = Arr(I, cot)
          Next cot
    End If
Next I
Range("K3").Resize(R, 3) = Arr
End Sub

Code có cần Redim

Sub GhiCHu2()
Dim Arr(), darr(), Dk As String, I As Long, R As Long, k As Long, cot As Long
Dk = Range("h4").Value
Arr = Range("B4:d1000").Value
R = UBound(Arr)
ReDim darr(1 To R, 1 To 3)
For I = 1 To R
    If UCase(Arr(I, 1)) <> UCase(Dk) Then
       k = k + 1
          For cot = 1 To 3
              darr(k, cot) = Arr(I, cot)
          Next cot
    End If
Next I
Range("K3").Resize(R, 3) = darr
End Sub

em thấy kết quả thì đúng hết. Vậy khi nào mình nên Redim và khi nào không cần. Xin chân thành cảm ơn !

 

[VetMini]

Tự học mà sao lười quá vậy? Khong biết tự tìm tòi, chỉ thẳng miệng hỏi cho nhanh.

Các câu hỏi về mảng trong VBA (Array)

Đọc kể từ trang 61 về sau.