Hỏi về công thức lọc tìm và so sánh viết bởi VBA

[SA_DQ]

Bác SA_DQ cho em hỏi nếu dữ liệu em có nhiều dòng và muốn tính 3 dòng cuối cùng thì chỉ cần thay đổi :
Col = Sh.[B2].CurrentRegion.Columns.Count

&

Set Rng = Sh.[B2].Resize(, Col)
=> thành =>

Set Rng = Sh.Range("B65536").End(xlUp).Offset(-2, 0).Resize(, Col):

Bien Col nhằm lưu giữa số cột mà CSDL chiếm dụng, nếu nó bất di bất dịch thì không đổi dòng lệnh này;

Còn (2) phải vầy mới thỏa chứ:

Set Rng = Sh.Range("B65536").End(xlUp).Offset(-2).Resize(3, Col)

( Sau dòng lệnh đó bạn thừ thêm 2 dòng lệnh này chí ít 1 lần xem sau:

     MsgBox Rng.Address,,"GPE.COM"
     Exit Sub

)

 

[tam8678]

 Sub FindAndPlus()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim Rw As Long, jJ As Long
 
 Set Sh = Sheets("Phu"):               Sheets("Chinh").Select
4 
Set Rng = Sh.Range(Sh.[a5], Sh.[A65500].End(xlUp))
 For jJ = 2 To 5
   Set sRng = Rng.Find(Cells(jJ, "A").Value, , xlFormulas, xlWhole)
   If  sRng Is Nothing Then '<=|'
        MsgBox "Khong Co " &  Cells(jJ, "A").Value   '<=|'
   else   '<=|'
      With sRng.Offset(, 3)
         .Value = .Value + Cells(jJ, "A").Offset(, 1).Value
         With .Offset(, 1)
            .Value = .Value + Cells(jJ, 1).Offset(, 2).Value
         End With
      End With
   End If
 Next jJ
18
End Sub

------------
Bạn có thể hướng dẩn thêm : trong trường hợp Sheet PHU và sheet CHINH nằm ở 2 tập tin khác nhau thì code viết như thế nào? Ví dụ như Sheet PHU nằm ở tập tin: PHU, sheet CHINH ở tập tin: CHINH, nhưng cùng nằm trong 1 Folder. Cám ơn bạn nhiều.

 

[tam8678]

------------
Bạn có thể hướng dẩn thêm : trong trường hợp Sheet PHU và sheet CHINH nằm ở 2 tập tin khác nhau thì code viết như thế nào? Ví dụ như Sheet PHU nằm ở tập tin: PHU, sheet CHINH ở tập tin: CHINH, nhưng cùng nằm trong 1 Folder. Cám ơn bạn nhiều.

-------------------
Tôi thật sự rất cần đoạn code này mong các anh em trên diển đàn hướng dẩn giúp.

 

[ThuNghi]

------------
Bạn có thể hướng dẩn thêm : trong trường hợp Sheet PHU và sheet CHINH nằm ở 2 tập tin khác nhau thì code viết như thế nào? Ví dụ như Sheet PHU nằm ở tập tin: PHU, sheet CHINH ở tập tin: CHINH, nhưng cùng nằm trong 1 Folder. Cám ơn bạn nhiều.

Có nhiều cách:
1/ Chép cả 2 sh của 2 file về 1 file
2/ Set Sh=MyPath & Sh...
MyPath là đừờng dẫn, hình như phải open mới được. Bạn tạo ví dụ làm thử.