Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Option Explicit
Sub Loop_Test03() 'Vòng lặp 3 vòng lồng nhau
Dim i As Integer
Dim j As Integer
Dim n as Integer
For i = 1 To 2 'Biến số cột
For j = 2 To 6 'Biến số dòng
For n = 1 to 3 'Biến số Sheet
If sheets(n).Cells(j, i) = "Book" Then sheets(n).Cells(j, 3) = "Yes"
Next n
Next j
Next i
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment