ä¾å¦æ¯è¾ä¸¤è¡¨ä¸çBåçæ°æ®,ç¨excelç¼ä¸ä¸ªå®,å°ä¸¤ä¸ªå·¥ä½ç°¿æå¼,è¿è¡å®
sub abc()
For i = 1 To Workbooks("xls2").Sheets(1).Range("B1").End(xlDown).Row
If Workbooks("xls2").Sheets(1).Cells(i, "B") > Workbooks("xls1").Sheets(1).Cells(i, "B") Then
Workbooks("xls2").Sheets(1).Cells(i, "B").Interior.ColorIndex = 16
End If
Next i
end sub
温馨提示:答案为网友推荐,仅供参考