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ị

tam888 · 31/10/18

kieu manh đã viết:
Nếu dữ liệu 65536 dòng x 20 cột mà xài WorksheetFunction thì có mà tèo téo teo...

Cho vô mảng chạy 2 dòng For cho nó đẹp code nó bay cái Vèo

Nếu dữ liệu nhiều vậy, thì dùng excel làm chi - khi công ty giàu (dữ liệu nhiều chứng tỏ nhiều hoạt động) rồi

♫ђöล♥ßล†♥†µ♫ · 31/10/18

Nguyễn Hoàng Oanh Thơ đã viết:
hihi, khổ ghê OT cũng tìm rồi đó mà.
híc OT sẽ tìm tiếp và nghĩ tiếp ạ. @befaint biết link rồi thì trích cho OT tham khảo với.
Còn code trên cũng xài OK rồi nhưng OT muốn học và dùng mảng ạ.

Em cũng học nữa $-\\/.$

PHP:

Sub ChuyenDL()
    Dim sArr(), dArr(), I As Long, Idx As Long, K As Long, J As Long, N As Long: N = 5
sArr = Range("C1", Range("C" & Rows.Count).End(xlUp)).Resize(, 2).Value
ReDim dArr(1 To UBound(sArr) * N, 1 To UBound(sArr, 2))
For I = 1 To UBound(sArr)
    If sArr(I, 1) <> mpty Then
        For Idx = 1 To N
            K = K + 1
            For J = 1 To UBound(sArr, 2)
                dArr(K, J) = sArr(I, J)
            Next J
        Next Idx
    End If
Next I
If K Then Range("K1").Resize(K, UBound(sArr, 2)) = dArr
End Sub

befaint · 31/10/18

♫ђöล♥ßล†♥†µ♫ đã viết:
N As Long: N = 5

Chỗ này: Const N as Long = 5 và để trên cùng (Lần trước một bác chỉ cho mình như vậy).
Thêm ý ở bài #1038 nữa nhé

Mã:

UBound(sArr) * N
'...'
K
'//Cần kiểm tra so với số dòng tối đa của bảng tính

Mã:

For J = 1 To UBound(sArr, 2) '// thêm biến gán giá trị UBound(sArr, 2)  để không phải gọi lại chỗ đó nhiều lần

♫ђöล♥ßล†♥†µ♫ · 31/10/18

befaint đã viết:
Chỗ này: Const N as Long = 5 và để trên cùng (Lần trước một bác chỉ cho mình như vậy).
Thêm ý ở bài #1038 nữa nhé

Mã:

UBound(sArr) * N '...' K '//Cần kiểm tra so với số dòng tối đa của bảng tính

Mã:

For J = 1 To UBound(sArr, 2) '// thêm biến gán giá trị UBound(sArr, 2) để không phải gọi lại chỗ đó nhiều lần

Dạ. Cái này Anh nhắc Em mấy lần mà Em toàn quên thôi. Em cám ơn Anh nhiều

Hoàng Nhật Phương · 31/10/18

Xin cảm ơn anh, chị và các bạn đã giúp đỡ ạ.
Các code trên đều chạy ra kết quả OK rồi.

Trong trường hợp dữ liệu trả về trong cột K:L (dữ liệu cột C đưa sang cột L,dữ liệu cột D đưa sang cột K) như ảnh kèm thì code của @quanghai1969 và @♫ђöล♥ßล†♥†µ♫(ôi cái tên ..đẹp ^^) thì phải sửa như thế nào ạ?
Híc mong các bạn đừng hiểu nhầm ạ , OT đang học hỏi để biết cách tự điều chỉnh,chứ thực tế dữ liệu hiện tại đang không phải như vậy,nhưng cũng có thể sẽ gặp ạ.
Nếu các bạn có thời gian mong được các bạn chỉ dẫn ạ.

Quang_Hải · 31/10/18

befaint đã viết:
Chỗ này em nhớ có một bác nói là dùng một vòng lặp thôi..

