摘要:
Sub b()For i = 1 To 120 Step 1 '从第1行至第9行,如果行数较多,将9改为行数For t = 1 To 120 Step 1If Cells(i, 1) = Cells(t, 3) _ThenCells(i, 1).Font.Color = RGB(255, 0, 0): Cells(t, 3).Font.Color = RGB(255, 0, 0)'必须有空格 换行符(注释的标点需是英文标点,并且不能在换行符一行,并且不能在上面换行符后)Next tNext iEnd Sub2011.12.12更新(整合)Sub b()For i = 1 To 阅读全文
posted @ 2012-05-30 08:54
sumsen
阅读(473)
评论(0)
推荐(0)

浙公网安备 33010602011771号