Tự nhập cell có dữ liệu trùng

[pt_hcl]

Mình có file với dữ liệu như sau:
- Dòng 1 (hàng 1) là hàng mình nhập số liệu bất kì.
- Cột A: là cột mình nhập số liệu bất kì.
Mong GPE giúp hộ mình trường hợp này với ạ:
- Tại cell bất kì trong bảng dữ liệu khi gióng lên và gióng ngang mà có dữ liệu ở hàng 1 và dữ liệu ở cột A trùng nhau thì cell đó tự điền dữ liệu trùng này, nếu dữ liệu ở hàng 1 và dữ liệu ở cột A không trùng nhau thì cell đó để trống.
- Ví dụ: + tại cell B8: dữ liệu trùng là 2 thì điền là 2, cell B25 dữ liệu trùng là 2 thì điền là 2.
+ tại cell C2: dữ liệu trùng là 0 thì điền là 0.
+ ...v..v.. cứ như vậy với tùy biến mình nhập ở hàng 1 và cột A
- Xin trân thành cảm ơn!

 

[hoamattroicoi]

tại ô B2 nhập công thức =IF(B$1=$A2;B$1;"")
Kéo cho cả bảng nhé!

 

[pt_hcl]

Cảm ơn bạn rất nhiều! Mình làm theo ý bạn đã được rùi ạ! Chúc bạn gặp nhiều may mắn!

Bạn nào có thể giúp mình ngoài cách dùng hàm ra có thể thực hiện bằng lệnh code được không ạ? XIn cảm ơn rất nhiều!

 

[concogia]

Bạn nào có thể giúp mình ngoài cách dùng hàm ra có thể thực hiện bằng lệnh code được không ạ? XIn cảm ơn rất nhiều!

Nó đây:

Public Sub ChayChay()
    Dim Hang, Cot, I, J, Mg()
    Cot = Range([b1], [ww1].End(xlToLeft)).Value
    Hang = Range([a2], [a50000].End(xlUp)).Value
    ReDim Mg(1 To UBound(Hang), 1 To UBound(Cot, 2))
        For I = 1 To UBound(Cot, 2)
            For J = 1 To UBound(Hang)
                If Cot(1, I) = Hang(J, 1) Then Mg(J, I) = Hang(J, 1)
            Next J
        Next I
    [b2].Resize(UBound(Hang), UBound(Cot, 2)) = Mg
End Sub

Cái này mà sử dụng 49.900 công thức là "tèo" máy đó
Thân

 

[nmhung49]

Bạn nào có thể giúp mình ngoài cách dùng hàm ra có thể thực hiện bằng lệnh code được không ạ? XIn cảm ơn rất nhiều!

Mình cũng xin góp vui giống code giống anh concogia như tại đang học mảng nên làm lâu quá ặc....ặc....

Sub dienso()
Dim mang, mang1(), li As Long, lj As Long, lr As Long
mang = Range("a1:sf101").Value
ReDim mang1(UBound(mang, 1), UBound(mang, 2))
For li = 2 To UBound(mang, 2)
    For lj = 2 To UBound(mang, 1)
        If mang(1, li) = mang(lj, 1) Then mang1(lj - 2, li - 2) = mang(1, li)
    Next lj
Next li
Sheet1.[b2].Resize(UBound(mang, 1), UBound(mang, 2)) = mang1
End Sub