Code ngắn cũng có cái hay nhưng khó nhìn thuật toán trong code. Code dài lê thê nhìn thấy gớm nhưng cần điều chỉnh thì lại dễ hơn đối với những người chỉ dùng VBA trong công việc văn phòng hàng ngày. Người khéo sẽ biết chọn phương án phù hợp cho từng trường hợp mà.

♫ђöล♥ßล†♥†µ♫ · 31/10/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin cảm ơn anh, chị và các bạn đã giúp đỡ ạ.
Các code trên đều chạy ra kết quả OK rồi.

Trong trường hợp dữ liệu trả về trong cột K:L (dữ liệu cột C đưa sang cột L,dữ liệu cột D đưa sang cột K) như ảnh kèm thì code của @quanghai1969 và @♫ђöล♥ßล†♥†µ♫(ôi cái tên ..đẹp ^^) thì phải sửa như thế nào ạ?
Híc mong các bạn đừng hiểu nhầm ạ , OT đang học hỏi để biết cách tự điều chỉnh,chứ thực tế dữ liệu hiện tại đang không phải như vậy,nhưng cũng có thể sẽ gặp ạ.
Nếu các bạn có thời gian mong được các bạn chỉ dẫn ạ.

View attachment 206779

Em chế nó ra thế này. Nhân tiện luyện mấy cái Anh @befaint chỉ

PHP:

Sub ChuyenDL()
    Dim sArr(), dArr(), I As Long, Idx As Long, K As Long, J As Long, _
    R As Long, C As Long, Jdx As Long, sRng As Range
Const N As Long = 5
Set sRng = Range("K1")
sArr = Range("C1", Range("C" & Rows.Count).End(xlUp)).Resize(, 2).Value
R = UBound(sArr, 1): C = UBound(sArr, 2)
If R > Rows.Count - sRng.Row Then
    MsgBox "Hands On.com"
    Exit Sub
End If
ReDim dArr(1 To R * N, 1 To C)
For I = 1 To UBound(sArr)
    If sArr(I, 1) <> Empty Then
        For Idx = 1 To N
            K = K + 1: Jdx = 0
            For J = C To 1 Step -1
                Jdx = Jdx + 1:  dArr(K, Jdx) = sArr(I, J)
            Next J
        Next Idx
    End If
Next I
sRng.Resize(K, UBound(sArr, 2)) = dArr
End Sub

Hoàng Nhật Phương · 31/10/18

♫ђöล♥ßล†♥†µ♫ đã viết:

Em chế nó ra thế này. Nhân tiện luyện mấy cái Anh @befaint chỉ

PHP:

Sub ChuyenDL()
    Dim sArr(), dArr(), I As Long, Idx As Long, K As Long, J As Long, R As Long, C As Long, Jdx As Long
Const N As Long = 5
sArr = Range("C1", Range("C" & Rows.Count).End(xlUp)).Resize(, 2).Value
R = UBound(sArr, 1): C = UBound(sArr, 2)
ReDim dArr(1 To R * N, 1 To C)
For I = 1 To UBound(sArr)
    If sArr(I, 1) <> mpty Then
        For Idx = 1 To N
            K = K + 1: Jdx = 0
            For J = C To 1 Step -1
                Jdx = Jdx + 1:  dArr(K, Jdx) = sArr(I, J)
            Next J
        Next Idx
    End If
Next I
With Range("K1")
    If K < Rows.Count - .Row Then
        If K Then .Resize(K, UBound(sArr, 2)) = dArr
    Else
        MsgBox "Hands On.com"
    End If
End With
End Sub

Xin chào ♫ђöล♥ßล†♥†µ♫,
Cảm ơn bạn rất nhiều, code bị lỗi dòng "If sArr(I, 1) <> mpty Then", OT sửa lại "If sArr(I, 1) <> Empty Then" thì OK rồi bạn ạ.
Chắc bạn sửa luôn trên này chưa thử code (OT thấy người nào giỏi giỏi cái gì đó có ích, thấy ngưỡng mộ quá ^^)

concogia · 31/10/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin cảm ơn anh, chị và các bạn đã giúp đỡ ạ.
Các code trên đều chạy ra kết quả OK rồi.

