將abr設為整數
將a_b標註為字符串
申請。ScreenUpdating = False
maxr = ThisWorkbook。active sheet . used range . rows . count
對於abr = 2到maxr
a _ b = CStr（this workbook細胞（abr，1）。價值）和“_“& amp；CStr（本工作簿。細胞（abr，2）。值)
對於本工作簿i = 2。active sheet . Cells（65536，3）。結束（xlUp）。排
if a _ b = CStr（this workbook。active sheet . Cells（I，3）。值）然後
此工作簿。active sheet . Cells（ABR，1）。interior。color index = 6
出口到
如果…就會結束
接下來我
下壹次abr
申請。ScreenUpdating = True