Thay đổi công thức mảng làm cho file chạy nhanh hơn (1 người xem)

[ninhmoon]

Các tiền bối cho e hỏi chút
E có một file có chứa công thức mảng nên file khi mở và hoạt động tương đối chậm do có cài công thức mảng tại hai cột L và Cột M
Mọi người có thể giúp e thay thế công thức mảng đó bằng một công thức khác hoặc bằng một hàm khác mà có giá trị tương đương được không?
E gửi file đính kém bên dưới:

 

[Let'GâuGâu]

Các tiền bối cho e hỏi chút
E có một file có chứa công thức mảng nên file khi mở và hoạt động tương đối chậm do có cài công thức mảng tại hai cột L và Cột M
Mọi người có thể giúp e thay thế công thức mảng đó bằng một công thức khác hoặc bằng một hàm khác mà có giá trị tương đương được không?
E gửi file đính kém bên dưới:

hàm này của anh NDU, chắc phải chờ anh NDU sửa
trong khi chờ đợi thử xem cái này

Function JoinText(rng As Range, Cre As String, Jrng As Range)
Dim arr, Jarr As Variant, kq(), i, j, k As Long
arr = rng.Value
Jarr = Jrng.Value
For i = 1 To UBound(arr)
If arr(i, 1) = Cre Then
    k = k + 1
    ReDim Preserve kq(1 To k)
    kq(k) = Jarr(i, 1)
End If
Next
If k Then JoinText = Join(kq, Chr(10))


End Function

L10=JoinText($D$10:$D$3427,Q10,$A$10:$A$3427)
M10=JoinText($D$10:$D$3427,Q10,$B$10:$B$3427)

 

[ninhmoon]

Nhanh hơn hẳn đó ah! mỗi tội nhìn hơi khó thui ah

 

[ndu96081631]

Các tiền bối cho e hỏi chút
E có một file có chứa công thức mảng nên file khi mở và hoạt động tương đối chậm do có cài công thức mảng tại hai cột L và Cột M
Mọi người có thể giúp e thay thế công thức mảng đó bằng một công thức khác hoặc bằng một hàm khác mà có giá trị tương đương được không?
E gửi file đính kém bên dưới:

Bộ hàm nối chuỗi mà tôi viết gồm có 3 hàm: JoinText, JoinIf và JoinUnique
Trường hợp của bạn nên dùng JoinIf thì hơn vì nó không phải công thức mảng. Chỉ có trường nối chuỗi phức tạp mới dùng đến JoinText

 

[ninhmoon]

Cảm ơn bác ndu96081631 rất nhiều file chạy nhanh mà ko bị mắc lỗi đếm thời gian. mấy hàm trên bác viết e cũng chưa thực sự hiểu. Do bạn e Viết cho E file đó.