ndthanh/HEO-tim-dong-cuoi-02.bas

## HEO-tim-dong-cuoi-02.bas
Sub test()
  Dim rg As Range, row As Range
  Set rg = Sheet1.Range("B2").CurrentRegion

  For Each row In rg.Rows
    ' in ra cửa sổ Immediate Window(Ctrl + G)
    Debug.Print row.Cells(1, 1)
  Next
End Sub
	Sub test()
	Dim rg As Range, row As Range
	Set rg = Sheet1.Range("B2").CurrentRegion

	For Each row In rg.Rows
	' in ra cửa sổ Immediate Window(Ctrl + G)
	Debug.Print row.Cells(1, 1)
	Next
	End Sub