Xin giải thích Cách thêm dòng dùng VBA!

[nttcntn]

Mọi người giải thích giúp em code này dùng để làm gì nhé?
Thank!
Dim NextRow As Long
NextRow = Sheets("GhiChep").[A65536].End(xlUp).Row + 1
With Sheets("GhiChep").Cells(NextRow, 1)

 

[MinhCong]

Mọi người giải thích giúp em code này dùng để làm gì nhé?
Thank!
Dim NextRow As Long
NextRow = Sheets("GhiChep").[A65536].End(xlUp).Row + 1
With Sheets("GhiChep").Cells(NextRow, 1)

Dim NextRow As Long => Khai báo biến NextRow theo kiểu Long
NextRow = Sheets("GhiChep").[A65536].End(xlUp).Row + 1 => Tìm xem từ ô cuối cùng của cột A trong sheet Ghichep trở lênh trên, ô có chứa giá trị thuộc dòng nào? Sau đó gán giá trị cho NextRow bằng số dòng cuối cùng trong cột A của sheet Ghichep và cộng thêm 1. (VD: Cột A trong sheet Ghichep của Bạn có chứa các giá trị từ vùng A1:A10 => Sheets("GhiChep").[A65536].End(xlUp).Row=10 => NextRow=10+1=11)
With Sheets("GhiChep").Cells(NextRow, 1) => Như VD trên là bắt đầu từ ô A11....làm gì đó có thêm những dòng lệnh bên dưới.