Dò tìm, thay thế giá trị

[dqt_nt]

Các bác giúp em việc này nha. Em có hai sheet: Một sheet có nội dung gồm tên khách hàng và mã số. Một sheet nội dung là địa chỉ và mã số. Em muốn excel tự động dò tìm và ghi địa chỉ vào sheet thứ nhất dựa trên mã số.

Tài khoản của em hiện không gửi kèm file được và cũng không load file đc. Nên rất mong các anh chị hướng dẫn cụ thể. Em xin chân thành cảm ơn.

 

[cadafi]

Các bác giúp em việc này nha. Em có hai sheet: Một sheet có nội dung gồm tên khách hàng và mã số. Một sheet nội dung là địa chỉ và mã số. Em muốn excel tự động dò tìm và ghi địa chỉ vào sheet thứ nhất dựa trên mã số.

Tài khoản của em hiện không gửi kèm file được và cũng không load file đc. Nên rất mong các anh chị hướng dẫn cụ thể. Em xin chân thành cảm ơn.

Bạn có thể dùng hàm Vlookup, hoặc index và match. Bạn xem thêm file đính kèm để hiểu rõ hơn nhé.

 

[huycuongxd]

Các bác giúp em việc này nha. Em có hai sheet: Một sheet có nội dung gồm tên khách hàng và mã số. Một sheet nội dung là địa chỉ và mã số. Em muốn excel tự động dò tìm và ghi địa chỉ vào sheet thứ nhất dựa trên mã số.

Bạn dùng hàm Vlookup() là OK
Xem file đính kèm nhé!

 

[dqt_nt]

Vì mã số của em nó dài quá, mà cái danh sách hơn 1000. Có cách nào không? Em dùng cái vlookup nhung không dc

 

[cadafi]

Vì mã số của em nó dài quá, mà cái danh sách hơn 1000. Có cách nào không? Em dùng cái vlookup nhung không dc

Danh sách mới 1000 dòng thì chưa gọi là dài quá đâu bạn? Bạn gửi email theo địa chỉ dưới chữ ký của mình. Mình sẽ post lên dùm nhé!

Không dùng vlookup được là sao nhỉ? Bạn phải nói rõ không đươc chỗ nào chứ!?

 

[SA_DQ]

Nếu bạn thích cái ni, xin mời!!

Option Explicit
Sub AddAddress()
 Dim lRow As Long, Ff As Long:               Dim Rng As Range
 
 Sheets("S1").[c1] = Sheets("S2").[b1]:      Application.ScreenUpdating = False
 Sheets("S2").Select:                        lRow = [a65500].End(xlUp).Row
 For Ff = 2 To lRow
   Set Rng = Sheets("S1").Columns("A:A").Find(what:=Cells(Ff, 1), LookIn:=xlValues)
   If Not Rng Is Nothing Then _
      Rng.Offset(, 2) = Cells(Ff, 2).Value
 Next Ff
End Sub

 

[nguyennb]

Với Vlookup thì bạn lưu ý đến các điều kiện sử dụng ví dụ như nếu dùng true thì phải sắp xếp dữ liệu theo chiều tăng dần. Cột mã số của bạn dịnh dạng kiểu text hay kiểu số....