Trong trường hợp dữ liệu trả về trong cột K:L (dữ liệu cột C đưa sang cột L,dữ liệu cột D đưa sang cột K) như ảnh kèm thì code của @quanghai1969 và @♫ђöล♥ßล†♥†µ♫(ôi cái tên ..đẹp ^^) thì phải sửa như thế nào ạ?
Híc mong các bạn đừng hiểu nhầm ạ , OT đang học hỏi để biết cách tự điều chỉnh,chứ thực tế dữ liệu hiện tại đang không phải như vậy,nhưng cũng có thể sẽ gặp ạ.
Nếu các bạn có thời gian mong được các bạn chỉ dẫn ạ.

View attachment 206779

Thử code này, dữ liệu gì mà bắt đầu từ hàng 1, ngộ vậy, muốn từ hàng nào thì sửa trong code nhé:

Mã:

Public Sub Teo()
    Dim Vung, Kq, I, J
    Vung = Range([C2], [C50000].End(xlUp)).Resize(, 2)
    ReDim Kq(1 To UBound(Vung) * 5, 1 To 2)
        For I = 1 To UBound(Kq)
            J = J + IIf(I Mod 5 = 1, 1, 0)
            Kq(I, 2) = Vung(J, 1): Kq(I, 1) = Vung(J, 2)
        Next I
    [K2].Resize(UBound(Kq), 2) = Kq
End Sub

Thân

VetMini · 31/10/18

kieu manh đã viết:
Nếu dữ liệu 65536 dòng x 20 cột mà xài WorksheetFunction thì có mà tèo téo teo...

Cho vô mảng chạy 2 dòng For cho nó đẹp code nó bay cái Vèo

20x65000 = 1,3 triệu Variants
Máy cùi 1 chút cũng vỡ mật (out of memory) khỏi cần vòng pho phiếc gì cả.

Hoàng Nhật Phương · 31/10/18

concogia đã viết:
Thử code này, dữ liệu gì mà bắt đầu từ hàng 1, ngộ vậy, muốn từ hàng nào thì sửa trong code nhé:

Mã:

Public Sub Teo() Dim Vung, Kq, I, J Vung = Range([C2], [C50000].End(xlUp)).Resize(, 2) ReDim Kq(1 To UBound(Vung) * 5, 1 To 2) For I = 1 To UBound(Kq) J = J + IIf(I Mod 5 = 1, 1, 0) Kq(I, 2) = Vung(J, 1): Kq(I, 1) = Vung(J, 2) Next I [K2].Resize(UBound(Kq), 2) = Kq End Sub

Thân

Xin chào @concogia ,
Cảm ơn bạn đã quan tâm và giúp đỡ dữ liệu Oanh Thơ gửi lên hiện thời mang tính minh họa mục đích để Oanh Thơ học hỏi về mảng và chắc chắn sau hi vọng sau sẽ ứng dụng được ít nhiều vào thực tế trong công việc ạ.
Không ngờ mảng lại tuyệt vời đến với đến vậy.Nhanh, nhanh quá!

Hoàng Nhật Phương · 4/11/18

Xin chào các bạn,
Tôi muốn gán vùng dữ liệu C1:O1 vào DataValidation/list cho ô A1 và tôi đã thử code dưới bị lỗi chưa biết cách, nhờ các bạn xem giúp.

Mã:

Sub TestValidation()
    Dim ary As Variant
    ary = Sheets("Sheet1").Range("C1:O1").Value
    ary = Application.Transpose(ary)
    With Sheets("Sheet1").Cells(1, 1).Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Sheets("Sheet1").Cells(1, 2).Resize(UBound(ary)).Value = ary
End Sub

SA_DQ · 4/11/18

Nếu là mình thì sẽ làm như sau:

B1: Đánh số cách quãng các dòng lệnh & thêm các dòng lệnh để bẫy lỗi, như sau:

Mã:

Sub TestValidation()
    Dim ary As Variant
On Error GoTo LoiCT
2    ary = Sheets("Sheet1").Range("C1:O1").Value
    ary = Application.Transpose(ary)
4    With Sheets("Sheet1").Cells(1, 1).Validation
        .Delete
6        .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
        .IgnoreBlank = True:            .InCellDropdown = True
