shnhatha221108
Thành viên chính thức
- Tham gia
- 2/10/18
- Bài viết
- 58
- Được thích
- 11
Nhờ anh chị em sửa giúp!
Mình thực hiện đoạn code để lấy dữ liệu đầu tiên ở côt D sang cột F ,giá trị sau giống nhau trả về không có gì ("").
Mình thực hiện đoạn code để lấy dữ liệu đầu tiên ở côt D sang cột F ,giá trị sau giống nhau trả về không có gì ("").
Mã:
Sub count_If()
Dim lr As Integer, i As Long, k As Long, arr_N(), kq()
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
lr = Sheet1.Range("D" & Rows.Count).End(xlUp).Row
arr_N = Range("D5:D" & lr).Value
ReDim kq(1 To UBound(arr_N, 1), 1 To 1)
k = 0
For i = 1 To UBound(arr_N, 1)
If Not dic.exists(arr_N(i, 1)) Then
k = k + 1
dic.Add arr_N(i, 1), k
kq(k, 1) = arr_N(i, 1)
Else
kq(k, 1) = ""
End If
Next
Sheet1.Range("F5:N100").Clear
Sheet1.Range("F5").Resize(k, 1) = kq
End Sub
