Tìm phần tử duy nhất trong tập hợp bỏ qua ô rỗng

[Nhật Anh 9x]

Thưa Anh Chị

Em đang muốn lấy phần từ duy nhất của 1 tập hợp, nhưng em chưa biết cách để loại bỏ ô trống nên ô trống đó vẫn được ghi nhận là một phần tử
Em đang muốn lấy phần từ duy nhất từ vùng D1227 và trả kết quả về D55. Vậy anh chị có cách nào xin chỉ cho em với ạ!

Sub TH_MAHANG(item As Variant)
Set dict = CreateObject("Scripting.dictionary")
Set wb = ActiveWorkbook
Set sh = wb.Sheets(1)
Dim lr As Integer
lr = sh.Range("A" & Rows.Count).End(xlUp).Row
arr = sh.Range("D12" & lr - 1).Value
For i = 1 To UBound(arr, 1)
If Not dict.exists(arr(i, 1)) Then
item = arr(i, 1)
dict.Add arr(i, 1), arr(i, 1)
End If
Next i
sh.Range("D" & lr + 27).Resize(dict.Count) = Application.Transpose(dict.items)
Set dict = Nothing
Set arr = Nothing
Set item = Nothing
End Sub

 

[Probing9280]

Thưa Anh Chị

Em đang muốn lấy phần từ duy nhất của 1 tập hợp, nhưng em chưa biết cách để loại bỏ ô trống nên ô trống đó vẫn được ghi nhận là một phần tử
Em đang muốn lấy phần từ duy nhất từ vùng D1227 và trả kết quả về D55. Vậy anh chị có cách nào xin chỉ cho em với ạ!

Sub TH_MAHANG(item As Variant)
Set dict = CreateObject("Scripting.dictionary")
Set wb = ActiveWorkbook
Set sh = wb.Sheets(1)
Dim lr As Integer
lr = sh.Range("A" & Rows.Count).End(xlUp).Row
arr = sh.Range("D12" & lr - 1).Value
For i = 1 To UBound(arr, 1)
If Not dict.exists(arr(i, 1)) Then
item = arr(i, 1)
dict.Add arr(i, 1), arr(i, 1)
End If
Next i
sh.Range("D" & lr + 27).Resize(dict.Count) = Application.Transpose(dict.items)
Set dict = Nothing
Set arr = Nothing
Set item = Nothing
End Sub

View attachment 285236View attachment 285237

Thêm hàm IsEmpty để kiểm tra rỗng

If Not IsEmpty(arr(i, 1)) And Not dict.exists(arr(i, 1)) Then

 

[TH2]

hoặc đơn giản là thêm điều kiện
arr(i, 1)<>""

 

[Nhattanktnn]

Thêm hàm IsEmpty để kiểm tra rỗng

If Not IsEmpty(arr(i, 1)) And Not dict.exists(arr(i, 1)) Then

Theo mình thì vẫn khuyến cáo dùng arr(i,1)<>"" (có nặng nề hơn vbnullstring tí) thay vì dùng isEmpty(arr(i,1))

 

[Nhật Anh 9x]

Em cảm ơn cách anh!