Excelä¸å©ç¨å
¬å¼å¼ç¨åå
æ ¼æ¶ï¼æ æ³å¼ç¨åå
æ ¼ä¸çåä½é¢è²ã
Excelä¸å¯ä»¥å©ç¨VBAå¼ç¨åå
æ ¼åä½é¢è²ã
以ä¸ä»£ç å注é为å¦æAååå
æ ¼ä¸åä½é¢è²ä¸ºçº¢è²ï¼åå°åå
æ ¼å¼å 100
sub main
for i=1 to range("A65536").end(3).row'iä»1å°Aåæåä¸ä¸ªé空åå
æ ¼è¡æ°å¾ªç¯
if cells(i,"A").font.color=VBred then âå¦æåå
æ ¼A1çåä½é¢è²ä¸ºçº¢è²ã
cells(i,"A")=cells(i,"A")+100'å°åå
æ ¼å¼å为123
end if
next i
end sub
温馨提示:答案为网友推荐,仅供参考