So sánh 2 vùng dữ liệu & Copy nếu thỏa mãn điều kiện cho trước

[Cuongnv0920]

Xin chào GPE mình có 1 bài so sánh như sau:
mình có 2 bảng. bàng 1 ở sheet1, bảng 2 ở sheet2
ở bảng 2 sẽ tìm kiếm vùng dữ liệu ở bảng 1 và copy nếu thỏa mãn điều kiện VD: Cell "B2" sẽ điều chữ "a"
Các bạn xem file đính kèm sẽ dễ hiểu hơn
Cám ơn các bạn rất nhiều

 

[be_09]

Xin chào GPE mình có 1 bài so sánh như sau:
mình có 2 bảng. bàng 1 ở sheet1, bảng 2 ở sheet2
ở bảng 2 sẽ tìm kiếm vùng dữ liệu ở bảng 1 và copy nếu thỏa mãn điều kiện VD: Cell "B2" sẽ điều chữ "a"
Các bạn xem file đính kèm sẽ dễ hiểu hơn
Cám ơn các bạn rất nhiều

Nếu dữ liệu có bấy nhiêu đó thì Copy > Paste Special > Transpose chứ cần gì code.

 

[snow25]

Xin chào GPE mình có 1 bài so sánh như sau:
mình có 2 bảng. bàng 1 ở sheet1, bảng 2 ở sheet2
ở bảng 2 sẽ tìm kiếm vùng dữ liệu ở bảng 1 và copy nếu thỏa mãn điều kiện VD: Cell "B2" sẽ điều chữ "a"
Các bạn xem file đính kèm sẽ dễ hiểu hơn
Cám ơn các bạn rất nhiều

bạn kết hợp vlookup với hàm mack là được mà viết code chi cho mệt code thì mai sáng mình code cho

 

[CHAOQUAY]

Xin chào GPE mình có 1 bài so sánh như sau:
mình có 2 bảng. bàng 1 ở sheet1, bảng 2 ở sheet2
ở bảng 2 sẽ tìm kiếm vùng dữ liệu ở bảng 1 và copy nếu thỏa mãn điều kiện VD: Cell "B2" sẽ điều chữ "a"
Các bạn xem file đính kèm sẽ dễ hiểu hơn
Cám ơn các bạn rất nhiều

Bạn chạy thử code này xem sao

Sub Sosanh()
Dim SArr As Variant
Dim DArr As Variant
Dim MDic As Object
Dim i As Integer, j As Integer
Set MDic = CreateObject("Scripting.Dictionary")
SArr = Sheet1.Range("a1").CurrentRegion
DArr = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(SArr)
    For j = 2 To UBound(SArr, 2)
        If SArr(i, j) <> "" Then
            MDic(SArr(1, j) & " " & SArr(i, 1)) = SArr(i, j)
        End If
    Next j
Next i
For i = 2 To UBound(DArr)
    For j = 2 To UBound(DArr, 2)
        If MDic.exists(DArr(i, 1) & " " & DArr(1, j)) Then
            DArr(i, j) = MDic(DArr(i, 1) & " " & DArr(1, j))
        Else
            DArr(i, j) = ""
        End If
    Next j
Next i
With Sheet2
.Range("a6").Resize(UBound(DArr), UBound(DArr, 2)).ClearContents
.Range("a6").Resize(UBound(DArr), UBound(DArr, 2)) = DArr
End With
Set MDic = Nothing
End Sub

 

[Cuongnv0920]

Nếu dữ liệu có bấy nhiêu đó thì Copy > Paste Special > Transpose chứ cần gì code.

đây là mình VD thôi, thực tế thì dữ liệu của mình nhiều và phức tạp hơn
VD: bảng 2 form cố đinh chỉ có số 2, 6, 7 chứ ko có các số từ 1->10
nhưng sẽ tìm nếu có dữ liệu thì điền cào cell tương ứng trên bảng 2
mong bạn giúp ak

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

Bạn chạy thử code này xem sao

