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

viehoai · 24/3/11

Xin các anh chị giúp đỡ Code Gán các giá trị của một Range là các phần tử của Mãng
Ví dụ: Tôi có các giá trị của Range("A1:A10"). Tôi muốn viết code để gán giá trị của các cells từ A1:A10 là các phần tử của Mãng Arr chẳn hạn.
Xin cảm ơn các anh chị

tueyennhi · 24/2/17

huuthang_bd đã viết:
Vầy có lẽ nhanh hơn

PHP:

If Arr(J, 7) = "" Xor Arr(J, 8) = "" Then dArr(J, 2) = 1 ElseIf Arr(J, 7) = "" Xor Arr(J, 9) = "" Then dArr(J, 2) = 1 Else dArr(J, 2) = "" End If

Có thể chỗ cẫn tối ưu không phải là chỗ này

Cảm ơn huuthang_bd , code đáp ứng được yêu cầu. Có nhanh hơn một chút và quan trọng là mình lại học thêm được một vài thứ

. Đúng như bạn nói, còn nhiều cái mình biết là có thể làm cho nhanh hơn nhưng code của mình dài, cũng đã nhờ mọi người xem nhưng nhọc quá nên mình vẫn phải hỏi một vài vấn đề một, hi hi.

Ví dụ code này mất thời gian hơn 1/3 tất cả các code khác: Mình phải dùng một dòng phụ để định dạng các cột có chủ định, dựa vào dòng này định dạng cho toàn bộ trang tính.

[A5].Resize(, 45).Copy
[A9].Resize(Rws, 45).PasteSpecial Paste:=xlPasteFormats

Hoặc cái này

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Rất tốn thời gian, nhưng không cho không được vì nếu không nó update cả công thức cũng chết

