Giúp tạo code xóa số trùng & sắp thứ tự tự động (1 người xem)

[Anti-Plus]

Chào các bạn !

Mình có bảng tính gồm 2 cột muốn viết code xóa bỏ những số có giá trị trùng & chỉ giữ lại 1 số trong những số đã trùng, khi loại bỏ những số đã trùng tiếp theo mình muốn sắp xếp thứ tự tự động từ số nhỏ nhất đến lớn nhất giống như hình minh họa mình kèm theo.

Cám ơn các bạn đã quan tâm giúp mình !

 

[VetMini]

Số của bạn là số nguyên hay có thể là số thực? Theo hình thì chúng là số nguyên
Sau khi xoá xong, muốn sắp lại thành bao nhiêu dòng? Theo hình thì chúng giữ lại số dòng - cột thứ 2 trống bao nhiêu cũng mặc kệ.

 

[Anti-Plus]

Số của bạn là số nguyên hay có thể là số thực? Theo hình thì chúng là số nguyên
Sau khi xoá xong, muốn sắp lại thành bao nhiêu dòng? Theo hình thì chúng giữ lại số dòng - cột thứ 2 trống bao nhiêu cũng mặc kệ.

Số của mình là số nguyên, khi đã xoá bỏ những số trùng rồi thì sắp xếp thứ tự liền kề theo hàng còn cột thứ 2 trống bao nhiêu thì mặc kệ bạn.

Cám ơn !

 

[VetMini]

Tôi khong giao thiệp nửa Tây nửa Ta. Bạn chờ ngừoi khác giúp vậy.

 

[Anti-Plus]

Tôi khong giao thiệp nửa Tây nửa Ta. Bạn chờ ngừoi khác giúp vậy.

Bạn không thích nửa Tây nửa Ta thì mình sửa lại cho chuẩn luôn.

 

[concogia]

Số của mình là số nguyên, khi đã xoá bỏ những số trùng rồi thì sắp xếp thứ tự liền kề theo hàng còn cột thứ 2 trống bao nhiêu thì mặc kệ bạn.

Cám ơn !

Hình như đây là "Bài toán số đề", nhưng trong diễn đàn thì đây là "Đề bài toán số" nên.....cứ giải
Hihi, nếu đúng thì 100 "thằng"đều là số nguyên, 36 "em" là cố định, chỉ "hông" hiểu sao phải chia 2 cột, 1 cột đơn giản biết bao. Híc
Bấm vào mũi tên
Thân

 

[Anti-Plus]

Hình như đây là "Bài toán số đề", nhưng trong diễn đàn thì đây là "Đề bài toán số" nên.....cứ giải
Hihi, nếu đúng thì 100 "thằng"đều là số nguyên, 36 "em" là cố định, chỉ "hông" hiểu sao phải chia 2 cột, 1 cột đơn giản biết bao. Híc
Bấm vào mũi tên
Thân

Cám ơn bạn, bạn đã nói trúng phốc 100%, mình đã test thấy đúng yêu cầu cần bạn giúp rồi. Cám ơn bạn rất nhiều !

 

[Anti-Plus]

Bạn cho mình hỏi thêm, nếu thêm 1 cột C3 nữa thì code mình cần chỉnh thêm gì bạn ? Cám ơn rất nhiều !

 

[befaint]

3 cột thì nó giống cái này xừ rồi.

https://www.minhngoc.net.vn/vedo/in-ve-do.php?mien=1&vdn=30-12-2016&page=1&color=1

http://www.giaiphapexcel.com/diendan/threads/nhờ-xử-lý-lỗi-from-web-giúp-mình.121550/

 

[VetMini]

Hình như đây là "Bài toán số đề", nhưng trong diễn đàn thì đây là "Đề bài toán số" nên.....cứ giải
Hihi, nếu đúng thì 100 "thằng"đều là số nguyên, 36 "em" là cố định, chỉ "hông" hiểu sao phải chia 2 cột, 1 cột đơn giản biết bao. Híc
Bấm vào mũi tên
Thân

cách đánh số đề này ra sao vậy? Mới đầu tôi cứ tưởng chủ thớt làm bảng đối chiếu 100 số thành 36 để giải mộng (bởi vì bói dịch chỉ giải các con số 36, 72, 108,...)

 

[concogia]

cách đánh số đề này ra sao vậy? Mới đầu tôi cứ tưởng chủ thớt làm bảng đối chiếu 100 số thành 36 để giải mộng (bởi vì bói dịch chỉ giải các con số 36, 72, 108,...)

Nghi nghi vậy thôi, chứ mình đâu có biết bạn í muốm làm cái gì
Híc

 

[concogia]

Bạn cho mình hỏi thêm, nếu thêm 1 cột C3 nữa thì code mình cần chỉnh thêm gì bạn ? Cám ơn rất nhiều !View attachment 179069

Nó đây, đừng nói lên 4, rồi.....nữa nhe
Thân

 

[anhdepjai]

