Nhờ giúp công thức tìm số hóa đơn bị lủng? (1 người xem)

[danhculao]

Chào anh/chị
Nhờ anh/chị giúp em công thức tìm số hóa đơn bị lủng (như file đính kèm).
Ví dụ như: số hóa đơn ở cột C: từ số 159950->159957 sẽ bị lủng từ số: 159951 đến 159956
Em cám ơn ạ!

 

[Phuocam]

Chào anh/chị
Nhờ anh/chị giúp em công thức tìm số hóa đơn bị lủng (như file đính kèm).
Ví dụ như: số hóa đơn ở cột C: từ số 159950->159957 sẽ bị lủng từ số: 159951 đến 159956
Em cám ơn ạ!

Thử công thức này:

=IFERROR(AGGREGATE(15,6,ROW(INDIRECT(MIN($C$2:$C$9)&":"&MAX($C$2:$C$9)))
/(COUNTIF($C$2:$C$9,ROW(INDIRECT(MIN($C$2:$C$9)&":"&MAX($C$2:$C$9))))=0),ROW(A1)),"")

 

[Hoàng Tuấn 868]

Chào anh/chị
Nhờ anh/chị giúp em công thức tìm số hóa đơn bị lủng (như file đính kèm).
Ví dụ như: số hóa đơn ở cột C: từ số 159950->159957 sẽ bị lủng từ số: 159951 đến 159956
Em cám ơn ạ!

Bạn tham khảo thêm.

 

[danhculao]

Thử công thức này:

=IFERROR(AGGREGATE(15,6,ROW(INDIRECT(MIN($C$2:$C$9)&":"&MAX($C$2:$C$9)))
/(COUNTIF($C$2:$C$9,ROW(INDIRECT(MIN($C$2:$C$9)&":"&MAX($C$2:$C$9))))=0),ROW(A1)),"")

em ráp dữ liệu nhiều vào thì công thức chạy không nổi luôn. Có cách nào nữa không ạ?

Bài đã được tự động gộp: 15/4/21

Bạn tham khảo thêm.

em ráp dữ liệu nhiều vào thì công thức chạy không nổi luôn. Có cách nào nữa không ạ?

 

[VetMini]

Hóa đơn mà cũng dữ liệu nhiều?
Công ty này làm ăn lớn mà sao bủn xỉn thế. Kiểm soát hóa đơn bằng Excel?

 

[HieuCD]

em ráp dữ liệu nhiều vào thì công thức chạy không nổi luôn. Có cách nào nữa không ạ?

Bài đã được tự động gộp: 15/4/21

em ráp dữ liệu nhiều vào thì công thức chạy không nổi luôn. Có cách nào nữa không ạ?

Dữ liệu quá lớn dùng công thức không khả thi
Chạy code

Sub ABC()
  Dim sArr(), Arr(), Res()
  Dim sRow&, sCol&, i&, k&, r&
  Const dRow& = 1000
 
  With Sheets("Data")
    sArr = .Range("C2", .Range("C" & Rows.Count).End(xlUp)).Value
    i = .Range("G" & Rows.Count).End(xlUp).Row
    If i > 1 Then .Range("G2:G" & i).ClearContents
  End With
  sRow = UBound(sArr)
 
  k = dRow
  ReDim Arr(1 To dRow, 1 To 1)
  For i = 2 To sRow
    For r = sArr(i - 1, 1) + 1 To sArr(i, 1) - 1
      If k = dRow Then
        k = 1
        sCol = sCol + 1
        ReDim Preserve Res(1 To sCol)
        Res(sCol) = Arr
      Else
        k = k + 1
      End If
      Res(sCol)(k, 1) = r
    Next r
  Next i
 
  If sCol > 0 Then
    i = 2
    For k = 1 To sCol
      Sheets("Data").Range("G" & i).Resize(dRow) = Res(k)
      i = i + dRow
    Next k
  End If
End Sub

 

[danhculao]

Dữ liệu quá lớn dùng công thức không khả thi
Chạy code

Sub ABC()
  Dim sArr(), Arr(), Res()
  Dim sRow&, sCol&, i&, k&, r&
  Const dRow& = 1000

  With Sheets("Data")
    sArr = .Range("C2", .Range("C" & Rows.Count).End(xlUp)).Value
    i = .Range("G" & Rows.Count).End(xlUp).Row
    If i > 1 Then .Range("G2:G" & i).ClearContents
  End With
  sRow = UBound(sArr)

  k = dRow
  ReDim Arr(1 To dRow, 1 To 1)
  For i = 2 To sRow
    For r = sArr(i - 1, 1) + 1 To sArr(i, 1) - 1
      If k = dRow Then
        k = 1
        sCol = sCol + 1
        ReDim Preserve Res(1 To sCol)
        Res(sCol) = Arr
      Else
        k = k + 1
      End If
      Res(sCol)(k, 1) = r
    Next r
  Next i

  If sCol > 0 Then
    i = 2
    For k = 1 To sCol
      Sheets("Data").Range("G" & i).Resize(dRow) = Res(k)
      i = i + dRow
    Next k
  End If
End Sub

Dạ, nhờ thầy gán thêm lệnh nút RUN thêm được không ạ, để mỗi khi em copy dữ liệu vào các cột ABC thì chỉ cần click nút lệnh RUN là dữ liệu chạy ạ

 

[bebo021999]

Muốn nhanh và nhẹ thì dùng công thức check từng dòng, nếu lủng thì đánh dấu bằng "Lủng". Hơi thủ công 1 chút,

G3:
=IF(C3=C2+1,"","Lủng")
Copy xuống

Dùng Advance filter lọc "Lủng", hoặc dùng Ctrl-F (Find And Replace) để tìm đến từng dòng.

 

[HieuCD]

Dạ, nhờ thầy gán thêm lệnh nút RUN thêm được không ạ, để mỗi khi em copy dữ liệu vào các cột ABC thì chỉ cần click nút lệnh RUN là dữ liệu chạy ạ

nhấp chuột phải vào biểu tượng Run ....
Số hóa đơn phải xếp thứ tự từ thấp đến cao

 

[VetMini]

nhấp chuột phải vào biểu tượng Run ....
Số hóa đơn phải xếp thứ tự từ thấp đến cao

Con đường quen thuộc trên GPE:
1. hỏi đại trà
2. viện cớ "dữ liệu nhiều" để vòi code
3. có code xong vòi cài đặt giùm
Thế là đủ từ a đến z.

Đúng chức năng thì Giải Pháp Excel phải lấy tên là Giải Pháp Dữ Liệu Khủng.

Chú cho chủ code (bài #6):
Loại tìm số thiếu này xảy ra thường lắm. Nhất là CSDL dùng key tự tạo (key auto thì nónchir lfa một con số, chả ai buồn tìm số thiếu)
Thường thì người ta báo cáo theo block.
Số thiếu:
12345-12390
12399
15555-16000
...

 

[danhculao]

nhấp chuột phải vào biểu tượng Run ....
Số hóa đơn phải xếp thứ tự từ thấp đến cao

em cám ơn thầy nhiều ạ!