(

tueyennhi · 24/2/17

VetMini đã viết:
Bạn viết code không có chú thích (comments). Tôi đâu có biết bạn muón làm gì đâu mà nói chuyện đúng sai.
Vì bạn đề cập chuyện "nhanh" cho nên tôi chỉ ra cách cấu trúc dòng code thôi.

Hi hi, mình có ghi là Code trên để check sự tồn tại dữ liệu ở 3 ô. Nếu tất cả đều có dữ liệu hoặc không có dữ liệu thì ra giá trị ""
Còn lại là giá trị 1. Mà

Gió Đông · 24/2/17

tueyennhi đã viết:
Cảm ơn huuthang_bd , code đáp ứng được yêu cầu. Có nhanh hơn một chút và quan trọng là mình lại học thêm được một vài thứ . Đúng như bạn nói, còn nhiều cái mình biết là có thể làm cho nhanh hơn nhưng code của mình dài, cũng đã nhờ mọi người xem nhưng nhọc quá nên mình vẫn phải hỏi một vài vấn đề một, hi hi.
Ví dụ code này mất thời gian hơn 1/3 tất cả các code khác: Mình phải dùng một dòng phụ để định dạng các cột có chủ định, dựa vào dòng này định dạng cho toàn bộ trang tính.

[A5].Resize(, 45).Copy
[A9].Resize(Rws, 45).PasteSpecial Paste:=xlPasteFormats

Tôi có lần xem cái code đó rui, bạn nên vứt cái dòng phụ đó đi, và xóa bỏ cái đoạn code format đó đi sẽ nhanh thôi, vì

+ Không phải lúc nào cũng format lại bảng tính thế, vì format rui lại format lại ah

+ nên làm 1 sub riêng về format, gắn với button chỉ chạy khi cần, không chạy cùng chương trình tính toán chính: định dạng luôn là luôn format thêm 200 dòng (dòng trắng dưới của bảng) nữa chẳng hạn hoặc cho chọn định dạng toàn bảng và thêm 200 dòng nữa ...

như thế code chính mới nhằm vào mục đích chính là tính toán không phải format, không phải để sẵn 1 dòng thừa như thế (luôn lấy dòng 1 làm chuẩn là đủ). CÒn 3 cái and or này, cứ thử test đi, nhanh chậm không đáng kể, so với format ngoài bảng tính số lượng dòng nhiều.

tueyennhi · 24/2/17

winvista đã viết:
Tôi có lần xem cái code đó rui, bạn nên vứt cái dòng phụ đó đi, và xóa bỏ cái đoạn code format đó đi sẽ nhanh thôi, vì

+ Không phải lúc nào cũng format lại bảng tính thế, vì format rui lại format lại ah

+ nên làm 1 sub riêng về format, gắn với button chỉ chạy khi cần, không chạy cùng chương trình tính toán chính: định dạng luôn là luôn format thêm 200 dòng (dòng trắng dưới của bảng) nữa chẳng hạn hoặc cho chọn định dạng toàn bảng và thêm 200 dòng nữa ...

như thế code chính mới nhằm vào mục đích chính là tính toán không phải format, không phải để sẵn 1 dòng thừa như thế (luôn lấy dòng 1 làm chuẩn là đủ). CÒn 3 cái and or này, cứ thử test đi, nhanh chậm không đáng kể, so với format ngoài bảng tính số lượng dòng nhiều.

Ừm nhỉ, vẫn biết là để chấm công hoàn chỉnh thì phải kiểm tra và chạy đi chạy lại các khâu không cần thiết mà mình không nghĩ ra bỏ phần ấy thành sub riêng. Quả nhiên tốc độ đã tăng lên đáng kể.

.

tueyennhi · 11/4/17

Cho em hỏi về code mảng sau:

PHP:

J = Sheets("100H").Range("F3").Value
With Sheets("OVT")
sArr = .Range("B4", .Range("B4").End(xlDown)).Resize(, 60).Value
    For I = 1 To UBound(sArr)
        If sArr(I, 59) >= J Then
            dArr(I, 1) = sArr(I, 1)
            dArr(I, 2) = sArr(I, 2)
            dArr(I, 3) = sArr(I, 3)
            dArr(I, 4) = sArr(I, 4)
            dArr(I, 5) = sArr(I, 59)
        End If
    Next I
End WithSheets("100H").Range("B5").Resize(I, 5) = dArr

Code với điều kiện lọc lấy giá trị mà lớn hơn giá trị trong F3. Tuy lọc thì được rồi nhưng chạy code em thấy mặc định các giá trị nào không thỏa mãn thì nó vẫn gán vào mảng với giá trị là ô trống. Như vậy dữ lieu sẽ không liền mà bị cách nhau. Có cách nào xử lý không ạ?

hpkhuong · 11/4/17

tueyennhi đã viết:
Cho em hỏi về code mảng sau:

PHP:

J = Sheets("100H").Range("F3").Value With Sheets("OVT") sArr = .Range("B4", .Range("B4").End(xlDown)).Resize(, 60).Value For I = 1 To UBound(sArr) If sArr(I, 59) >= J Then dArr(I, 1) = sArr(I, 1) dArr(I, 2) = sArr(I, 2) dArr(I, 3) = sArr(I, 3) dArr(I, 4) = sArr(I, 4) dArr(I, 5) = sArr(I, 59) End If Next I End WithSheets("100H").Range("B5").Resize(I, 5) = dArr

Code với điều kiện lọc lấy giá trị mà lớn hơn giá trị trong F3. Tuy lọc thì được rồi nhưng chạy code em thấy mặc định các giá trị nào không thỏa mãn thì nó là ô trống hết. Có cách nào mà chỉ gán giá trị thỏa mãn vào mảng còn các giá trị không thỏa mãn thì không gán vào mảng không ạ?

Thêm 1 biến K nữa. Có nghĩa là:

Mã:

[COLOR=#007700][FONT=monospace]If [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]sArr[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]I[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]59[/FONT][/COLOR][COLOR=#007700][FONT=monospace]) >= [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]J Then
     K= K+1
     dArr(K,1) = sArr(I,1)
     .....
End if
....
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Sheets[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"100H"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"B5"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][FONT=monospace][I][COLOR=#0000bb]K[/COLOR][/I][/FONT][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]5[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]) = [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dArr  [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]
....
[/FONT][/COLOR]

tueyennhi · 11/4/17

hpkhuong đã viết:

Thêm 1 biến K nữa. Có nghĩa là:

Mã:

[COLOR=#007700][FONT=monospace]If [/FONT][/COLOR][COLOR=#0000bb][FONT=monospace]sArr[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000bb][FONT=monospace]I[/FONT][/COLOR][COLOR=#007700][FONT=monospace], [/FONT][/COLOR][COLOR=#0000bb][FONT=monospace]59[/FONT][/COLOR][COLOR=#007700][FONT=monospace]) >= [/FONT][/COLOR][COLOR=#0000bb][FONT=monospace]J Then
     K= K+1
     dArr(K,1) = sArr(I,1)
     .....
End if
....
[/FONT][/COLOR][COLOR=#0000bb][FONT=monospace][I]Sheets[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#dd0000][FONT=monospace][I]"100H"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000bb][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#dd0000][FONT=monospace][I]"B5"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000bb][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][FONT=monospace][I][COLOR=#0000bb]K[/COLOR][/I][/FONT][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000bb][FONT=monospace][I]5[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]) = [/I][/FONT][/COLOR][COLOR=#0000bb][FONT=monospace][I]dArr  [/I][/FONT][/COLOR][COLOR=#0000bb][FONT=monospace]
....
[/FONT][/COLOR]

Hay quá, cảm ơn bạn rất nhiều!

tueyennhi · 12/4/17

Cho em hỏi ạ. Bình thường trong Excel ta có hàm cơ bản là vlookup để lấy số liệu mà ta muốn, vậy trong VBA ta làm như nào.
Giả sử:

Ô A1 chứa giá trị A101;
Ô C1 và C2 chứa giá trị tương ứng là A101, A102;
Ô D1 và D2 chứa giá trị tương ứng là 100 và 200;

Vậy viết code nào để giá trị gán vào ô B1 sẽ là 100???

Em thử sử dung Find để chơi nhưng mới chỉ loáng thấy cái gì đó chứ chưa phải cái cần tìm

PHP:

With Sheets("TT")
sArr = .Range("A5", .Range("A5").End(xlDown)).Resize(, 25).Value
For I = 1 To UBound(sArr)
     dArr(I, 1) = Range("N5:O20").Find(sArr(I, 5))
Next I
End With

Hiện tại nó lấy giá trị ở cột N, em muốn lấy giá trị tương ứng ở cột O thì em phải làm như nào ?

tueyennhi · 13/4/17

À em làm được rồi, đúng là không có cơ bản thì cái đơn giản cũng phải tìm hiểu @@

PHP:

dArr(I, 1) = Range("N5:O20").Find(sArr(I, 5)).Offset(, 1)

ChanhTQ@ · 13/4/17

PHP:
À em làm được rồi, đúng là không có cơ bản thì cái đơn giản cũng phải tìm hiểu @@

PHP:

dArr(I, 1) = Range("N5:O20").Find(sArr(I, 5)).Offset(, 1)

Lệnh này tiềm ẩn nguy cơ lớn về lâu dài!
Với phương thức FIND() cần bẩy lỗi bạn à!

tueyennhi · 13/4/17

ChanhTQ@ đã viết:
Lệnh này tiềm ẩn nguy cơ lớn về lâu dài!
Với phương thức FIND() cần bẩy lỗi bạn à!

Em vừa dính lỗi nếu trong vùng tìm kiếm không có giá trị mình tìm xong @@. Em chỉ muốn bẫy lỗi ở dòng dArr(I, 1) = Range("N5:O20").Find(sArr(I, 5)).Offset(, 1) thì để như vậy được chưa ạ?

Em sửa thành như vầy không biết có tiềm ẩn gì nữa không:

PHP:

With Sheets("TT")
sArr = .Range("A5", .Range("A5").End(xlDown)).Resize(, 25).Value
For I = 1 To UBound(sArr, 1)
On Error Resume Next
    dArr(I, 1) = Range("N5:O20").Find(sArr(I, 5)).Offset(, 1)
Next I

For I = 1 To UBound(sArr, 1)
Tem = sArr(I, 5)
    If Not Dic.Exists(Tem) Then
        Dic.Add Tem, sArr(I, 10)
    Else
        Dic.Item(Tem) = Dic.Item(Tem) + sArr(I, 10)
    End If
Next I

For I = 1 To UBound(sArr, 1)
    pArr(I, 1) = Dic.Item(sArr(I, 5))
Next I

For I = 1 To UBound(sArr, 1)
    tArr(I, 1) = Round(dArr(I, 1) / pArr(I, 1) * sArr(I, 10), 2)
Next I

[K5].Resize(I - 1) = tArr

Set Dic = Nothing
End With

phuyen89 · 21/5/17

ndu96081631 đã viết:
Code của bạn chưa phải là mảng. Đoạn này If Cells(li, 1).Value = "111250000125" Then vẫn xem như chưa "thoát ly" khỏi Range đâu (vì phải dựa vào Cells(li, 1) ). Vì thế tốc độ vẫn chậm
Tôi sửa lại như sau:

PHP:

Sub hocmang() Dim Arr() As String, sArray, li As Long, lj As Long sArray = Range("A1:A808945").Value ReDim Arr(1 To UBound(sArray, 1), 1 To UBound(sArray, 2)) For li = 1 To UBound(sArray, 1) If sArray(li, 1) = "111250000125" Then lj = lj + 1 Arr(lj, 1) = sArray(li, 1) End If Next li Range("E1").Resize(lj).Value = Arr End Sub

- Thứ nhất: Không cần Option Base 1 gì cả, khai báo trực tiếp rằng ReDim Arr(1 To UBound(sArray, 1), 1 To UBound(sArray, 2))
- Thứ hai: Dim Arr() As String sẽ bảo đảm kết quả luôn là chuổi
- Thứ ba: Chổ này arr(UBound(sarr, 1), LBound(sarr, 1)) xem bộ không chuẩn (phải giống cái trên mới đúng)
Thử lại code tôi vừa đưa ở trên xem tốc độ thế nào
---------------------------------------------------------------------------------

Không biết báo lỗi copy với dữ liệu lọc bằng AutoFilter hay với code? ---> Đoán là báo lỗi khi copy dữ liệu sau AutoFilter! Điều này rất bình thường. SpecialCells sẽ có giới hạn với dữ liệu lớn ---> Nếu dùng Filter thì nên chuyển sang Advanced Filter, sẽ hết lỗi liền (vì không phải copy, lọc và đưa kết quả thẳng đến nơi ta cần luôn)

Anh ơi, Em thắc mắc, chỗ khai báo biến.
Dim Arr() As String, sArray, li As Long, lj As Long
- sArray hiện tại có phải nó đang được ngầm định, kiểu dữ liệu là Variant không? Nếu Em đổi lai khai báo sArray() [ có được hiểu là mảng động không]
- Sau khi Em khai báo sArray thì các dữ liệu của range(A1:A808945) vẫn được đưa vào bình thường.
Mong anh giải thích thêm.

phuyen89 · 21/5/17

ptm0412 đã viết:
Cách Dim như trên, sArray có thể là bất kỳ giá trị nào, đồng thời có thể là biến đơn hoặc biến mảng. Tuy nhiên, ngay sau khi gán giá trị 1 range vào, nó trở thành biến mảng. Khai báo trước là mảng cũng không sao.
Còn Dim Arr() tức là đã khai báo trước cho nó là mảng rồi. Mục đích khai báo trước nó là mảng, là để có thể ReDim. Biến chưa biết là mảng hay đơn thì không thể ReDim được.

Anh ơi.
Sao em cố tính tạo một biến được lưu dưới dạn Variant, nhưng em vẫn Redim được biến ấy.

PHP:

Sub Abc()
    Dim Arr
    Dim sArr()
    ReDim Arr(1 To 10, 1 To 1)
    ReDim sArr(1 To 10, 1 To 1)
End Sub

ndu96081631 · 22/5/17

phuyen89 đã viết:
Anh ơi, Em thắc mắc, chỗ khai báo biến.
Dim Arr() As String, sArray, li As Long, lj As Long
- sArray hiện tại có phải nó đang được ngầm định, kiểu dữ liệu là Variant không? Nếu Em đổi lai khai báo sArray() [ có được hiểu là mảng động không]
- Sau khi Em khai báo sArray thì các dữ liệu của range(A1:A808945) vẫn được đưa vào bình thường.
Mong anh giải thích thêm.

Khai báo vậy thì sArray là biến Variant, nó có thể là bất cứ thứ gì nên đương nhiên nó cũng có thể là mảng được và khi bạn "nạp" Range("A1:A808945") vào, nó sẽ trở thành mảng (tức là tùy bạn nạp thứ gì vào thì nó sẽ trở thành thứ ấy)
Nếu khai báo sArray() thì nó chỉ là biến mảng với số lượng phần tử chưa biết trước... và đương nhiên nó không thể trở thành "thứ khác" được (chỉ có thể là mảng thôi). Lấy ví dụ:
- Từ A1 đến A10 đang có dữ liệu nào đó
- Giờ ta khai báo Dim arr() đồng thời nạp giá trị A1:A10 vào nó

Mã:

Dim arr()
arr = Range("A1:A10").Value

- Mọi thứ chạy bình thường không lỗi
- Nhưng nếu bạn sửa lại:

Mã:

Dim arr()
arr = Range("A1").Value

Thì lỗi ngay lập tức. Bởi 1 cell duy nhất A1 thì không thể là mảng được. Trong khi nếu khai báo Dim arr (không có cặp dấu ngoặc) thì cả 2 code đều không lỗi

nvt22vn · 22/5/17

Thanks các bác nhé... may mà có bài này em mới làm được VBA của em

phuyen89 · 22/5/17

ndu96081631 đã viết:
Khai báo vậy thì sArray là biến Variant, nó có thể là bất cứ thứ gì nên đương nhiên nó cũng có thể là mảng được và khi bạn "nạp" Range("A1:A808945") vào, nó sẽ trở thành mảng (tức là tùy bạn nạp thứ gì vào thì nó sẽ trở thành thứ ấy)
Nếu khai báo sArray() thì nó chỉ là biến mảng với số lượng phần tử chưa biết trước... và đương nhiên nó không thể trở thành "thứ khác" được (chỉ có thể là mảng thôi). Lấy ví dụ:
- Từ A1 đến A10 đang có dữ liệu nào đó
- Giờ ta khai báo Dim arr() đồng thời nạp giá trị A1:A10 vào nó

Mã:

Dim arr() arr = Range("A1:A10").Value

- Mọi thứ chạy bình thường không lỗi
- Nhưng nếu bạn sửa lại:

Mã:

Dim arr() arr = Range("A1").Value

Thì lỗi ngay lập tức. Bởi 1 cell duy nhất A1 thì không thể là mảng được. Trong khi nếu khai báo Dim arr (không có cặp dấu ngoặc) thì cả 2 code đều không lỗi

Em có thử một đoạn code sau, nhưng không hiểu vì sao lại bị lỗi.

PHP:

Sub Arr()
    Dim ArrayName()
    Dim sTen As String
    sTen = "Nguyen Ngoc Chung"
    ArrayName = Split(sTen, " ")
End Sub

- Biến ArrayName() là một mảng động, sau khi hàm Split tách ra thì nó có 3 phần tử, Em add vào mảng này, nhưng bị thông báo lỗi "Type missmatch"
- Nhưng nếu em đổi lại ArrayName()-->ArrayName (biến variant) or -->ArrayName() as String thì nó lại chạy hoàn toàn bình thường.
Mong các anh giup đỡ.

befaint · 22/5/17

phuyen89 đã viết:
Em có thử một đoạn code sau, nhưng không hiểu vì sao lại bị lỗi.

PHP:

Sub Arr() Dim ArrayName() Dim sTen As String sTen = "Nguyen Ngoc Chung" ArrayName = Split(sTen, " ") End Sub

- Biến ArrayName() là một mảng động, sau khi hàm Split tách ra thì nó có 3 phần tử, Em add vào mảng này, nhưng bị thông báo lỗi "Type missmatch"
- Nhưng nếu em đổi lại ArrayName()-->ArrayName (biến variant) or -->ArrayName() as String thì nó lại chạy hoàn toàn bình thường.
Mong các anh giup đỡ.

Thử như vầy xem:

PHP:

Sub Arr()
    Dim ArrayName()
    Dim sTen As String
    sTen = "Nguyen Ngoc Chung"
'    ArrayName = Split(sTen, " ")
    MsgBox TypeName(Split(sTen, " "))
End Sub

ndu96081631 · 22/5/17

phuyen89 đã viết:
Em có thử một đoạn code sau, nhưng không hiểu vì sao lại bị lỗi.

PHP:

Sub Arr() Dim ArrayName() Dim sTen As String sTen = "Nguyen Ngoc Chung" ArrayName = Split(sTen, " ") End Sub

- Biến ArrayName() là một mảng động, sau khi hàm Split tách ra thì nó có 3 phần tử, Em add vào mảng này, nhưng bị thông báo lỗi "Type missmatch"
- Nhưng nếu em đổi lại ArrayName()-->ArrayName (biến variant) or -->ArrayName() as String thì nó lại chạy hoàn toàn bình thường.
Mong các anh giup đỡ.

- Khi bạn khai báo Dim ArrayName() thì có nghĩa biến ArrayName chính là 1 array mà các phần tử bên trong (nếu sau này nạp vào) được khai báo dạng Variant
- Trong khi đó hàm Split luôn luôn trả về kết quả là 1 mảng nhưng các phần tử bên trong nó chắc chắn là dạng String. Có thể thử nghiệm chúng minh:

Mã:

MsgBox TypeName(Split("A B C", " "))

Nhận kết quả là String()
Trong khi:

Mã:

MsgBox TypeName(ArrayName)

Ta sẽ nhận kết quả là Variant()
Ví dụ tiếp

Mã:

Sub Arr()
  Dim ArrayName()
  ArrayName = Array("A", "B", "C")
End Sub

Code này không lỗi bởi

Mã:

 MsgBox TypeName(Array("A", "B", "C"))

Sẽ cho kết quả cũng là Variant() tương đồng với kiểu biến của ArrayName
===> Từ đó suy ra: Cho trước 1 mảng có kiểu dữ liệu là A thì bạn chỉ có thể nạp thứ gì đó có kiểu dữ liệu A vào nó mà thôi
Vì lẽ đó mà khi bạn khai báo Dim ArrayName() as String sẽ không lỗi, bởi nó có cùng kiểu dữ liệu với kết quả của hàm Split
Và điều đương nhiên khai báo Dim ArrayName as Variant càng được, bởi khi đó ArrayName có kiểu dữ liệu "rộng" hơn, nó sẽ là bất cứ thứ gì tùy ý (như tôi đã dề cập ở bài trên)

phuyen89 · 23/5/17

Em mới học về Array, biến đổi cách dùng hàm Vlookup sang Array.
Các anh góp ý để em thay đổi theo hướng tốt hơn.

PHP:

Sub VLK()
    Application.ScreenUpdating = False
    Dim sArr()
    Dim dArr(1 To 65000, 1 To 6)
    Dim sArr_2()
    Dim i As Long, j As Long, lStart As Double, lFinish As Double, k As Long
    lStart = Timer()
    Sheets("VLK").Range("C1:H65000").ClearContents
    sArr() = Sheets("Data").Range("A5:G65000").Value
    sArr_2 = Sheets("VLK").Range("B1", Range("B65000").End(xlUp)).Value
    k = Sheets("VLK").Range("B65000").End(xlUp).Row
    For i = 1 To k
        For j = 1 To UBound(sArr, 1)
            If sArr_2(i, 1) = sArr(j, 1) Then
                dArr(i, 1) = sArr(j, 2)
                dArr(i, 2) = sArr(j, 3)
                dArr(i, 3) = sArr(j, 4)
                dArr(i, 4) = sArr(j, 5)
                dArr(i, 5) = sArr(j, 6)
                dArr(i, 6) = sArr(j, 7)
                Exit For
            End If
        Next j
    Next i
    Range("C1").Resize(i - 1, 6).Value = dArr
    lFinish = Timer()
    Application.ScreenUpdating = True
   MsgBox "Second: " & (lFinish - lStart), , "Timer"
End Sub

Em cảm thấy vòng lặp For của em, không ổn khi dữ liệu nguồn ngày càng lớn lên.

HieuCD · 23/5/17

phuyen89 đã viết:

Em mới học về Array, biến đổi cách dùng hàm Vlookup sang Array.
Các anh góp ý để em thay đổi theo hướng tốt hơn.

PHP:

Sub VLK()
    Application.ScreenUpdating = False
    Dim sArr()
    Dim dArr(1 To 65000, 1 To 6)
    Dim sArr_2()
    Dim i As Long, j As Long, lStart As Double, lFinish As Double, k As Long
    lStart = Timer()
    Sheets("VLK").Range("C1:H65000").ClearContents
    sArr() = Sheets("Data").Range("A5:G65000").Value
    sArr_2 = Sheets("VLK").Range("B1", Range("B65000").End(xlUp)).Value
    k = Sheets("VLK").Range("B65000").End(xlUp).Row
    For i = 1 To k
        For j = 1 To UBound(sArr, 1)
            If sArr_2(i, 1) = sArr(j, 1) Then
                dArr(i, 1) = sArr(j, 2)
                dArr(i, 2) = sArr(j, 3)
                dArr(i, 3) = sArr(j, 4)
                dArr(i, 4) = sArr(j, 5)
                dArr(i, 5) = sArr(j, 6)
                dArr(i, 6) = sArr(j, 7)
                Exit For
            End If
        Next j
    Next i
    Range("C1").Resize(i - 1, 6).Value = dArr
    lFinish = Timer()
    Application.ScreenUpdating = True
   MsgBox "Second: " & (lFinish - lStart), , "Timer"
End Sub

Em cảm thấy vòng lặp For của em, không ổn khi dữ liệu nguồn ngày càng lớn lên.

2 vòng lập lồng với nhau làm khối lượng duyệt qua các dòng rất lớn, bạn tìm hiểu phương thức Find chỉ dùng 1 vòng lập, hoặc Dictionary dùng 2 vòng lập tách rời ra sẽ nhanh hơn nhiều

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

Thành viên gắn bó

Thành viên tích cực

Thành viên tích cực

BĂNG TRÔI

Thành viên tích cực

Thành viên tích cực

######

Thành viên tích cực

Thành viên tích cực

Thành viên tích cực

0901452không62

Thành viên tích cực

Thành viên tích cực

Thành viên tích cực

Huyền thoại GPE

Thành viên mới

Thành viên tích cực

|||||||||||||

Huyền thoại GPE

Thành viên tích cực

File đính kèm

Chuyên gia GPE

Facebook

Group