Dim i is an integer, j is an integer, and s and n are integers.
For line i= 1 to 4'
s=0
For columns j= 1 to 4'
If cell (i, j). Text & gts is s=cells(i, j). Text: n=j
Next J.
Cells(i,n).Interior.Color = RGB(255,255,0)
Next, I
Question added: Master, are you still there? Do you have QQ? Can I talk to you?