Nối 3 array vào 1 array (1 người xem)

[ndu96081631]

Tôi có 3 Array như sau:
- Arr1 = Array("a","b","c")
- Arr2 = Array("d","e","f")
- Arr3 = Array("g","h","i")
Xin hỏi: Làm cách nào nối 3 Array này thành 1?
Arr = Array("a","b","c","d","e","f","g","h","i")
Ý tôi muốn hỏi ngoài cách dùng vòng lập For duyệt qua tất cả các phần tử thì còn cách nào khác nhanh hơn không?

 

[hoangdanh282vn]

Em gửi một cách củ chuối này anh xem thử nha

Sub GhepMang()
Dim Arr
arr1 = Array("a", "b", "c")
arr2 = Array("d", "e", "f")
arr3 = Array("g", "h", "i")
Arr = Split(Join(arr1, "~") & "~" & Join(arr2, "~") & "~" & Join(arr3, "~"), "~")
MsgBox Arr(4) '=> "e"
End Sub

 

[ndu96081631]

Em gửi một cách củ chuối này anh xem thử nha

Sub GhepMang()
Dim Arr
arr1 = Array("a", "b", "c")
arr2 = Array("d", "e", "f")
arr3 = Array("g", "h", "i")
Arr = Split(Join(arr1, "~") & "~" & Join(arr2, "~") & "~" & Join(arr3, "~"), "~")
MsgBox Arr(4) '=> "e"
End Sub

Vâng! Join và Split là ngon rồi
Vấn đề ở đây là: Nếu có khoảng 20 Array thì sao? Chẳng lẽ nối bằng tay thế sao?
Liệu có cách nào dùng vòng lập duyệt từ 1 đến 20 không?
Tức duyệt qua từng Array (chứ không phải duyệt qua tất cả các phần từ) rồi nối chúng lại

 

[hoangdanh282vn]

Vâng! Join và Split là ngon rồi
Vấn đề ở đây là: Nếu có khoảng 20 Array thì sao? Chẳng lẽ nối bằng tay thế sao?
Liệu có cách nào dùng vòng lập duyệt từ 1 đến 20 không?
Tức duyệt qua từng Array (chứ không phải duyệt qua tất cả các phần từ) rồi nối chúng lại

Thì thêm for vào cho nó ah. Hơi rườm rà tí.

Sub GhepMang()
Dim Arr(1 To 3), ArrStr As String, i As Long, ArrNew
Arr(1) = Array("a", "b", "c")
Arr(2) = Array("d", "e", "f")
Arr(3) = Array("g", "h", "i")
For i = 1 To 3
ArrStr = ArrStr & Join(Arr(i), "~") & "~"
Next
ArrNew = Split(Left(ArrStr, Len(ArrStr) - 1), "~")
MsgBox ArrNew(4)
End Sub

 

[rollover79]

Thì thêm for vào cho nó ah. Hơi rườm rà tí.

Sub GhepMang()
Dim Arr(1 To 3), ArrStr As String, i As Long, ArrNew
Arr(1) = Array("a", "b", "c")
Arr(2) = Array("d", "e", "f")
Arr(3) = Array("g", "h", "i")
For i = 1 To 3
ArrStr = ArrStr & Join(Arr(i), "~") & "~"
Next
ArrNew = Split(Left(ArrStr, Len(ArrStr) - 1), "~")
MsgBox ArrNew(4)
End Sub

Dùng cách này mà trong phần tử mảng có chứa ký tự "~" thì sao?

 

[hoangdanh282vn]

Dùng cách này mà trong phần tử mảng có chứa ký tự "~" thì sao?

Cái này mình cố tình dùng ký tự "~" để cho biết là phải dùng ký tự đặc biệt. Còn để cho khỏi trùng thì đổi thành chuỗi khác đặc biệt hơn. Cái này bạn hỏi cho các bạn khác thôi phải không chứ còn bạn thì dư sức làm mà.

 

[rollover79]

Cái này mình cố tình dùng ký tự "~" để cho biết là phải dùng ký tự đặc biệt. Còn để cho khỏi trùng thì đổi thành chuỗi khác đặc biệt hơn. Cái này bạn hỏi cho các bạn khác thôi phải không chứ còn bạn thì dư sức làm mà.

Không phải vậy đâu, cái tôi muốn hỏi đúng là như vậy mà, tư tưởng này mà dùng trong công thức thì có thể tạm chấp nhận được vì 1 chuỗi trong công thức dù sao nó đã hạn chế các ký tự đặc biệt rồi. Còn 1 chuỗi trong VBA thì ký tự nào nó cũng có thể có mà. Nếu không thì phải tùy thuộc vào từng yêu cầu cụ thể(Ví dụ như mảng số chẳng hạn ...)

 

[hoangdanh282vn]

