Mong các bạn giải thích dùm mình đoạn code này nha!

[nguyen053kn1]

Mong các bạn giải thích dùm mình đoạn code này nha!
Sub duyet_0_theo_cot()
Dim mycell As Range
Dim mycolumn As Range
Dim tong As Double
For Each mycolumn In Range("A1:E10").Columns
tong = 0
For Each mycell In mycolumn.Cells
tong = tong + Val(mycell.Value)
Next mycell
mycolumn.Cells(mycolumn.Rows.Count + 1, 1) = tong (chổ này mình ko hiểu)
Next mycolumn
End Sub
mình đang tò mò món VBA này lắm nhưng chưa biết gì hết! bạn nào có tài liệu nào về VBA ko cho mình tham khảo với!

 

[ChanhTQ@]

Chác bạn sẽ hiểu sau khi chạy macro của bạn với việc thêm 1 dòng lệnh:

Option Explicit
Sub duyet_0_theo_cot()
 Dim MyCell As Range, MyColumn As Range
 Dim Tong As Double
 For Each MyColumn In Range("A1:E10").Columns
   Tong = 0
   For Each MyCell In MyColumn.Cells
      Tong = Tong + Val(MyCell.Value)
   Next MyCell
   MsgBox MyColumn.Address, , Tong
   MyColumn.Cells(MyColumn.Rows.Count + 1, 1) = Tong '(cho^? này mình ko hie^?u)'
 Next MyColumn
End Sub