Hỗ trợ tăng tốc, cải thiện hàm Replace trong Add in

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Có
Tình nghĩa giang hồ

Tình nghĩa giang hồ

Thanh sơn bất cải, lục thủy trường lưu
Tham gia
29/9/20
Bài viết
330
Được thích
429
Chào anh chị em có trường hợp Replace trong Add in như code, nhưng giờ tốc độ của nó đang chậm từng ngày, tương lai cứ thêm vào thì còn chậm nữa.

Bình thường add in này có ít dòng, nhưng theo ngày, theo tháng, theo năm thì nó tăng dần.
Hiện tại nó tăng lên số dòng như code, và tương lai số dòng code này sẽ tăng nữa...... có có sản phẩm mới là số dòng sẽ tăng lên.
Giờ mình có cách nào để cải thiện tốc độ của cái chức năng này không anh chị ?
Do công việc này, em không để trong một file excel cố định nào cả, mà phải để trong Add in kiểu này, để khi em mở bất cứ file excel nào đều sử dụng được.
Trường hợp lý tưởng nhất là sửa code trong duy nhất một add in luôn, mà cải thiện tốc độ thì quá tuyệt vời.
Còn trường hợp không lý tưởng thì bắt buộc phải bỏ code vào file excel cố định thì cũng được, (tức là dùng phương pháp mãng hay gì đó bỏ vào 1 file cố định, rồi khi mở file exel cố định này lên thì mấy file khác có thể sử dụng chức năng này )
Nhờ anh chị hỗ trợ giúp em trường hợp này.
Em cảm ơn anh chị.
Code bên dưới

