U
Trước hết em xin cảm ơn các anh rất nhiều.Muốn vậy bạn cần hiểu rõ thêm các dòng lệnh có đánh số sau đây:
PHP:Sub GPE(Targ As Range) Dim Sh As Worksheet, Rng As Range, sRg As Range, Rg0 As Range, Cls As Range Dim fAdd As String Dim Trùng As Boolean, Rws As Long Set Sh = ThisWorkbook.Worksheets("HHoa") Set Rng = Sh.Range(Sh.[e4], Sh.[e65500].End(xlUp)) Rws = Rng.Rows.Count 5 [c3].Resize(Rws, 5).ClearContents 'Chọn Vùng Xóa Thích Hợp để khỏi mất dữ liệu đang cần' . . . 26 With Cells(9999, "C").End(xlUp).Offset(1) 'Để khỏi chép nhằm nơi cần chép đến' .Resize(, 2).Value = sRg.Offset(, -3).Resize(, 2).Value .Offset(, 3).Resize(, 2).Value = sRg.Offset(, 1).Resize(, 2).Value End With End If Set sRg = Rng.FindNext(sRg) Loop While Not sRg Is Nothing And sRg.Address <> fAdd End If 34 [c2].Resize(Rws, 5).Sort Key1:=Range("c3"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False 'Chú í địa chỉ vùng cần sắp xếp' End Sub
Nhưng vì file lúc trước em gửi lên không đúng với số cột trong form của em, mong các anh thông cảm
Sau khi em điều chỉnh lại số cột cho tương ứng thì code không chạy được và em điều chỉnh cách gì cũng không chạy.
Mong các anh xem lại giúp em code trong file đính kèm, cho nó chạy theo nhóm 1 và nhóm 2 giúp em.
Em rất xin lỗi vì sai sót này.
Các anh giải thích giúp em đoạn code này luôn ạ.
PHP:
With Cells(9999, "C").End(xlUp).Offset(1) 'Để khỏi chép nhằm nơi cần chép đến'
.Resize(, 2).Value = sRg.Offset(, -3).Resize(, 2).Value
.Offset(, 3).Resize(, 2).Value = sRg.Offset(, 1).Resize(, 2).Value
End With