两è
é½æ¯èµå¼ç¬¦ï¼ä½èµå¼ç对象ä¸åèå·²ã
1. := æ¯âæ¹æ³âçå
é¨ååæ°èµå¼æ¶ä½¿ç¨çã
æ¯å¦è¯´Findï¼æ¥æ¾ï¼æ¹æ³ï¼å
¶è¯æ³å¦ä¸ï¼
1.expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
å½æ们æ³å¨Sheet1ä¸æ¥æ¾âå·¥æ¶â两个åæ¶ï¼å¯ä»¥è¿æ ·åï¼
1.Sheet1.Find(What:="å·¥æ¶", LookIn:=xlValues, LookAt:=xlWhole)
è¿éï¼Findå°±æ¯âæ¹æ³âï¼ç¸å½äºä¸»è¦è¿ç¨ï¼èæ¬å·å
çWhatãAfterãLookInãLookAtãMatchCaseä¹ç±»çï¼å°±æ¯è¿ä¸ªæ¹æ³çåï¼å
é¨ï¼åæ°ï¼å½ç»è¿äºå
é¨åæ°èµå¼æ¶ï¼å°±è¦ç¨å°:=ã
å½ç¶ï¼ä¸é¢çè¯å¥ï¼å¦æä½ æåæ°ç顺åºåï¼ç¶åä¸èµå¼çåæ°ç¨éå·é¢çå ä½çè¯ï¼è¿äºååæ°çå称ä¹æ¯å¯ä»¥çç¥çï¼ä¹å°±å¯ä»¥çç¥:=è¿ä¸ªèµå¼ç¬¦ã
2. =æ¯ç»åéã对象èµå¼æ¶ä½¿ç¨çã
å¦ i = 55ãRange("A1").Value="Good Morning"ãSet Rng = Range("A1")ãSet dic = CreateObject("Scripting.Dictionary") ççã
温馨提示:答案为网友推荐,仅供参考