Tạo add in hoặc macro tìm và thay thế Replace

[hungcong88]

Chào các Bạn !

Nhờ các Bạn hỗ trợ trường hợp này giúp :

Tạo 1 add in hoặc 1 macro có thể Hatch hoặc Replace cho cột "kichco" thành như sau : (có thể áp dụng cho cột khác nếu mình chọn.)

2200 ==> 20GP
4200 ==> 40GP
4500 ==> 40HQ
9500 ==> 45HQ
L500 ==> 45HQ
2250 ==> 20OT
4250 ==> 40OT

Các bạn xem file đính kèm. Xin Cảm ơn!

View more random threads:

• [help] lấy dữ liệu từ 1 file đang đóng theo điều kiện cho trước
• Công thức excel
• Nhờ các bác giúp hàm trả giá trị
• Cần trợ giúp khi thực hiện trộn văn bản với Excel
• Chuyển số dư tồn kho cuối tháng này sang đầu tháng saum
• Giúp mình công thức liệt kê mảng là hiệu của 2 mảng
• Code báo lỗi
• Xin giúp đỡ sửa add in đổi số thành chữ
• Hàm về thời gian và chấm công
• giúp về VBA

[trananh607]

Không thấy qui luật, chắc bạn fải xài bảng tra thôi.

[mailong90]

Mình có sưu tầm 1 macro trên GPE và edit lại bạn xem chuyển thành add in giúp mình để có thể sử dụng cho các file khác ?

Sub Replace()
Dim data(), i
With Sheet1
data = .Range(.[C2], .[C65536].End(3)).Value
For i = 1 To UBound(data)
Select Case data(i, 1)
Case "2200"
data(i, 1) = "20GP"
Case "4200"
data(i, 1) = "40GP"
Case "4500"
data(i, 1) = "40HQ"
Case "9500"
data(i, 1) = "45HQGP"
Case "2250"
data(i, 1) = "20OT"
Case "4250"
data(i, 1) = "40OT"
End Select
Next
.[C2].Resize(i - 1) = data
End With
End Sub

[congthuonghcit]

Cộng ADDins này vào,

Rồi tại những giá trị muốn thay thì làm như sau

- Chọn vùng thay đổi
- bấm Ctrl+e

thế là được kết quả như ý

lưu ý: addins chỉ thay đổi các giá trị như bạn liệt kê ở trên

pass world của xla (nếu bạn thích sửa , hay ai muốn nghiên cứu thêm) là: 2 <dấu cách>
(xem sẽ thấy tôi viết lại hoàn toàn, không phải code bài trên)

[vivi]

Cảm ơn bạn giola rất nhiều ...

[MinhPhuc123]

Cảm ơn bạn giola rất nhiều ...

Lưu ý vùng chọn (muốn thay đổi) có thể là 1 ô, trên 1 cột, trên 1 dòng, 1 vùng nhé (hiện giờ KHÔNG CÓ làm cho nhiều vùng không liên tiếp)