Em xin nhờ giúp sửa code ạ (1 người xem)

[dosontung86]

Em có code này, nhưng khi chạy code thì nó bị thay đổi kích thước dòng và cột.
XIn nhờ các sư huynh sửa giúp em để nó giữ nguyên kích thước với ạ.
Thêm nữa là có thể sửa code giúp em để nó chạy tự động sang sheet skt mà không cần phải ấn chạy code ko ạ?
E chân thành cảm ơn ạ

Public Sub THAYTHE()Dim MDuLieu, MThayThe, d As Long, r As Long, c As Long
MDuLieu = Sheet2.UsedRange.Value
MThayThe = Sheet6.UsedRange.Value


For d = 2 To UBound(MThayThe)
For c = 1 To UBound(MDuLieu, 2)
For r = 1 To UBound(MDuLieu)
If InStr(1, MDuLieu(r, c), MThayThe(d, 1), 1) > 0 Then
MDuLieu(r, c) = Replace(MDuLieu(r, c), MThayThe(d, 1), MThayThe(d, 2))
End If
Next r
Next c
Next d


Sheet3.Range("A1").Resize(UBound(MDuLieu), UBound(MDuLieu, 2)).Value = MDuLieu
Sheet2.UsedRange.Copy
Selection.PasteSpecial Paste:=(xlPasteFormats)
Application.CutCopyMode = False
Sheet3.UsedRange.Columns.AutoFit
End Sub

File em đính kèm bên dưới ạ

 

[comet_1701]

Em có code này, nhưng khi chạy code thì nó bị thay đổi kích thước dòng và cột.
XIn nhờ các sư huynh sửa giúp em để nó giữ nguyên kích thước với ạ.
E chân thành cảm ơn ạ

Public Sub THAYTHE()Dim MDuLieu, MThayThe, d As Long, r As Long, c As Long
MDuLieu = Sheet2.UsedRange.Value
MThayThe = Sheet6.UsedRange.Value


For d = 2 To UBound(MThayThe)
For c = 1 To UBound(MDuLieu, 2)
For r = 1 To UBound(MDuLieu)
If InStr(1, MDuLieu(r, c), MThayThe(d, 1), 1) > 0 Then
MDuLieu(r, c) = Replace(MDuLieu(r, c), MThayThe(d, 1), MThayThe(d, 2))
End If
Next r
Next c
Next d



Sheet3.Range("A1").Resize(UBound(MDuLieu), UBound(MDuLieu, 2)).Value = MDuLieu
Sheet2.UsedRange.Copy
Selection.PasteSpecial Paste:=(xlPasteFormats)
Application.CutCopyMode = False
Sheet3.UsedRange.Columns.AutoFit
End Sub

Để có nhanh câu trả lời nhất,tốt nhất bạn gửi file đính kèm nên. Không có file, mọi người chả biết thế nào mà lần
Bạn thử kiểm tra câu lệnh Columns.Autofit xem

 

[dosontung86]

Em đã up file lên. Các bác chỉ giúp em với ạ

 

[ndu96081631]

Em có code này, nhưng khi chạy code thì nó bị thay đổi kích thước dòng và cột.
XIn nhờ các sư huynh sửa giúp em để nó giữ nguyên kích thước với ạ.
Thêm nữa là có thể sửa code giúp em để nó chạy tự động sang sheet skt mà không cần phải ấn chạy code ko ạ?
E chân thành cảm ơn ạ

Public Sub THAYTHE()Dim MDuLieu, MThayThe, d As Long, r As Long, c As Long
MDuLieu = Sheet2.UsedRange.Value
MThayThe = Sheet6.UsedRange.Value


For d = 2 To UBound(MThayThe)
For c = 1 To UBound(MDuLieu, 2)
For r = 1 To UBound(MDuLieu)
If InStr(1, MDuLieu(r, c), MThayThe(d, 1), 1) > 0 Then
MDuLieu(r, c) = Replace(MDuLieu(r, c), MThayThe(d, 1), MThayThe(d, 2))
End If
Next r
Next c
Next d


Sheet3.Range("A1").Resize(UBound(MDuLieu), UBound(MDuLieu, 2)).Value = MDuLieu
Sheet2.UsedRange.Copy
Selection.PasteSpecial Paste:=(xlPasteFormats)
Application.CutCopyMode = False
[COLOR=#ff0000]Sheet3.UsedRange.Columns.AutoFit[/COLOR]
End Sub

File em đính kèm bên dưới ạ

Xóa dòng code màu đỏ thử xem

 

[dosontung86]

Aaaaa, Được rồi ạ. Em cảm ơn anh chị nhiều ạ.

Nhưng để nó tự động thay thế sang sheet khác mà ko cần chạy code thì làm như nào ạ?

 

[comet_1701]

Aaaaa, Được rồi ạ. Em cảm ơn anh chị nhiều ạ.

Nhưng để nó tự động thay thế sang sheet khác mà ko cần chạy code thì làm như nào ạ?

Bạn chẳng đưa file lên gì cả, thì ai giúp bạn được đây, hic

 

[dosontung86]

Bạn chẳng đưa file lên gì cả, thì ai giúp bạn được đây, hic

Không hiểu sao em upload lên toàn báo lỗi ạ