ongtrungducmx25
Thành viên gạo cội
- Tham gia
- 5/2/07
- Bài viết
- 2,077
- Được thích
- 1,987
- Nghề nghiệp
- GV
phamduylong đã viết:Giải pháp như vầy, không biết có đúng với VT01 không?
Trong tập tin Themdau.xls có sheet DATA có 2 cột: Khong dau và Có dấu. VT01 nhập dữ liệu liên tục vào 2 cột này (không bỏ dòng trống). Muốn bổ sung thêm cứ nhập tiếp.
Muốn thêm dấu, mở tập tin cần thêm dấu và Themdau.xls.
- Chọn liên tục các ô cần thêm dấu
- Nhấn Ctrl+Shift+A hoặc chạy macro ThemDau để thêm dấu.
Chú ý vùng chọn phải có dữ liệu liên tục, gặp ô trống nó kết thúc.Mã:Sub ThemDau() If ActiveSheet.Name = "DATA" Then Exit Sub Set data = ThisWorkbook.Sheets("DATA") rc = data.Cells(1, 1).End(xlDown).Row Set khongdau = Range(data.Cells(1, 1), data.Cells(rc, 1)) On Error Resume Next For Each mycell In Selection r = 0 myfind = mycell.Value If myfind = "" Then Exit Sub r = WorksheetFunction.Match(myfind, khongdau, 0) If r > 0 Then mycell.Value = data.Cells(r, 2) End If Next MsgBox "Da them dau xong" End Sub
sau mình làm theo pác chỉ thì không thấy gì xãy ra hết zay, em cũng chọn ctr+sh+A thì có thấy thêm dấu gì đâu nhỉ