Sub Sosanh()
Dim SArr As Variant
Dim DArr As Variant
Dim MDic As Object
Dim i As Integer, j As Integer
Set MDic = CreateObject("Scripting.Dictionary")
SArr = Sheet1.Range("a1").CurrentRegion
DArr = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(SArr)
    For j = 2 To UBound(SArr, 2)
        If SArr(i, j) <> "" Then
            MDic(SArr(1, j) & " " & SArr(i, 1)) = SArr(i, j)
        End If
    Next j
Next i
For i = 2 To UBound(DArr)
    For j = 2 To UBound(DArr, 2)
        If MDic.exists(DArr(i, 1) & " " & DArr(1, j)) Then
            DArr(i, j) = MDic(DArr(i, 1) & " " & DArr(1, j))
        Else
            DArr(i, j) = ""
        End If
    Next j
Next i
With Sheet2
.Range("a6").Resize(UBound(DArr), UBound(DArr, 2)).ClearContents
.Range("a6").Resize(UBound(DArr), UBound(DArr, 2)) = DArr
End With
Set MDic = Nothing
End Sub

mình hơi thiếu sót chút
nếu ở bảng 2 mặc định là chỉ có STT: 2, 4, 7 thì chỉ cần tìm ở bảng 1 các STT này thôi thì làm sao ạ

 

[be_09]

đây là mình VD thôi, thực tế thì dữ liệu của mình nhiều và phức tạp hơn
VD: bảng 2 form cố đinh chỉ có số 2, 6, 7 chứ ko có các số từ 1->10
nhưng sẽ tìm nếu có dữ liệu thì điền cào cell tương ứng trên bảng 2
mong bạn giúp ak

Thì đưa dữ liệu bao nhiêu thì tính bấy nhiêu.
Còn muốn cho tốt thì lường trước các trường hợp sảy ra và đưa ví dụ cụ thể, chứ ai biết thằng ăn trộm nó nằm trong bồ lúa đâu mà khai.

 

[Cuongnv0920]

bạn kết hợp vlookup với hàm mack là được mà viết code chi cho mệt code thì mai sáng mình code cho

mình bổ sung thêm. nãy nghĩ chưa hết
nếu ở bảng 2 mặc định là chỉ có STT: 2, 4, 7 thì chỉ cần tìm ở bảng 1 các STT này thôi thì làm sao ạ

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

Thì đưa dữ liệu bao nhiêu thì tính bấy nhiêu.
Còn muốn cho tốt thì lường trước các trường hợp sảy ra và đưa ví dụ cụ thể, chứ ai biết thằng ăn trộm nó nằm trong bồ lúa đâu mà khai.

hè hè, thiếu sót chút

 

[CHAOQUAY]

mình hơi thiếu sót chút
nếu ở bảng 2 mặc định là chỉ có STT: 2, 4, 7 thì chỉ cần tìm ở bảng 1 các STT này thôi thì làm sao ạ

Miễn là sheet2 cũng lập bảng kiểu tương tự file mẫu thì code trên sẽ vẫn tìm thấy.

 

[Cuongnv0920]

Miễn là sheet2 cũng lập bảng kiểu tương tự file mẫu thì code trên sẽ vẫn tìm thấy.

ý của mình là vậy, nhưng mình đang bị, nếu ở BẢNG 1 mà có 2 số STT giống nhau thì KQ ko còn đúng nữa

 

[CHAOQUAY]

ý của mình là vậy, nhưng mình đang bị, nếu ở BẢNG 1 mà có 2 số STT giống nhau thì KQ ko còn đúng nữa

./.

 

[Cuongnv0920]

./.

sr bạn nha, mình vừa làm việc vừa port bài niên nhiều lúc lưu file ko để ý
link đây ak: https://www.giaiphapexcel.com/diend...a-mãn-điều-kiện-cho-trước.138360/#post-886289

 

[CHAOQUAY]

sr bạn nha, mình vừa làm việc vừa port bài niên nhiều lúc lưu file ko để ý
link đây ak: https://www.giaiphapexcel.com/diendan/threads/tìm-kiếm-và-lấy-thông-tin-mã-sản-phẩm-nếu-thỏa-mãn-điều-kiện-cho-trước.138360/#post-886289

Lai đi nhờ vả nữa hả bạn

 

[Cuongnv0920]

Lai đi nhờ vả nữa hả bạn

há há. nhờ vả mà bị vả rồi. để ngồi ngâm cứu bằng code xem ra không