Hỏi hàm nhập dữ liệu theo ngày tương ứng

[hoang0569]

Mình có bảng tính tóm tắt như sau:
Cột A là ngày trong tháng. Cột B chứa dữ liệu cần tính (A,B tại Sheet 1). Cột N là ngày (luôn thay đổi) tương ứng với dữ liệu trong cột M (N, M tại Sheet 2). Mình muốn hỏi có cách nào dữ liệu ở cột M tự động điền vào cột B theo đúng ngày tương ứng với các ngày trong cột A không?

A-- B--- N---- M
1 ----- --3 ----22.1
2 - ----
3 - ----
4 -- ------5 ----12.5
5 - -
10 - -----13--- 32.2
. - -
31 -

 

[dongnamnb]

Bạn dùng hàm vlookup nhé. Công thức ở ô B1 như sau:
=vlookup(A1;$N$1:$M$31;2;0)

 

[hoang0569]

Bạn xem lại hộ đi, sao không được hả bạn

 

[hoang0569]

Mình đang rất cân, bạn nào giúp mình với. Cảm ơn nhiều

 

[thanh_tks]

Bạn gửi file lên sẽ có người giúp bạn! chứ nói xuông thì khó hiểu lắm

 

[anhtotbung35]

Bạn xem lại công thức của bạn. chứ công thức của dongnamnb đúng đó.
Mình đã thử rồi, bạn có thể xem hình.
Nếu vùng dữ liệu bạn cần lấy là số học và cộng tổng lại, thì bạn lồng thêm hàm SumIf.
Chúc bạn thành công!

 

[hoang0569]

Mình đưa File VD lên, mong các bạn giúp. Cảm ơn nhiều

 

[thanh_tks]

Mình đưa File VD lên, mong các bạn giúp. Cảm ơn nhiều

Bạn xem file đính kèm(công thức ở cột B)

 

[hoang0569]

Cảm ơn bạn nhiều, mình xin hỏi thêm 1 vấn đề nữa, vui lòng giúp mình nhé.
nếu trong 1 ngày có 2 giá trị lớn cùng được chon, ở bảng phụ (Bảng 2) có thể ghi là 2 ngày mùng 4 trong cột chẳng hạn, nhưng sang cột B bảng 1, giá trị 2 tự động chuyển sang ngày mùng 5, được không bạn.

 

[thanh_tks]

Nếu ngày 5 cũng có giá trị được chọn thì chuyển đến ngày 6 à ?
có trường hợp một ngày có 3 giá trị chọn ko ?

 

[hoang0569]

Chỉ chọn 2 giá trị trong 1 ngày thôi bạn à, sau những ngày có 2 giá trị đó,ngày kế sau tuyệt đối không có giá trị nào cả

 

[thanh_tks]

Chỉ chọn 2 giá trị trong 1 ngày thôi bạn à, sau những ngày có 2 giá trị đó,ngày kế sau tuyệt đối không có giá trị nào cả

Thế thì dùng tạm cái này vậy

 

[SA_DQ]

Một cách khác bạn tham khảo

Option Explicit
Sub CapNhat()
 Dim Rng As Range, sRng As Range, Clls As Range
 Dim MyAdd As String, Dem As Byte, Color_ As Byte
 
 Set Rng = Range("F3:F" & [F65500].End(xlUp).Row)
 Range("B5:B" & [A65500].End(xlUp).Row).Clear
 For Each Clls In Range("A5:A35")
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      Dem = 0:                   MyAdd = sRng.Address
      Color_ = 35 + (sRng.Value Mod 6)
      Do
         With Clls.Offset(Dem, 1)
            .Value = sRng.Offset(, 1).Value
            .Interior.ColorIndex = Color_ + Dem
         End With
         Dem = Dem + 1:
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 Next Clls
End Sub

 

[hoang0569]

Đúng hàm cần thiết cho công việc của mình rồi, Cảm ơn bạn thanh_kts nhiều.