Liệt kê các giá trị

[anpha_omega]

Em nhờ các anh chị giúp em. Em có 1 bảng có nhiều cái tên (có giống nhau). Giờ em làm thể nào để liệt kê ra tên của những người đó tại 1 cột khác được ạ.

 

[phihndhsp]

Em nhờ các anh chị giúp em. Em có 1 bảng có nhiều cái tên (có giống nhau). Giờ em làm thể nào để liệt kê ra tên của những người đó tại 1 cột khác được ạ.

cách thì có đó, nhưng bạn có chắc là dữ liệu của mình bố trí như vậy không? chắc chắn 100%?, chứ tôi thấy bố trí như vậy là không ổn rồi đó!

 

[khuongvietphong]

Em nhờ các anh chị giúp em. Em có 1 bảng có nhiều cái tên (có giống nhau). Giờ em làm thể nào để liệt kê ra tên của những người đó tại 1 cột khác được ạ.

Bạn xem thử File này, bạn bấm vào Button1 để ra kết quả

 

[anpha_omega]

cách thì có đó, nhưng bạn có chắc là dữ liệu của mình bố trí như vậy không? chắc chắn 100%?, chứ tôi thấy bố trí như vậy là không ổn rồi đó!

Hic, có vậy mình mới hỏi chứ. Mình thay bộ data của mình bằng mấy cái tên làm ví dụ trên cho dễ thôi bạn ạ.

Bạn xem thử File này, bạn bấm vào Button1 để ra kết quả

Cảm ơn bạn. Ngoài chạy macro thì có dùng được hàm bình thường ko bạn. Mình ko muốn dùng macro vì cảm giác nó phức tạp í.

 

[giangleloi]

Hic, có vậy mình mới hỏi chứ. Mình thay bộ data của mình bằng mấy cái tên làm ví dụ trên cho dễ thôi bạn ạ.


Cảm ơn bạn. Ngoài chạy macro thì có dùng được hàm bình thường ko bạn. Mình ko muốn dùng macro vì cảm giác nó phức tạp í.

Góp vui cho bạn đoạn code.

Sub GPE()
Dim Dic, I, J, Arr(), vlArr(1 To 10000, 1 To 1), Tem
Set Dic = CreateObject("Scripting.Dictionary")
 Arr = Sheet1.[F7:H16].Value
    For I = 1 To UBound(Arr)
        For J = 1 To 3
          If Arr(I, J) <> Empty Then
             Tem = Arr(I, J)
               If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, ""
                vlArr(K, 1) = Arr(I, J)
               End If
          End If
        Next
    Next I
    [K10].Resize(K, 1) = vlArr
Set Dic = Nothing
End Sub

 

[ec ec]

Em nhờ các anh chị giúp em. Em có 1 bảng có nhiều cái tên (có giống nhau). Giờ em làm thể nào để liệt kê ra tên của những người đó tại 1 cột khác được ạ.

K10=INDEX($A:$H;SUM((ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)=MIN(IF($F$7:$H$16<>"";IF(COUNTIF(K$9:K9;$F$7:$H$16)=0;ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)))))*ROW($7:$16));SUM((ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)=MIN(IF($F$7:$H$16<>"";IF(COUNTIF(K$9:K9;$F$7:$H$16)=0;ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)))))*COLUMN($F:$H)))

ctrl+shift+enter

 

[anpha_omega]

K10=INDEX($A:$H;SUM((ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)=MIN(IF($F$7:$H$16<>"";IF(COUNTIF(K$9:K9;$F$7:$H$16)=0;ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)))))*ROW($7:$16));SUM((ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)=MIN(IF($F$7:$H$16<>"";IF(COUNTIF(K$9:K9;$F$7:$H$16)=0;ROW($7:$16)*COLUMNS($F:$H)+COLUMN($F:$H)))))*COLUMN($F:$H)))

ctrl+shift+enter

Các anh chị ơi, cho em hỏi cái hàm này sao lạ vậy ạ. Em nhập vào trong excel thế nào rồi ấn ctrl shift enter rồi mà ko ra gì í anh chị ạ.

 

[giangleloi]

Các anh chị ơi, cho em hỏi cái hàm này sao lạ vậy ạ. Em nhập vào trong excel thế nào rồi ấn ctrl shift enter rồi mà ko ra gì í anh chị ạ.

Hãy thử thay dấu chấm phẩy thành dấu phẩy xem sao.

 

[kiencang76]

mình có bài này cần giúp:
tại sheet 1, ta có bảng gồm có phân xưởng và các tổ của từng phân xưởng với số lượng công nhân nam và nữ.
yêu cầu của bài: tại bảng liệt kê ở sheet 2 liệt kê tất cả các tổ theo tên phân xưởng vào trong 1 ô. đồng thời tính tổng nam nữ của phân xưởng đó.
nếu viết VBA thì hướng dẫn cho mình luôn nhé.
Cảm ơn bạn nhiều.