Vòng lặp Each For.... Next không hoạt động (1 người xem)

[ninjatcb]

Em có đoạn code sau:
Sub Button1_Click()
Dim mycol As Range
Set r = Range("B1:G4")

For Each mycol In r.Columns
Do While i

 

[xuan.nguyen82]

..........................................................

 

[ninjatcb]

Mình đã tìm được nguyên nhân là do giá trị i chưa được trả về 0.tks all