Mã: 
Sub doi_48_68_()
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:=" 4801.6", Replacement:=" 1220x2440x01.6mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4802.5", Replacement:=" 1220x2440x02.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4803", Replacement:=" 1220x2440x03mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4804.5", Replacement:=" 1220x2440x04.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4806", Replacement:=" 1220x2440x06mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4805.5", Replacement:=" 1220x2440x05.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4805", Replacement:=" 1220x2440x05mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4808", Replacement:=" 1220x2440x08mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4809", Replacement:=" 1220x2440x09mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4810", Replacement:=" 1220x2440x10mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4812", Replacement:=" 1220x2440x12mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4813", Replacement:=" 1220x2440x13mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4814", Replacement:=" 1220x2440x14mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4815", Replacement:=" 1220x2440x15mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4816", Replacement:=" 1220x2440x16mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4817", Replacement:=" 1220x2440x17mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4818", Replacement:=" 1220x2440x18mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4819", Replacement:=" 1220x2440x19mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4821", Replacement:=" 1220x2440x21mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4825", Replacement:=" 1220x2440x25mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4834", Replacement:=" 1220x2440x34mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4836", Replacement:=" 1220x2440x36mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="ACRYLIC", Replacement:="Acrylic", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Selection.Replace What:="VENEER", Replacement:="Veneer", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:=" 4838", Replacement:=" 1220x2440x38mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6815", Replacement:=" 1830x2440x15mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6806", Replacement:=" 1830x2440x06mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6809", Replacement:=" 1830x2440x09mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6812", Replacement:=" 1830x2440x12mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6816", Replacement:=" 1830x2440x16mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6817", Replacement:=" 1830x2440x17mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6818", Replacement:=" 1830x2440x18mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6819", Replacement:=" 1830x2440x19mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 6825", Replacement:=" 1830x2440x25mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 02.5MM", Replacement:=" 02.5mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 03MM", Replacement:=" 03mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 06MM", Replacement:=" 06mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 09MM", Replacement:=" 09mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 12MM", Replacement:=" 12mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 15MM", Replacement:=" 15mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 17MM", Replacement:=" 17mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 18MM", Replacement:=" 18mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 21MM", Replacement:=" 21mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 23MM", Replacement:=" 23mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 24MM", Replacement:=" 24mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 25MM", Replacement:=" 25mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 30MM", Replacement:=" 30mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 34MM", Replacement:=" 34mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 35MM", Replacement:=" 35mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 36MM", Replacement:=" 36mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 37MM", Replacement:=" 37mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 38MM", Replacement:=" 38mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 39MM", Replacement:=" 39mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 40MM", Replacement:=" 40mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 42MM", Replacement:=" 42mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 43MM", Replacement:=" 43mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 46MM", Replacement:=" 46mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 49MM", Replacement:=" 49mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 50MM", Replacement:=" 50mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 51MM", Replacement:=" 51mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 52MM", Replacement:=" 52mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 1F1", Replacement:=" ph" & ChrW(7911) & " film m" & ChrW(7863) & _
        "t 1", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:=" 1F2", Replacement:=" ph" & ChrW(7911) & " film m" & ChrW(7863) & _
        "t 2", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       Selection.Replace What:=" 2F", Replacement:=" ph" & ChrW(7911) & " film 2 m" & ChrW(7863) & _
        "t", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:=" 1F", Replacement:=" ph" & ChrW(7911) & " film 1 m" & ChrW(7863) & _
        "t", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
         Selection.Replace What:="GIAY IN", Replacement:="Gi" & ChrW(7845) & "y in", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="CHI PVC", Replacement:="Ch" & ChrW(7881) & " PVC", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="CHI VENEER", Replacement:="Ch" & ChrW(7881) & " Veneer", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4850", Replacement:=" 1220x2440x50mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4830", Replacement:=" 1220x2440x30mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4840", Replacement:=" 1220x2440x40mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 1220X2440MM", Replacement:=" 1220x2440mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 4801", Replacement:=" 1220x2440x01mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="CHI Foil", Replacement:="Ch" & ChrW(7881) & " Foil", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="X2440X01MM", Replacement:="x2440x01mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="MELAMINE AC", Replacement:="Melamine AC", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" 1250X2470MM", Replacement:=" 1250x2470mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
            Selection.Replace What:=" 4824", Replacement:=" 1220x2440x24mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="X01MM", Replacement:="x01mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="X0.6MM", Replacement:="x0.6mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
          Selection.Replace What:=" FLEECE 640X2500MM", Replacement:=" Fleece 640x2500mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
          Selection.Replace What:="X0.8MM", Replacement:="x0.8mm", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="1220X2440X0.7MM", Replacement:="1220x2440x0.7mm"
        Selection.Replace What:=" 4832", Replacement:=" 1220x2440x32mm"
        Selection.Replace What:="1250X2500X16", Replacement:="1250x2500x16mm"
        Selection.Replace What:="1250X2500X19", Replacement:="1250x2500x19mm"
        Selection.Replace What:="1220X2800X16", Replacement:="1220x2800x16mm"
        Selection.Replace What:="1220X2500X16", Replacement:="1220x2500x16mm"
        Selection.Replace What:="1250X2800X16", Replacement:="1250x2800x16mm"
        Selection.Replace What:="1220X2850X16", Replacement:="1220x2850x16mm"
        Selection.Replace What:="1250X2800X19", Replacement:="1250x2800x19mm"
        Selection.Replace What:=" 4917", Replacement:=" 1220x2745x17mm"
        Selection.Replace What:=" 4918", Replacement:=" 1220x2745x18mm"
        Selection.Replace What:=" 4925", Replacement:=" 1220x2745x25mm"
        
        'them vo moi
        
 Selection.Replace What:=" 4807.7", Replacement:=" 1220x2440x07.7mm"
 Selection.Replace What:=" 4831", Replacement:=" 1220x2440x31mm"
 Selection.Replace What:=" 4844", Replacement:=" 1220x2440x44mm"
 Selection.Replace What:=" 4829", Replacement:=" 1220x2440x29mm"
 Selection.Replace What:=" 4835", Replacement:=" 1220x2440x35mm"
 Selection.Replace What:=" 4811", Replacement:=" 1220x2440x11mm"
 Selection.Replace What:=" 4839", Replacement:=" 1220x2440x39mm"
 Selection.Replace What:=" 4936", Replacement:=" 1220x2745x36mm"
 Selection.Replace What:=" 4875", Replacement:=" 1220x2440x75mm"
 Selection.Replace What:=" 4823", Replacement:=" 1220x2440x23mm"
 Selection.Replace What:=" 4826", Replacement:=" 1220x2440x26mm"
 Selection.Replace What:=" 4842", Replacement:=" 1220x2440x42mm"
 Selection.Replace What:=" 4845", Replacement:=" 1220x2440x45mm"
 Selection.Replace What:=" 4822", Replacement:=" 1220x2440x22mm"
 Selection.Replace What:=" 4934", Replacement:=" 1220x2745x34mm"
 Selection.Replace What:=" 4841", Replacement:=" 1220x2440x41mm"
 Selection.Replace What:=" 4843", Replacement:=" 1220x2440x43mm"
 Selection.Replace What:=" 4804.75", Replacement:=" 1220x2440x04.75mm"
 Selection.Replace What:=" 4865", Replacement:=" 1220x2440x65mm"
 Selection.Replace What:=" 4848", Replacement:=" 1220x2440x48mm"
 Selection.Replace What:=" 4837", Replacement:=" 1220x2440x37mm"
 Selection.Replace What:=" 4827", Replacement:=" 1220x2440x27mm"
 Selection.Replace What:=" 4847", Replacement:=" 1220x2440x47mm"
 Selection.Replace What:=" 4849", Replacement:=" 1220x2440x49mm"
 Selection.Replace What:=" 4846", Replacement:=" 1220x2440x46mm"
 Selection.Replace What:=" 4854", Replacement:=" 1220x2440x54mm"
 Selection.Replace What:=" 6836", Replacement:=" 1830x2440x36mm"
 Selection.Replace What:=" FLEECE", Replacement:=" Fleece"
 Selection.Replace What:=" 4906", Replacement:=" 1220x2745x06mm"
 Selection.Replace What:=" BHDF", Replacement:=" B-HDF"
 Selection.Replace What:=" MDFMUFSTD", Replacement:=" MDF MUFSTD"
 Selection.Replace What:=" PLYWPRWBP", Replacement:=" PLY WPRWBP"
 Selection.Replace What:=" WPRSTD4818", Replacement:=" WPRSTD 1220x2440x18mm"
 Selection.Replace What:=" WPRSTD4815", Replacement:=" WPRSTD 1220x2440x15mm"
 Selection.Replace What:=" WPRSTD4809", Replacement:=" WPRSTD 1220x2440x09mm"
 Selection.Replace What:=" 4820", Replacement:=" 1220x2440x20mm"
 Selection.Replace What:=" 4851", Replacement:=" 1220x2440x51mm"
 Selection.Replace What:=" 4859", Replacement:=" 1220x2440x59mm"
 Selection.Replace What:=" BIR ", Replacement:=" BIRCH "
 Selection.Replace What:=" 1850X2470MM", Replacement:=" 1850x2470mm"
 Selection.Replace What:=" 1830X2470MM", Replacement:=" 1830x2470mm"
 Selection.Replace What:="MELAMINE", Replacement:="Melamine"
 Selection.Replace What:="TPACR FOIL", Replacement:="TP FOIL màu"
 Selection.Replace What:=" 57MM", Replacement:=" 57mm"
