Hàm dò lấy kết quả (1 người xem)

[hitlecp]

Nhờ các Bác chỉ giúp em hàm dò tìm lấy giá trị tất cả các số hợp đồng của tổ 1?

 

[hitlecp]

Nhờ các Bác chỉ giúp em với

 

[ec ec]

Nhờ các Bác chỉ giúp em với

chep code sau vao module

Function hd(cell) As String
Set c = Sheets("chi tiet").Cells.Find(cell, lookat:=xlWhole)
If Not c Is Nothing Then
a = c.Address
Do
If hd = "" Then hd = c.Offset(, 1) Else hd = hd & "; " & c.Offset(, 1)
Set c = Sheets("chi tiet").Cells.Find(c, c)
Loop While c.Address <> a
End If
End Function

C4=hd(B4)

 

[hitlecp]

em làm như vậy mà không đực Bác à. Em gửi lại file BÁc xem dùm em đúng chưa?

 

[concogia]

Nhờ các Bác chỉ giúp em hàm dò tìm lấy giá trị tất cả các số hợp đồng của tổ 1?

Một cách làm bằng công thức

 

[Let'GâuGâu]

em làm như vậy mà không đực Bác à. Em gửi lại file BÁc xem dùm em đúng chưa?

bạnphải bỏ nó vào trong module

bạn cũng có thể tìm hàm Jointext của Mít_Tờ NDU

 

[hitlecp]

Cám ơn Bác nhiều nhé