Không phải vậy đâu, cái tôi muốn hỏi đúng là như vậy mà, tư tưởng này mà dùng trong công thức thì có thể tạm chấp nhận được vì 1 chuỗi trong công thức dù sao nó đã hạn chế các ký tự đặc biệt rồi. Còn 1 chuỗi trong VBA thì ký tự nào nó cũng có thể có mà. Nếu không thì phải tùy thuộc vào từng yêu cầu cụ thể(Ví dụ như mảng số chẳng hạn ...)

Đúng như bạn nói, chúng ta không thể lường hết được mọi thứ. Nếu thay "~" bằng "~$#@" thì xác suất trùng cũng tạm chấp nhận được phải không bạn.

 

[rollover79]

Đúng như bạn nói, chúng ta không thể lường hết được mọi thứ. Nếu thay "~" bằng "~$#@" thì xác suất trùng cũng tạm chấp nhận được phải không bạn.

Như tôi đã nói, cách nào cũng ok miễn sao đáp ứng đúng được yêu cầu cụ thể. Mảng trong 1 số ngôn ngữ khác thường có hỗ trợ để nối mảng. Còn với VBA của excel theo tôi có thể đẩy các mảng vào 1 Sheet rồi chuyển ngược lại 1 mảng kết quả cũng là 1 cách. Tuy nhiên không hiểu ý tưởng của tác giả muốn gì, chứ tôi thấy hầu hết mọi người đều dùng vòng lặp để nối các mảng với nhau.

 

[ndu96081631]

Như tôi đã nói, cách nào cũng ok miễn sao đáp ứng đúng được yêu cầu cụ thể. Mảng trong 1 số ngôn ngữ khác thường có hỗ trợ để nối mảng. Còn với VBA của excel theo tôi có thể đẩy các mảng vào 1 Sheet rồi chuyển ngược lại 1 mảng kết quả cũng là 1 cách. Tuy nhiên không hiểu ý tưởng của tác giả muốn gì, chứ tôi thấy hầu hết mọi người đều dùng vòng lặp để nối các mảng với nhau.

Mình vẫn đang nghiên cứu và muốn tìm hiểu xem cách nào nhanh nhất thôi mà!

 

[rollover79]

Mình vẫn đang nghiên cứu và muốn tìm hiểu xem cách nào nhanh nhất thôi mà!

Tôi thấy bài toán nối mảng này không phức tạp lắm, nếu dùng vòng lặp thì trong vòng lặp cũng không có nhiều phép toán có thể ảnh hưởng đến tốc độ, chỉ là phép gán thông thường. Nên tôi nghĩ tốc độ không ảnh hưởng nhiều lắm.

 

[ThuNghi]

Tôi thấy bài toán nối mảng này không phức tạp lắm, nếu dùng vòng lặp thì trong vòng lặp cũng không có nhiều phép toán có thể ảnh hưởng đến tốc độ, chỉ là phép gán thông thường. Nên tôi nghĩ tốc độ không ảnh hưởng nhiều lắm.

Tôi cũng muốn nối mảng như sau, không biết có được không.

Dim ArrMe(), ArrCon()
ReDim ArrMe(2,10)
ReDim ArrCon(2,2)

Các ArrCon là kết quả của những lần tính toán.
Tôi muốn ArrMe=ArrCon(2,2)+ArrCon(2,2)+ArrCon(2,2)+ArrCon(2,2)+ArrCon(2,2)
Vậy có cách nào ngoài phải duyệt từng ArrCon và gán vào ArrMe.
Tôi có tham khảo CombineTwoDArrays của trang http://www.cpearson.com/Excel/VBAArrays.htm nhưng chưa áp dụng được.
Cám ơn. Phải chi có hàm
ArrMe=ArrMe+ArrCon(2,2) ...
Thì hay quá.

 

[vba_gpe]

Em gửi một cách củ chuối này anh xem thử nha

Sub GhepMang()
Dim Arr
arr1 = Array("a", "b", "c")
arr2 = Array("d", "e", "f")
arr3 = Array("g", "h", "i")
Arr = Split(Join(arr1, "~") & "~" & Join(arr2, "~") & "~" & Join(arr3, "~"), "~")
MsgBox Arr(4) '=> "e"
End Sub

Em dùng hàm fiter2Array của thầy NDU để xuất ra 2 mảng theo 2 điều kiện tìm kiếm.
Sau đó dùng cách này để nối 2 mảng này lại với nhau nhưng không được.

Nhờ mọi người chỉ dẫn thêm.

 

[Hai Lúa Miền Tây]

Em dùng hàm fiter2Array của thầy NDU để xuất ra 2 mảng theo 2 điều kiện tìm kiếm.
Sau đó dùng cách này để nối 2 mảng này lại với nhau nhưng không được.

Nhờ mọi người chỉ dẫn thêm.

Bạn xem file đính kèm nhé.

 

[vba_gpe]

Bạn xem file đính kèm nhé.

Cảm ơn anh.
Chỉ một hàm duy nhất mà giải quyết được hết.

 

[Hai Lúa Miền Tây]

Cảm ơn anh.
Chỉ một hàm duy nhất mà giải quyết được hết.

Đó là hàm tự tạo, bạn xem module2 nhé.