Sửa code thay vì thông báo Msg thì gán giá trị xuống cell (1 người xem)

[AnhThu-1976]

Các anh /chị giúp em đoạn code sau: (mục đích để học)
Em đọc trên GPE có đoạn code:
"Với giải pháp lọc duy nhất mà dùng code thì Dictionary mới chính là sở trường
Tôi cho bạn 1 ví dụ nhỏ
- Gõ vào vùng A1:A10 các số tùy ý (có thể trùng)
- Dùng code này thử kết quả"

Sub Test()
  Dim Clls As Range, Dic As Object
  Set Dic = CreateObject("Scripting.Dictionary")
  For Each Clls In Range("A1:A10")
    If Not Dic.Exists(Clls.Value) Then  '<-- [COLOR=#DD0000][FONT=monospace]Xét xem Clls.Value đã có trong Dic hay chưa, nếu chưa có thì thực hiện tiếp đoạn dưới[/FONT][/COLOR]
      Dic.Add Clls.Value, ""
      MsgBox Clls.Value
    End If
  Next
  
End Sub

1/ Bây giờ em muốn sửa code trên như sau: thay vì hiện thông báo thì nó sẽ cho kết quả từ ô B1 trở xuống
2/ Cho hỏi thêm trong:

Dic.Add Clls.Value, ""

thì "" có nghĩa là gì? Nghĩa là tại sao dấu "" lại được đặt ở đây?
Xin cảm ơn!

 

[befaint]

(1)

Sub Test()
  Dim Clls As Range, Dic As Object, r As Long
  Set Dic = CreateObject("Scripting.Dictionary")
  For Each Clls In Range("A1:A10")
    If Not Dic.Exists(Clls.Value) Then  '<-- Xét xem Clls.Value dã có trong Dic hay chua, n?u chua có thì th?c hi?n ti?p do?n du?i
      Dic.Add Clls.Value, ""
      Range("B1").Offset(r, 0).Value = Clls.Value: r = r + 1
    End If
  Next
End Sub

(2)
https://www.giaiphapexcel.com/forum/showthread.php?60643-Tổng-quan-về-Scripting-Dictionary

 

[AnhThu-1976]

(1)

Sub Test()
  Dim Clls As Range, Dic As Object, r As Long
  Set Dic = CreateObject("Scripting.Dictionary")
  For Each Clls In Range("A1:A10")
    If Not Dic.Exists(Clls.Value) Then  '<-- Xét xem Clls.Value dã có trong Dic hay chua, n?u chua có thì th?c hi?n ti?p do?n du?i
      Dic.Add Clls.Value, ""
      Range("B1").Offset(r, 0).Value = Clls.Value: r = r + 1
    End If
  Next
End Sub

(2)
https://www.giaiphapexcel.com/forum/showthread.php?60643-Tổng-quan-về-Scripting-Dictionary

Cảm ơn bạn nhiều
Riêng câu (2) mình cũng đã nghiên cứu bên trang đó rồi, nhưng còn thấy chưa hiểu rỏ nên mới hỏi

 

[befaint]

Cảm ơn bạn nhiều
Riêng câu (2) mình cũng đã nghiên cứu bên trang đó rồi, nhưng còn thấy chưa hiểu rỏ nên mới hỏi

MyDictionary.Add Key, [COLOR=#ff0000]Item
[/COLOR]Dic.Add Clls.Value, [COLOR=#ff0000]""
[/COLOR]

=> Item="" (không dùng đến nó thì cho nó bằng cái đó)

 

[AnhThu-1976]

MyDictionary.Add Key, [COLOR=#ff0000]Item
[/COLOR]Dic.Add Clls.Value, [COLOR=#ff0000]""
[/COLOR]

=> Item="" (không dùng đến nó thì cho nó bằng cái đó)

Cảm ơn bạn nhiều!!!!!!!!!!!!!!!!!

 

[AnhThu-1976]

Nhân đây nhờ các anh chị giải giúp bài toán Dùng Dic để cho em hiểu thêm (vì có liên quan đến Dic, nên gởi bài lên luôn trang này)
Vì các bài trong Tổng-quan-về-Scripting-Dictionary ​em đọc còn chưa hiểu lắm, nên nhờ anh chị làm ví dụ đơn giản trong file
Xin cảm ơn!

 

[befaint]

Nhân đây nhờ các anh chị giải giúp bài toán Dùng Dic để cho em hiểu thêm (vì có liên quan đến Dic, nên gởi bài lên luôn trang này)
Vì các bài trong Tổng-quan-về-Scripting-Dictionary ​em đọc còn chưa hiểu lắm, nên nhờ anh chị làm ví dụ đơn giản trong file
Xin cảm ơn!

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

 

[AnhThu-1976]

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

Cảm ơn bạn nhiều! để mình nghiên cứu tư từ