Selection.Replace What:=" 1250MM", Replacement:=" 1250mm"
Selection.Replace What:=" 1220X3050X0.7MM", Replacement:=" 1220x3050x0.7mm"
Selection.Replace What:=" 1300X3050X0.7MM", Replacement:=" 1300x3050x0.7mm"
Selection.Replace What:=" 286X1192X12MM", Replacement:=" 286x1192x12mm"
Selection.Replace What:=" 185X1192X12MM", Replacement:=" 185x1192x12mm"
Selection.Replace What:="FOIL", Replacement:="Foil"
'them moi

Selection.Replace What:="LACQUERLAMINATE", Replacement:="LACQUER LAMINATE"
Selection.Replace What:="LACQUER LAMINATE", Replacement:="Lacquer Laminate"
Selection.Replace What:="ECO ", Replacement:="Eco "
Selection.Replace What:="SHEET", Replacement:="Sheet"
Selection.Replace What:="KEO", Replacement:="Keo"
Selection.Replace What:="EDGE", Replacement:="Edge"
Selection.Replace What:="LACQUER", Replacement:="Lacquer"
Selection.Replace What:="ADINO", Replacement:="Adino"
Selection.Replace What:="PRIMER", Replacement:="Primer"
Selection.Replace What:="PLASTIC", Replacement:="Plastic"
Selection.Replace What:="LAMINATE", Replacement:="Laminate"
Selection.Replace What:="PLY-T", Replacement:="PLY TK102"
Selection.Replace What:="PLY-B", Replacement:="PLY BIRCH"
Selection.Replace What:="ARI PLUS", Replacement:="ARILUX PLUS"
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Không biết code nên chỉ có thể nói linh tinh thôi.
Nên không nếu tạo 1 addin mở user form, trong đó có 2 cột list "old text" và "new text". Run rẹt rẹt.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
Công thức tính số phù hợp với % mong muốn
Trả lời
8
Đọc
76
cantl
C
C
Tiếng Việt
    • Cười
