Tìm kiếm vào sao chép dữ liệu sang bảng mới

Liên hệ QC

iposter1

Thành viên mới
Tham gia
14/1/19
Bài viết
2
Được thích
0
Đầu tiên là em có 1 cái bảng 1 như thế này:
20196e62bf79-7ff5-433d-8618-4a02fe8999c9.png

Và em có bảng 2 như thế này:
20194b5ae8ea-df29-4eb8-a057-6ff15756b0a9.png

Vậy làm thế nào mà em làm ra được cái bảng 3 như thế này ạ (Điền bảng 2 vào bảng 1)

20193a46d217-53ba-4b1c-a7ba-96f74a255f61.png


em xin cám ơn mọi người
À mà cho em hỏi thêm là giả sử em có thêm 1 bảng mới giống như bảng thứ 2, em muốn cập nhật tiếp dữ liệu em làm thế nào ạ?
xin cám ơn mn một lần nữa
 
Lần chỉnh sửa cuối:
em tìm hiểu lập trình vba nhé
bonus cho e. nếu không chạy được thì enable macro
1547466251621.png
 

File đính kèm

  • 1.xls
    42 KB · Đọc: 7
PHP:
Sub ChepBang()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim J As Long, W As Long, Rws As Long
 Dim MyAdd As String

 Set Rng = [C2].CurrentRegion
 Rws = [A2].CurrentRegion.Rows.Count
 ReDim Arr(1 To Rws + Rng.Rows.Count, 1 To 2)
 [F2].Resize(Rws + Rng.Rows.Count, 2).Value = Arr()
 For Each Cls In Range([A2], [A2].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        W = W + 1:                  Arr(W, 1) = Cls.Value
    Else
        MyAdd = sRng.Address
        Do
            W = W + 1:                  Arr(W, 1) = Cls.Value
            Arr(W, 2) = sRng.Offset(, 1).Value
            Set sRng = Rng.FindNext(sRng)
        Loop While MyAdd <> sRng.Address
    End If
 Next Cls
 If W Then [F2].Resize(W, 2).Value = Arr()
End Sub
 
Em xin phép các Anh/Chị trợ giúp cho Em với ạ, Em có bảng công từ máy chấm công vân tay, Em mong các Anh/Chị giúp Em lọc nhặt dữ liệu từ file chi tiết lương san cột bảng tính lương ạ, Em cảm ơn các Anh/Chị nhiều
 

File đính kèm

  • 12.2018.xlsx
    102.6 KB · Đọc: 7
Web KT
Back
Top Bottom