dùng hàm lấy các dữ liệu không giống nhau (1 người xem)

[tu205489039]

mình có thắc mắc nhỏ, mong các cao nhân chỉ giúp, tại cột A1=>A9 có các dữ liệu từ 551=>554. có cách nào dùng hàm tại ô B1 trở đi lấy các giá trị lần lượt là tại các ô là [B1] 551; [B2] 552; [B3] 553; [B4] 554
Mình cảm ơn

 

[huonglien1901]

mình có thắc mắc nhỏ, mong các cao nhân chỉ giúp, tại cột A1=>A9 có các dữ liệu từ 551=>554. có cách nào dùng hàm tại ô B1 trở đi lấy các giá trị lần lượt là tại các ô là [B1] 551; [B2] 552; [B3] 553; [B4] 554
Mình cảm ơn

Bài này bạn sử dụng REMOVE DUPLICATES nhé.

 

[phulien1902]

Hoặc công cụ có sẵn Consolidate

 

[huonglien1901]

công thức hơi củ chuối tí, mời bạn xem thử

 

[huonglien1901]

Sub Locgiatritrung()
Dim sRng As Range, Rng As Range
Dim sArr, dArr, I As Long
Dim Dic As Object, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
On Error GoTo Thoat
Set sRng = Application.InputBox(Prompt:="Chon vung du lieu ", Title:="Chon vung", Type:=8)
sArr = sRng.Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr, 1)
Tem = sArr(I, 1)
If Not Dic.Exists(Tem) Then
K = K + 1
Dic.Add Tem, K
dArr(K, 1) = Tem
End If
Next I
Set Rng = Application.InputBox(Prompt:="Chon 1 o chia du lieu ", Title:="Ket qua", Type:=8)
If K Then Rng.Resize(K, 1) = dArr
Thoat:
Set Dic = Nothing
End Sub
Bạn chép code vào module rồi chạy thử, mượn tạm code của bạn @PacificPR .