Có cò số đề ah bạn, thế mà mình toàn đánh mò.

 

[Anti-Plus]

Nó đây, đừng nói lên 4, rồi.....nữa nhe
Thân

Cám ơn bạn, mình đã dùng được rồi.

 

[VetMini]

Có cò số đề ah bạn, thế mà mình toàn đánh mò.

Tưởng giải mộng thì mình rán thử. Hồi đêm nằm mơ thấy mình đang mang đồ CHUA ra SẮC, một tay bóc vỏ quả CHÔM, tay kia bốc bánh HỎI.

 

[concogia]

Tưởng giải mộng thì mình rán thử. Hồi đêm nằm mơ thấy mình đang mang đồ CHUA ra SẮC, một tay bóc vỏ quả CHÔM, tay kia bốc bánh HỎI.

Cái này giải ....dễ ẹct

 

[Anti-Plus]

Bạn ơi, mình mới đưa dữ liệu khác vào thì code chạy có sai sót nhỏ. Trong bảng số mình không có 00 nhưng khi chạy code xuất hiện thêm 00 ở đầu nữa bạn, giúp mình thêm tí nữa nhé bạn. Cám ơn bạn rất nhiều

 

[concogia]

Bạn ơi, mình mới đưa dữ liệu khác vào thì code chạy có sai sót nhỏ. Trong bảng số mình không có 00 nhưng khi chạy code xuất hiện thêm 00 ở đầu nữa bạn, giúp mình thêm tí nữa nhé bạn. Cám ơn bạn rất nhiềuView attachment 179096

"Xó zì" bạn, mình sơ ý cái thằng không có dữ liệu nó nhận là số "zero", bạn chép code này đè lên code cũ, sửa tý thôi, thêm if và end if

Public Sub Xoa()
    Dim Vung, I, J, Tam(0 To 99), Gom, iDem
    [C4:H23].Copy [K4]
    Vung = [K6:P23]
        For I = 2 To 6 Step 2
            For J = 1 To 18
                If Vung(J, I) <> "" Then
                    Tam(Vung(J, I)) = Right("0" & Vung(J, I), 2)
                    Vung(J, I) = ""
                End If
            Next J
        Next I
    Gom = Split(Application.WorksheetFunction.Trim(Join(Tam, " ")), " ")
        For I = 2 To 6 Step 2
            For J = 1 To 18
                iDem = iDem + 1
                Vung(J, I) = Gom(iDem - 1)
                If iDem = UBound(Gom) + 1 Then GoTo nhay
            Next J
        Next I
nhay:
[K6].Resize(18, 6) = Vung
End Sub

Thân

 

[Anti-Plus]

"Xó zì" bạn, mình sơ ý cái thằng không có dữ liệu nó nhận là số "zero", bạn chép code này đè lên code cũ, sửa tý thôi, thêm if và end if

Public Sub Xoa()
    Dim Vung, I, J, Tam(0 To 99), Gom, iDem
    [C4:H23].Copy [K4]
    Vung = [K6:P23]
        For I = 2 To 6 Step 2
            For J = 1 To 18
                If Vung(J, I) <> "" Then
                    Tam(Vung(J, I)) = Right("0" & Vung(J, I), 2)
                    Vung(J, I) = ""
                End If
            Next J
        Next I
    Gom = Split(Application.WorksheetFunction.Trim(Join(Tam, " ")), " ")
        For I = 2 To 6 Step 2
            For J = 1 To 18
                iDem = iDem + 1
                Vung(J, I) = Gom(iDem - 1)
                If iDem = UBound(Gom) + 1 Then GoTo nhay
            Next J
        Next I
nhay:
[K6].Resize(18, 6) = Vung
End Sub

Thân

Cám ơn bạn, mình đã chạy tốt hết rồi !

 

[Anti-Plus]

"Xó zì" bạn, mình sơ ý cái thằng không có dữ liệu nó nhận là số "zero", bạn chép code này đè lên code cũ, sửa tý thôi, thêm if và end if

Public Sub Xoa()
    Dim Vung, I, J, Tam(0 To 99), Gom, iDem
    [C4:H23].Copy [K4]
    Vung = [K6:P23]
        For I = 2 To 6 Step 2
            For J = 1 To 18
                If Vung(J, I) <> "" Then
                    Tam(Vung(J, I)) = Right("0" & Vung(J, I), 2)
                    Vung(J, I) = ""
                End If
            Next J
        Next I
    Gom = Split(Application.WorksheetFunction.Trim(Join(Tam, " ")), " ")
        For I = 2 To 6 Step 2
            For J = 1 To 18
                iDem = iDem + 1
                Vung(J, I) = Gom(iDem - 1)
                If iDem = UBound(Gom) + 1 Then GoTo nhay
            Next J
        Next I
nhay:
[K6].Resize(18, 6) = Vung
End Sub

Thân

Trường hợp mình chưa nhập dữ liệu vào Cột C1, C2, C3 khi chạy code thì bị lỗi giống như hình bên dưới bạn. Cám ơn !