Don't bother ~ If you just want to compare the sizes of the contents displayed in cells, just use cells(i, j). Text instead of cell (i, j). The default property of value ~ cell is value, so cells(i, j) means cell (i, j). Value ~ So your code can be changed to:

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?