?Hỏi về Range(Cells(),...) (1 người xem)

[ThuNghi]

SourceWb.Activate
                With Sheet1
                'eR - iR : so dong chua dl
                    '.Range("B" & fR & ":B" & eR - iR + fR).Value = TgtWb.Sheets(i).Range("M" & iR & ":M" & eR).Value 'Lay gia tri
                    .Range("B" & fR & ":B" & eR - iR + fR).Value = TgtWb.Sheets(i).Range(Cells(iR, eC), Cells(eR, eC)).Value 'Lay gia tri
                  
                End With

Xin hỏi câu sau có gì sai mà chạy không được, phần bold, fR=2, eR=255, iR=7, eC=13

.Range("B" & fR & ":B" & eR - iR + fR).Value = TgtWb.Sheets(i).Range(Cells(iR, eC), Cells(eR, eC)).Value 'Lay gia tri

Mà câu lệnh dưới lại chạy.

'.Range("B" & fR & ":B" & eR - iR + fR).Value = TgtWb.Sheets(i).Range("M" & iR & ":M" & eR).Value 'Lay gia tri

Xin cám ơn!

 

[transongngocquan]

Hai câu lệnh của bạn đều chạy cả, lý do không chạy là do TgtWb.Sheets(i) là cái workbook gi máy không hiểu thế thôi