Nhờ các thầy giúp em về so sánh 2 bảng dữ liệu

[tst12346]

em có 2 bảng dữ liệu như trong file. em muốn nhờ các thầy giúp cách mà khi em nhập dữ liệu ở bảng A thì bảng B sẽ nhận ra dữ liệu trùng lặp và xoá nó ở bảng B.
Sự so sánh này áp dụng với tất cả các ô trong bảng chứ không nguyên theo hàng hay cột.

ví dụ: bảng B em đang có 3 cột dữ liệu 1 2 3/1 2 3/1 2 3.
em nhập dữ liệu vào bảng A là 1 4 5
như vậy bảng B sẽ tự động xoá hết các ô có chứa giá trị 1 và còn lại là 2 3/ 2 3/ 2 3

E chân thành cảm ơn các thầy và chúc các thầy năm mới may mắn và thành công.

 

[tst12346]

Bởi vậy mới có nhiều chuyện tùm lum.
Người chịu khó học thì có khả năng biết rằng 10 công việc mình đang làm có thể chỉ túm lại còn 1, 2.

Bạn tự nghĩ ra mình muốn làm gì rồi cho vào Excel, sau đó nhờ người ta làm giùm mình. Chuyện lô gic để mặc cho bên giúp họ tìm hộ.

Người chịu khó học hỏi thì biết mình có thể làm được gì nếu thiết kế bảng tính theo chiều hướng lô gic.

Tôi xem qua mấy bài viết thì thấy bạn giúp người ta thì ít mà dạy người ta thì nhiều. Bạn phải hiểu là không ai giỏi tất cả mọi thứ, cũng không ai không cần sự giúp đỡ của người khác bao giờ. Tôi không biết trình độ của bạn giỏi tới đâu cứ cho là bạn giỏi excel đi nhưng bạn có biết thép có bao nhiêu loại kết cấu nhà cần thép gì hay như thế nào cho tiết kiệm không. Cứ ví dụ 1 thứ đó đi, lúc đó bạn có hỏi có cần sự giúp đỡ của người khác luôn không hay bạn chọn đi học xây dựng để bắt đầu công việc của mình. Tôi là thành viên mới, nhưng tham gia forum từ năm 2008. Cũng do không có chuyên môn excel nên cũng không tham gia forum được nhiều nhưng vẫn luôn muốn tìm kiếm sự giúp đỡ trong lĩnh vực này và sẵn sàng giúp đỡ người khác những thứ mình biết. Thôi nói vậy thôi nhé không nên để câu chuyện đi quá xa. Thân ái.

 

[HieuCD]

Thầy ơi bài kia em làm được rồi nhờ code của thầy em tiết kiệm được rất nhiều thời gian. Em muốn nhờ thầy thêm một bài nữa thầy giúp em nhé. Bài này là đếm các số 0 trong 1 hàng. Chi tiết em để trong file đính kèm. Em cảm ơn.

Dạng nầy cần xử lý nhiều chi tiết nên hơi rối!

Sub ABC()
  Dim arr(), sRow&, sCol&, i&, j&, q&
 
  arr = Range("A1", Range("J" & Rows.Count).End(xlUp).Offset(, 1)).Value
  sRow = UBound(arr):     sCol = UBound(arr, 2)
  ReDim res(1 To sRow, 1 To 1)
  For i = 1 To sRow
    q = 0
    arr(i, sCol) = 9999
    For j = 1 To sCol
      If arr(i, j) = 0 Then
        q = q + 1
      Else
        If q > 0 Then
          res(i, 1) = res(i, 1) & "/" & q
          q = 0
        End If
      End If
    Next j
    If res(i, 1) <> Empty Then Mid(res(i, 1), 1) = "'"
  Next i
  Range("L1").Resize(sRow) = res
End Sub

 

[VetMini]

Tôi xem qua mấy bài viết ...

Bạn chỉ xem qua mấy bài viết cho nên không biết là tôi đã từng chơi với dân Thái Nguyên.
Thế kỷ trước, tôi gọi ông DKL là anh, chị Nh là chị chứ không cần thưa sếp.
Về sau, anh L thất sủng tôi mới phải bôn bả chạy thân nhé.

Hiện giờ các nhà máy vẫn thỉnh thoảng xin tư vấn tôi về tiêu chuẩn AISC (Mẽo), BS (Anh), và ASTM International.
Miễn cái vụ thách thức thép thiếc nhé.

 

[tst12346]

Dạng nầy cần xử lý nhiều chi tiết nên hơi rối!

Sub ABC()
  Dim arr(), sRow&, sCol&, i&, j&, q&
 
  arr = Range("A1", Range("J" & Rows.Count).End(xlUp).Offset(, 1)).Value
  sRow = UBound(arr):     sCol = UBound(arr, 2)
  ReDim res(1 To sRow, 1 To 1)
  For i = 1 To sRow
    q = 0
    arr(i, sCol) = 9999
    For j = 1 To sCol
      If arr(i, j) = 0 Then
        q = q + 1
      Else
        If q > 0 Then
          res(i, 1) = res(i, 1) & "/" & q
          q = 0
        End If
      End If
    Next j
    If res(i, 1) <> Empty Then Mid(res(i, 1), 1) = "'"
  Next i
  Range("L1").Resize(sRow) = res
End Sub

Cảm ơn thầy rất nhiều.