Gộp nhiều mảng có cùng cấu trúc

Liên hệ QC

chisinhvnn

Thành viên tiêu biểu
Tham gia
7/3/08
Bài viết
478
Được thích
103
Mình có tạo 3 mảng dữ liệu, nay muốn gộp 3 mãng dữ liệu này lại thành 1 mảng thì xử lý như thế nào? GPE hướng dẫn mình cách xử lý với. (không copy vào 1 sheet rồi tạo mảng lại)
 
Lần chỉnh sửa cuối:
Nếu dữ liệu ít thì cứ dùng vòng lặp cho đơn giản, dữ liệu nhiều thì có thể dùng hàm API CopyMemory.
 
Upvote 0
Mình có tạo 3 mãng dữ liệu, nay muốn gộp 3 mãng dữ liệu này lại thành 1 mãng thì xử lý như thế nào? GPE hướng dẫn mình cách xử lý với. (không copy vào 1 sheet rồi tạo mãng lại)
Mình cũng có lần gộp hai mảng rồi nhưng gộp mãng thì chưa thử bao giờ.
 
Upvote 0
Nếu dữ liệu ít thì cứ dùng vòng lặp cho đơn giản, dữ liệu nhiều thì có thể dùng hàm API CopyMemory.
Cảm ơn anh. hàm API CopyMemory thì em chịu anh.
Bài đã được tự động gộp:

Mình cũng có lần gộp hai mảng rồi nhưng gộp mãng thì chưa thử bao giờ.
Nhờ anh hướng dẫn giúp với. Cảm ơn anh
 
Upvote 0
Nếu dữ liệu ít thì cứ dùng vòng lặp cho đơn giản, dữ liệu nhiều thì có thể dùng hàm API CopyMemory.
Mã:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Sub abn1()
Dim arr1, arr2 As Variant
arr1 = Sheet1.Range("C6:D21").Value
arr2 = Sheet1.Range("F6:G21").Value
CopyMemory ByVal VarPtr(arr1), ByVal VarPtr(arr2), 4
Sheet1.Range("H2").Resize(UBound(arr1, 1) + UBound(arr2, 1), 2) = arr1
End Sub
Do code lượm nhặt trên mạng nên cũng không hiểu cách hoạt động, anh cho thể chỉ giúp em với được không?
Cụ thể
Mã:
 CopyMemory ByVal VarPtr(arr1), ByVal VarPtr(arr2), 4
"ByVal VarPtr(arr1), ByVal VarPtr(arr2), 4" có ý nghĩa gì vậy? Khi in ra sheet phần copy mãng arr2 bị lỗi àh[/code]
 
Upvote 0
Web KT
Back
Top Bottom