- Tham gia
- 1/1/08
- Bài viết
- 2,579
- Được thích
- 3,715
- Điểm
- 2,418
- Tuổi
- 41
- Nơi ở
- Đảo Đào Hoa
- Giới tính
- Nam
- Nghề nghiệp
- Quan hệ.. và quan hệ..
.parentCopy code này vào chạy thử
PHP:Sub abc() Dim Arr(), i, j, k, chk chk = Application.FindFile If chk = False Then End With ActiveWorkbook.ActiveSheet Arr = .Range("A2", .[M65536].End(3)).Value .Parent.Close False End With With Sheet1 .[A65536].End(3)(2).Resize(UBound(Arr), 13) = Arr .[a1].CurrentRegion.RemoveDuplicates 4, 1 .Range("A2", .[A65536].End(3)) = [row(a:a)] End With End Sub
Lại thêm từ khoá CHA MẸ học anh Hải, rất sáng tạo.