giúp mình chuyển mã sang tên

[likepeacer]

mình muốn chuyển cột J(chuan doan) của file danhsach.xls thành cột C(dm_icd) trong file dm_icd.xls (ví dụ cột J là "A00.9" thì sẽ tự động chuyển thành "Bệnh tả ,không xác định",bác nào chỉ bảo giúp mình với.
thanks

 

[duongdv]

Bài này của bạn để làm đc phải sử dụng cột phụ mới làm được.phải chuyển 2 file danh sach và dm_icd về cùng một Wordbook.

 

[likepeacer]

vậy mình chuyển cột C(dm_icd) sang bên file danhsach.xls thì làm như nào (cột C(dm_icd) rất dài khoảng 10.000 còn cột J thì ít chỉ khoảng 1000),mong mọi người giúp đỡ.thanks

 

[Ba Tê]

vậy mình chuyển cột C(dm_icd) sang bên file danhsach.xls thì làm như nào (cột C(dm_icd) rất dài khoảng 10.000 còn cột J thì ít chỉ khoảng 1000),mong mọi người giúp đỡ.thanks

Xem thử tập tin kèm theo, Lấy cột J làm cột phụ, khi in nếu không cần thiết thì Hide nó đi, chừa lại cột K để in.
Công thức nằm trong Name GPE.

 

[ChanhTQ@]

Mình hãn hữu chuyển dữ liệu từ file này đến file khác; rủi ro cao lắm!

Mình giúp bạn chuyển từ trang tính này sang trang tính khác mà thôi.
Nhưng cũng nói trước: macro sẽ tạo thêm cột bên fải liền kề với cột [J] của trang 'DSach' (Vì sợ bạn mất thông tin oan uổng mà thôi). Bỡi lẽ đó, muốn chạy macro các lần kế tiếp, ta fải bằng tay xóa cột sau cột 'J' ấy đi, nếu điều đó là cần thiết.

Macro của bạn đây:

Option Explicit
Sub ChuyenMa()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range

 Sheets("dm_icd").Select:           Set Sh = Sheets("DSach")
 Sh.Columns("K:K").Insert Shift:=xlToRight
 Sh.[K1].Value = [C1].Value
 Set Rng = Range([B1], [B65500].End(xlUp))
 For Each Cls In Sh.Range(Sh.[j1], Sh.[j65500].End(xlUp))
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Cls.Interior.ColorIndex = 38
   Else
      Cls.Offset(, 1).Value = sRng.Offset(, 1).Value
   End If
 Next Cls
End Sub

& xem thêm trong file nha

To Ba Tê: Bạn thử bằng cách nào đó tăng lên 1 vạn & 1 ngàn dòng tương ứng xem file sẽ như thế nào!

 

[likepeacer]

Thanks Bác Ba Tê và bác ChanhTQ@ ,làm như bác BaTê là đúng ý em muốn hỏi nhưng khi mỗi lần danh sách có độ dài khác nhau thì phải làm sao vậy bác.ví dụ này danh sách của em có 6 dòng,vậy khi có 1000 dòng thì làm như nào bác chỉ giúp nhé.dm_icd của em là cố định ,thanks

 

[Ba Tê]

Thanks Bác Ba Tê và bác ChanhTQ@ ,làm như bác BaTê là đúng ý em muốn hỏi nhưng khi mỗi lần danh sách có độ dài khác nhau thì phải làm sao vậy bác.ví dụ này danh sách của em có 6 dòng,vậy khi có 1000 dòng thì làm như nào bác chỉ giúp nhé.dm_icd của em là cố định ,thanks

Trời đất ơi! Có công thức rồi mà Bạn không biết Copy xuống sao? 1000 dòng thì kéo xuống đến dòng thứ 1000.
Thôi thì tặng Bạn 2 cái "Nút". Nút 1 khi bấm vào thì nó nhập công thức cho Bạn, Nút 2 thì nó nhập kết quả tìm được cho Bạn.
Mà nếu như thế thì có lẽ chúng sẽ giúp cho Bạn thêm "Làm Biếng" đấy.