8        .InputTitle = "":                   .ErrorTitle = ""
        .InputMessage = "":             .ErrorMessage = ""
10        .ShowInput = True:              .ShowError = True
    End With
12    Sheets("Sheet1").Cells(1, 2).Resize(UBound(ary)).Value = ary
Err_:   Exit Sub
LoiCT:
    MsgBox Error, , Erl
    Resume Err_
End Sub

B1.1 Chạy thử Code để biết gần đúng dòng nào bị lỗi & lỗi là gì
(Sau khi thực hiện, macro báo ta biết dòng 6 bị lỗi; Nhưng ta đang đánh số cách quãng, nên lỗi có thể ở dòng 5 hay 7 nữa kia

B1.2: Ta lại tìm đúng dòng bị lỗi bằng cách đánh lại chỉ là:

PHP:

Sub TestValidation()
    Dim ary As Variant
On Error GoTo LoiCT
    ary = Sheets("Sheet1").Range("C1:O1").Value
    ary = Application.Transpose(ary)
    With Sheets("Sheet1").Cells(1, 1).Validation
5        .Delete
6        .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
7        .IgnoreBlank = True:            .InCellDropdown = True
        .InputTitle = "":                   .ErrorTitle = ""
        .InputMessage = "":             .ErrorMessage = ""
        .ShowInput = True:              .ShowError = True
    End With
    Sheets("Sheet1").Cells(1, 2).Resize(UBound(ary)).Value = ary
Err_:   Exit Sub
LoiCT:
    MsgBox Error, , Erl
    Resume Err_
End Sub

Sau khi lặp lại B1.1 ta biết đúng dòng 6 bị lỗi & nội dung lỗi là gì.

B2: Tìm mã lỗi của nội dung lỗi & viết lại cách dòng lệnh để bẫy lỗi:
Bằng cách thay dòng lệnh
MsgBox Error, , Erl
bỡi dòng lệnh: MsgBox Err, , Error
Ta biết được Err => 5
Ta sửa lại các dòng lệnh bẫy lỗi như sau:

Mã:

' . . .     '
Err_:   Exit Sub
LoiCT:
    If Err = 5 Then
        Resume Err_
    Else
        Resume Next
    End If
End Sub

Bạn thử tiếp tục tìm lỗi của đứa con tinh thần của bạn thử xem sao & chúc thành công!

batman1 · 4/11/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào các bạn,
Tôi muốn gán vùng dữ liệu C1:O1 vào DataValidation/list cho ô A1 và tôi đã thử code dưới bị lỗi chưa biết cách, nhờ các bạn xem giúp.

Mã:

Sub TestValidation() Dim ary As Variant ary = Sheets("Sheet1").Range("C1:O1").Value ary = Application.Transpose(ary) With Sheets("Sheet1").Cells(1, 1).Validation .Delete .Add Type:=xlValidateList, Formula1:=Join(ary, ",") .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Sheets("Sheet1").Cells(1, 2).Resize(UBound(ary)).Value = ary End Sub

Sai do JOIN chỉ chấp nhận mảng 1 chiều. Trong code của bạn ở thời điểm ADD thì ary là mảng 2 chiều có 13 dòng và 1 cột.

Sửa thành

Mã:

Sub TestValidation()
Dim ary As Variant
    ary = Sheets("Sheet1").Range("C1:O1").Value
    ary = Application.Transpose(ary)
    
    Sheets("Sheet1").Cells(1, "B").Resize(UBound(ary)).Value = ary
    ary = Application.Transpose(ary)
    
    With Sheets("Sheet1").Cells(1, "A").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Sau dòng

Mã:

ary = Sheets("Sheet1").Range("C1:O1").Value

ary là mảng 2 chiều có 1 dòng và 13 cột.

Sau dòng

Mã:

ary = Application.Transpose(ary)

thứ nhất ary là mảng 2 chiều có 13 dòng và 1 cột

Sau dòng

Mã:

ary = Application.Transpose(ary)

thứ hai ary là mảng 1 chiều có 13 phần tử (không có khái niệm dòng hay cột). Lúc này ary mới được vinh dự hầu ông JOIN.

Nói cho cùng tôi và nhiều người chỉ hơn bạn chủ yếu là chúng tôi đọc help còn bạn không đọc. Một kho kiến thức ngay bên cạnh mà cứ chạy đi hỏi đâu đâu.

batman1 · 4/11/18

SA_DQ đã viết:
Nếu là mình thì sẽ làm như sau:

B1: Đánh số cách quãng các dòng lệnh & thêm các dòng lệnh để bẫy lỗi, như sau:

Mã:

Sub TestValidation() Dim ary As Variant On Error GoTo LoiCT 2 ary = Sheets("Sheet1").Range("C1:O1").Value ary = Application.Transpose(ary) 4 With Sheets("Sheet1").Cells(1, 1).Validation .Delete 6 .Add Type:=xlValidateList, Formula1:=Join(ary, ",") .IgnoreBlank = True: .InCellDropdown = True 8 .InputTitle = "": .ErrorTitle = "" .InputMessage = "": .ErrorMessage = "" 10 .ShowInput = True: .ShowError = True End With 12 Sheets("Sheet1").Cells(1, 2).Resize(UBound(ary)).Value = ary Err_: Exit Sub LoiCT: MsgBox Error, , Erl Resume Err_ End Sub

B1.1 Chạy thử Code để biết gần đúng dòng nào bị lỗi & lỗi là gì

Không cần đoạn trên cũng biết "gần đúng" lỗi ở đâu. Khi chạy code thì dòng

Mã:

.Add Type:=xlValidateList, Formula1:=Join(ary, ",")

bị đánh dấu - cứ cho là gần đúng đi.

...
Sau khi lặp lại B1.1 ta biết đúng dòng 6 bị lỗi & nội dung lỗi là gì.

B2: Tìm mã lỗi của nội dung lỗi

Khi bị lỗi thì sẽ có cửa sổ nhẩy ra ghi rõ nội dung lỗi và cả mã lỗi. Chả cần làm gì cũng biết nội dung và mã lỗi. Muốn biết lỗi ở dòng nào (cứ cho là gần đúng đi) thì nhấn Debug ở cửa sổ báo lỗi.

Cũng chả cần tới hàm Error

Mã:

MsgBox Err.Description, , Err.Number

Khi cần thì Err.Clear, Err.Raise. Tất cả nằm trong đối tượng Err

Tìm dòng lỗi chỉ là một chuyện nhỏ. Mà thường thì ta cũng được chỉ ra "khu vực" bị lỗi. Cái quan trọng là tìm ra nguyên nhân, thủ phạm. Để làm được điều đó thì phải chịu khó tư duy, phán đoán và nếu cần thì đọc trợ giúp. Đọc về cái gì thì tư duy và phán đoán sẽ chỉ đường.

Vd. trong trường hợp ở trên thì giá trị xlValidateList là hợp lệ - ít ra là ta có 99% chắc chắn là thế. Còn lại Join(ary, ",") thì "nhìn" có vẻ "ổn", nhưng đây là hàm chứ không phải là hằng như xlValidateList. Vậy ta tìm đọc lại về JOIN xem có chỗ nào ta dùng sai dấu, sai ký tự hay sai gì đó không. Có rất nhiều khi ta có hàm xịn, dùng mấy năm rồi, nhưng hôm nay giở chứng. Nếu là hàm xịn, mà JOIN là hàm xịn, thì 99% lỗi là do truyền tham số không hợp lệ vào hàm.

SA_DQ · 4/11/18

Tìm dòng lỗi chỉ là một chuyện nhỏ. Mà thường thì ta cũng được chỉ ra "khu vực" bị lỗi. Cái quan trọng là tìm ra nguyên nhân, thủ phạm

Tuổi nhỏ làm việc nhỏ, tùy theo sức của mình mà lị!

Bạn í cần đi bộ lên các bậc thang VBA; Dù có thể 2 bậc 1 bước. Nhưng chưa thể đi thang máy được đâu; chắc vậy!

Hoàng Nhật Phương · 4/11/18

Cháu cảm ơn hai bác SA_DQ và Siwtom đã giúp cháu.
Nhờ vào các giải thích chi tiết cháu cũng đã hiểu thêm một chút về mảng là như thế nào.
Hiện cháu đang loay hoay, khi gán dữ liệu mảng rồi,ví dụ:

ary = Sheets("Sheet1").Range("C1:O1").Value

thì làm thế nào để sử dụng các vòng lặp duyệt từng phần tử trong mảng 2 chiều để trả về mảng 1 chiều mà không phải sử dụngTranspose(ary)
nữa ạ.
Nếu hai bác và các bạn có hứng thú thời gian góp ý cho cháu thêm những cách để cháu tham khảo thêm ạ.

Hoàng Nhật Phương · 4/11/18

Xin chào các bạn,
Nhờ các bạn giúp đỡ cho tôi trường hợp sau với, làm thế nào để có thể gán được các con số như trong list tại ô A1, với điều kiện:
Các con số được lấy trong vùng "C1:O1" (vấn đề đã được xử lý ở bài 1052),
Nhưng thêm 1 điều kiện rút ngắn list lại, loại bỏ những cột(list) không có số liệu trong vùng "C2:O12"

snow25 · 4/11/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào các bạn,
Nhờ các bạn giúp đỡ cho tôi trường hợp sau với, làm thế nào để có thể gán được các con số như trong list tại ô A1, với điều kiện:
Các con số được lấy trong vùng "C1:O1" (vấn đề đã được xử lý ở bài 1052),
Nhưng thêm 1 điều kiện rút ngắn list lại, loại bỏ những cột(list) không có số liệu trong vùng "C2:O12"

View attachment 206982

đây bạn xem nhé không biết có ổn không

Mã:

Sub TestValidation()
Dim ary As Variant, i As Long
    ary = Sheets("Sheet1").Range("C1:O1").Value
    For i = 1 To UBound(ary, 2)
        If WorksheetFunction.CountA(Sheet1.Cells(2, 2 + i).Resize(10, 1)) = 0 Then
           ary(1, i) = Empty
        End If
    Next i
    
    ary = Application.Transpose(ary)
    
    Sheets("Sheet1").Cells(1, "B").Resize(UBound(ary)).Value = ary
    ary = Application.Transpose(ary)
    
    With Sheets("Sheet1").Cells(1, "A").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

batman1 · 4/11/18

SA_DQ đã viết:
Tuổi nhỏ làm việc nhỏ, tùy theo sức của mình mà lị!

Bạn í cần đi bộ lên các bậc thang VBA; Dù có thể 2 bậc 1 bước. Nhưng chưa thể đi thang máy được đâu; chắc vậy!

Bạn để ý thì thấy tôi không nói tới đoạn

B1.2: Ta lại tìm đúng dòng bị lỗi bằng cách đánh lại chỉ là:
PHP:

Sub TestValidation()
Dim ary As Variant
On Error GoTo LoiCT
ary = Sheets("Sheet1").Range("C1:O1").Value
ary = Application.Transpose(ary)
With Sheets("Sheet1").Cells(1, 1).Validation
5 .Delete
6 .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
7 .IgnoreBlank = True: .InCellDropdown = True
.InputTitle = .ErrorTitle = ""
.InputMessage = .ErrorMessage = ""
.ShowInput = True: .ShowError = True
End With
Sheets("Sheet1").Cells(1, 2).Resize(UBound(ary)).Value = ary
Err_: Exit Sub
LoiCT:
MsgBox Error, , Erl
Resume Err_
End Sub

Vì theo tôi đoạn đó có thể có ích cho người hỏi.

Còn những đoạn trước và sau nó không cần vì khi chạy code bạn đã được cung cấp thông tin quá rõ ràng rồi.

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 tiêu biểu

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

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gắn bó

Gội rồi mới Cạo

Ăn cùng góc phố

Thành viên gắn bó

Thành viên gắn bó

/(hông là gì!

Thành viên gạo cội

Thành viên gạo cội

/(hông là gì!

Thành viên gắn bó

Thành viên gắn bó

Thành viên gạo cội

Thành viên gạo cội

Đếm ngược thời gian