Hỏi cách tìm dãy số còn thiếu trong bảng

Liên hệ QC

thanhtungtmn1989

Thành viên chính thức
Tham gia
17/12/14
Bài viết
91
Được thích
15
Bạn nào chỉ hộ mình cách lọc thửa thiếu trong từng tờ bản đồ được ko ạ, mình cảm ơn nhiều...
 

File đính kèm

File đính kèm

Số thử bắt đầu từ đâu, và kết thúc tại đâu, giả sử trong danh sách có 5 thửa ( 1,2,3,4,5,) thì còn thiếu thửa nào, nếu số thửa tối đa là 10 tức là thiếu 5 thửa?
 
Số thử bắt đầu từ đâu, và kết thúc tại đâu, giả sử trong danh sách có 5 thửa ( 1,2,3,4,5,) thì còn thiếu thửa nào, nếu số thửa tối đa là 10 tức là thiếu 5 thửa?
Bài đã được tự động gộp:

Số thửa bắt đầu từ 1 bạn ah, kết thúc là số lớn nhất ở mỗi tờ bạn
 
Bạn nào chỉ hộ mình cách lọc thửa thiếu trong từng tờ bản đồ được ko ạ, mình cảm ơn nhiều...
Dùng hàm đếm tổng thửa của từng tờ bản đồ rồi tính vùng chứa của mỗi tờ từ đâu đến đâu, dùng hàm chỗ tô màu xanh rồi Fill xuống, riêng cột J thì phải copy từng Cell cột I Paste vào hàm, nó sẽ liệt kê tất cả thửa (không dùng) riêng cho từng tờ bản đồ, xem File.
 

File đính kèm

Lần chỉnh sửa cuối:
có thể lọc ra đường cột được không ạ chú,
( Tờ bản đồ, Số thửa)
( Tờ bản đồ, Số thửa)
 
có thể lọc ra đường cột được không ạ chú,
( Tờ bản đồ, Số thửa)
( Tờ bản đồ, Số thửa)
Giải thích chả hiểu gì ráo.
Nếu muốn làm cái bảng liệt kê riêng cho 1 tờ và dùng nó copy và Paste vào bản đồ thì làm cách khác.
Ý bạn muốn là: Sau khi có được tổng số thửa không dùng trong 1 Cell rồi thì tách nó ra mỗi thửa 1 dòng, đồng thời gán số bản đồ vào cho nó có phải vậy không?
 
Cảm ơn bác Ba Tê nhiều ạ
Bài đã được tự động gộp:

Cháu làm theo cách bác ba tê ấy
 
làm sao hiểu được ý bác ba tê làm ra như vậy đc nhỉ,
 
Thử:
Mã:
Public Sub test()
Dim sArr(), dArr(), i As Long, j As Long, k As Long
Dim lastRow As Long
With Sheets("Sheet1")
    lastRow = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A2:B" & lastRow).Sort Key1:=.Range("A2"), Order1:=xlAscending, Key2:=.Range("B2"), Order2:=xlAscending
     sArr = .Range("A1:B" & lastRow).Value
 
    ReDim dArr(1 To 100000, 1 To 2)
    For i = 2 To UBound(sArr)
        If sArr(i, 1) <> sArr(i - 1, 1) Then
            If sArr(i, 2) <> 1 Then
                For j = 1 To (sArr(i, 2) - 1)
                    k = k + 1
                    dArr(k, 1) = sArr(i, 1)
                    dArr(k, 2) = j
                Next
            End If
        Else
            If (sArr(i, 2) - sArr(i - 1, 2)) > 1 Then
            For j = (sArr(i - 1, 2) + 1) To (sArr(i, 2) - 1)
                k = k + 1
                dArr(k, 1) = sArr(i, 1)
                dArr(k, 2) = j
            Next
            End If
        End If
    Next
    .Range("H2").Resize(k, 2) = dArr
End With
End Sub
 
Web KT

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

Back
Top Bottom