2
Trả lời
31
Đọc
1K
SA_DQ
SA_DQ
B
Giúp em xử lý lỗi macro khi chạy VBA
Trả lời
18
Đọc
358
cantl
C
N
cộng các dữ liệu không trùng nhau
Trả lời
6
Đọc
83
Duy Tùng 9x
Duy Tùng 9x
HeSanbi
  • Question
Hàm FilterA và FilterV - Bổ trợ tận dụng bộ lọc AutoFilter và AdvancedFilter
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
48
Đọc
4K
Manhhung90
Manhhung90
T
Chèn dữ liệu từ sheet này qua sheet khác theo điều kiện
Trả lời
1
Đọc
70
HieuCD
H
N
Giúp em công thức lấy dữ liệu không trùng để in phiếu thu bán hàng
Trả lời
5
Đọc
175
nguyenthieny
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
173
Đọc
9K
ongke0711
ongke0711
K
  • Question
Sử dụng Power Query để xử lý nhật ký chung nhiều nợ nhiều có
    • Cười
Trả lời
5
Đọc
84
quocphuoc88
quocphuoc88
N
  • Question
Xin mã code ẩn hiện dòng theo điều kiện
Trả lời
1
Đọc
34
HUONGHCKT
H
vova2209
Index kết hợp với match 2 điều kiện
Trả lời
13
Đọc
1K
hoangtuaotrang_hp_vn
H
vova2209
  • Question
Tìm địa chỉ ô với 2đk và chuyển thành links
Trả lời
17
Đọc
384
vova2209
vova2209
Huy@@*
Giải đáp giùm em, cách khắc phục lỗi này trên VBA
Trả lời
0
Đọc
20
Huy@@*
Huy@@*
nguyenanhhoa
Nhờ các bác giúp: e muốn tô màu khác nhau đối với các ô giống nhau về giá trị
    • Cười
Trả lời
4
Đọc
100
SA_DQ
SA_DQ
A
Công thức tính tổng chi phí nhiều điều kiện
Trả lời
6
Đọc
99
adad
A
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
5
Đọc
294
vostro 1500
vostro 1500
T
Lọc lấy đơn giá nhập mới nhất của các mặt hàng
2
Trả lời
20
Đọc
14K
honguyentruong
H
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt + wide_to_long của Python trong Excel)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
10
Đọc
595
Hai Lúa Miền Tây
Hai Lúa Miền Tây
H
Cộng các ô cùng màu bằng VBA
Trả lời
2
Đọc
72
haquyet2013
H
N
  • Question
Xin mã code ẩn hiện dòng theo yêu cầu
Trả lời
9
Đọc
466
Nguyễn Diêu Hiền
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom