Hình mẫu:
Mở VBA: Alt+F11
Code:
=ROW()=CELL("Row")
Application.ScreenUpdating = True
=Column()=Cell("Col")
=And(Row()=Cell("Row"),Column()=Cell("Col"))
B1: Các bạn vào Home chọn Conditional Formatting chọn New Rule