Giúp em cách link bảng tính từ sheet này sang sheet kia

[vuanhmy123]

chào mọi người, e đang có 2 bảng tính cần link cho nhau. nếu làm thủ công, bằng cách copy rồi paste thì rất lâu.
e có tới 100 đoạn. bác nào pro biết cách tham chiếu từ bảng này sang bảng kia. giúp em bài toán này với.
cảm ơn mọi người rất nhiều
em có gửi bài toán lên. mọi người down về giúp e với ạ

 

[vuanhmy123]

help me, help me .....................................

 

[befaint]

chào mọi người, e đang có 2 bảng tính cần link cho nhau. nếu làm thủ công, bằng cách copy rồi paste thì rất lâu.
e có tới 100 đoạn. bác nào pro biết cách tham chiếu từ bảng này sang bảng kia. giúp em bài toán này với.
cảm ơn mọi người rất nhiều
em có gửi bài toán lên. mọi người down về giúp e với ạ

Chỉ làm phần bạn yêu cầu "link" thôi nhá
**Sheet "FR-3" bạn phải chỉnh sửa lại không có dòng trống ở vùng dữ liệu như file đính kèm.
Module:

Sub copyXY()
Dim Km As Range, TT As Range, PT As Range, lr As Long, i As Long, rw As Long, lent As Double
lr = Sheet4.UsedRange.Rows.Count
Sheet3.Range("A12:F65000").ClearContents
Sheet3.Range("L12:M65000").ClearContents
For i = 12 To lr
    If Sheet4.Range("J" & i) > 0 Then
        rw = Sheet4.Range("J" & i).End(xlDown).Row
        Set Km = Sheet4.Range("J" & i & ":K" & i)
        Set TT = Sheet4.Range("B" & i + 1 & ":C" & rw - 1)
        Set PT = Sheet4.Range("L" & i + 1 & ":M" & rw - 1)
        Sheet3.Range("A" & i & ":B" & i).Value = Km.Value
        Sheet3.Range("C" & i).Value = Sheet3.Range("B" & i).Value - lent
        lent = Sheet3.Range("B" & i).Value
        Sheet3.Range("B" & i).NumberFormat = """Km0+""" & "##0.00"
        Sheet3.Range("E" & i & ":F" & rw - 2).Value = TT.Value
        Sheet3.Range("L" & i & ":M" & rw - 2).Value = PT.Value
    End If
Next i
End Sub

 

[vuanhmy123]

căng thật, pro quá. đã test thử và thấy cũng ok. có cách nào khác ko bác, đây là dùng code, 1 số bài khác e tự làm thì sao viết code đc. bác có cách nào dùng hàm tham chiếu vlookup gì không, chứ dùng code là bài khác e ko biết viết.

 

[HieuCD]

tạo cột phụ AB, nhập công thức theo trình tự:

AB12 =IF(A12>0,MATCH("*at*",OFFSET('FR-3'!$E$1,MATCH(A12,'FR-3'!$J$1:$J$1000,0),,100),0)+MATCH(A12,'FR-3'!$J$1:$J$1000,0),AB11+1)
copy xuống tới dòng cuối
E12 =IF(D12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,1),"")
F12 =IF(D12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,2),"")
L12 =IF(R12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,11),"")
M12 =IF(R12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,12),"")
copy xuống

 

[vuanhmy123]

tạo cột phụ AB, nhập công thức theo trình tự:

AB12 =IF(A12>0,MATCH("*at*",OFFSET('FR-3'!$E$1,MATCH(A12,'FR-3'!$J$1:$J$1000,0),,100),0)+MATCH(A12,'FR-3'!$J$1:$J$1000,0),AB11+1)
copy xuống tới dòng cuối
E12 =IF(D12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,1),"")
F12 =IF(D12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,2),"")
L12 =IF(R12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,11),"")
M12 =IF(R12>0,INDEX('FR-3'!$B$1:$M$1000,$AB12,12),"")
copy xuống

@@ chuẩn luôn rồi, toàn cao thủ