Code VBA lọc số hóa đơn không có trong 1 cột (2 người xem)

[Văn Toàn 1996]

Xin chào các anh chị cô chú bác GPE ! em có 1 cột HĐ Trong vùng B3:B12 em muốn lọc ra những số HĐ không có ra cột D như hình mô tả. Nhờ mọi người giúp đỡ xin cảm ơn

 

[HieuCD]

Xin chào các anh chị cô chú bác GPE ! em có 1 cột HĐ Trong vùng B3:B12 em muốn lọc ra những số HĐ không có ra cột D như hình mô tả. Nhờ mọi người giúp đỡ xin cảm ơn

View attachment 293950

Kiểm tra lại . . .

Sub XYZ()
  Dim arr(), res(), S, sRow&, i&, k&

  arr = Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
  sRow = UBound(arr) - 1
  ReDim res(1 To sRow, 1 To 1)
  For i = 1 To sRow
    If arr(i, 1) + 1 < arr(i + 1, 1) Then
      k = k + 1
      If arr(i, 1) + 2 = arr(i + 1, 1) Then
        res(k, 1) = arr(i, 1) + 1
      Else
        res(k, 1) = arr(i, 1) + 1 & " - " & arr(i + 1, 1) - 1
      End If
    End If
  Next i
  Range("D3").Resize(sRow, 1).NumberFormat = "@"
  If k Then Range("D3").Resize(sRow, 1) = res                '
End Sub

 

[bebo021999]

Ủa kỳ vậy, nhớ là mình đã giải bài này rồi mà, không thấy hồi âm? Sao hỏi nhiều nơi quá zị?

VBA code to filter numbers that do not exist in a range

Hello everyone. I need a VBA code to filter numbers that do not exist in column B to column D as shown in the picture. Thank you https://docs.google.com/spreadsheets/d/1AV_9XCz5vNPjF8PrW5-E3dQG9Awa4G59/edit?usp=sharing&ouid=108243808758969652807&rtpof=true&sd=true

www.mrexcel.com

Option Explicit
Sub test()
Dim i&, j&, k&, rng, res()
rng = Range("B3:B14").Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 1 To UBound(rng) - 1
    For j = i + 1 To UBound(rng)
        If rng(j, 1) = rng(i, 1) + 1 Then
        Else
            k = k + 1
            res(k, 1) = rng(i, 1) + 1 & IIf(rng(i, 1) = rng(j, 1) - 2, "", " - " & rng(j, 1) - 1)
        End If
        Exit For
    Next
Next
Range("D3:D1000").ClearContents
Range("D3").Resize(k, 1).Value = res
End Sub