[µo°Ý] °Ñ·Ó¸ê®Æ®w¤ºªº¤£¦PÄæ¦ì¡A±a¥X¸ê®Æ

pesi2884

½Ð°Ý°Ñ·Ó"¸ê®Æ®w"¤º¦ì©ó¤£¦PÄæ¦ì¡A
±a¥X·Q­nªº¸ê®Æ¡AVBAµ{¦¡¸Ó¦p¦ó¼g¡A
¸Ô²Ó»¡©ú¦bªþ¥ó¤º¡A
½Ð«e½ú«ü¾É¤@¤U¡A
·P¿E¤£ºÉ!

pesi2884

¦^´_ 2# Hsieh


   ÁÂÁÂ Hsieh«e½ú¡A
   ¸Õ¹L«á¥i¥H¤F¡A±z¼gªºµ{¦¡¯uªºÁÙÆZºë²ªº¡A
  ©Ó»X§A¦h¦¸À°§U¡A¯uªº«D±`·P¿E¤£ºÉ!

Hsieh

1. Sub nn()
   
2. With Sheets("µ²ªG")
   
3. .[E2:H1048576] = ""
   
4. For Each a In .Range(.[A2], .[A1048576].End(xlUp))
   
5. With Sheets("¸ê®Æ®w")
   
6. m = Replace(a, "~", "~~") & a.Offset(, 1)
   
7. Set b = .Columns("G:K").Find(m)
   
8. Set c = .Range(.Cells(b.Row, 3), .Cells(b.Row, 6)).Find(1)
   
9. k = c.Column + 2
   
10. End With
    
11. .Cells(a.Row, k) = IIf(b.Column < 9, 1, "-")
    
12. Next
    
13. End With
    
14. End Sub

½Æ»s¥N½X

¦^´_ 1# pesi2884