c_c_lai

¦^´_ 1# chengchi1223
¥H³æ¤@¬¡­¶Ã¯ªº¼Ò¦¡¡A¦Ó°µªº½d¨Ò¡G

1. Sub Ex()
   
2.     Dim sh As Worksheet, dat As Variant, rw As Range
   
3.    
   
4.     Set sh = Sheets("¤u§@ªí2")
   
5.     With Sheets("¤u§@ªí3")
   
6.         For Each dat In Range(.Range("A2"), .Range("A2").End(xlDown))
   
7.             Set rw = sh.Range("A2:A" & sh.Range("A2").End(xlDown).Row).Find(dat, , LookIn:=xlValues, LookAt:=xlWhole)
   
8.             If Not rw Is Nothing Then
   
9.                 sh.Rows(rw.Row).Interior.ColorIndex = 6
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

¤U¸ü (38.28 KB)

2016-6-28 12:29

c_c_lai

¦^´_ 3# chengchi1223
Range.Find ¤èªk (Excel)
    Find(dat, , LookIn:=xlValues, LookAt:=xlWhole) µ¥©ó
    Find(dat, LookIn:=xlValues, LookAt:=xlWhole)
    ---------------------------------------------------
¹Bºâ¦¡.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
P.S.   ¹Bºâ¦¡.Find(Required, ¿ï¥Î, ¿ï¥Î, ¿ï¥Î, ¿ï¥Î, ¿ï¥Î, ¿ï¥Î, ¿ï¥Î, ¿ï¥Î)
¹Bºâ¦¡ ¥Nªí Range ª«¥óªºÅܼơC
¦pªG¥u¼Ð¥Ü (A2 = 2) ¡G Find(dat, LookIn:=xlValues) ¥¦·|§ì¨ì  2 ©ÎªÌ¬O 12
(³¡¤À§k¦X LookAt:=xlPart)¡A ©Ò¥H¤~«ü¦W­n LookAt:=xlWhole ( 2 = 2)¡C

c_c_lai

¦^´_ 4# chengchi1223
¨S¿ù¡A¸ÑªR±o«Ü¦n¡A rw ¬° Range ¤Þ¤J­È¡A
¬O¬G sh.Rows(rw.Row) ªº rw.Row §Y¬°
¨ä¥Ø«e©Ò¦b¦ì§} (rw.Address) ªº¦C¸¹ (¦æ¼Æ)¡C
¦p¦¹§A«K¥i¥H¦Û¦æ¥h©µ¦ù¬°¨â­Ó¬¡­¶Ã¯À³¥Î¤F¡C